Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.67
bugaga1
4 / 4 / 2
Регистрация: 13.11.2009
Сообщений: 46
#1

процедура ввода/вывода - Pascal

28.11.2009, 15:57. Просмотров 1537. Ответов 5
Метки нет (Все метки)

нужно отдельно замутить процедуру ввода и процедуру вывода, с процедурой ввода проблем особых нет, вроде вводит правильно
Pascal
1
2
3
4
5
6
7
8
9
procedure vvod(var a:array of integer);
var j,n :integer;
begin
 write('размер: ');
 read(n);
 write('последовательность: ');
  for j:=1 to n do
  read(a[j]);
end;


а вот с выводом что-то не понимаю, там надо что-то с размером сделать, чтоб не выводил после введённой последовательности нули, но вот как?
может как то вот это подправить надо?
Pascal
1
2
3
4
5
6
procedure vivod(var a:array of integer);
var j,n:integer;
begin
 for j:=1 to n do
   write(a[j],' ');
end;
т.е. после некоторых преобразований он должен вывести последовательность, заданную в процедуре ввода
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2009, 15:57
Здравствуйте! Я подобрал для вас темы с ответами на вопрос процедура ввода/вывода (Pascal):

Процедура вывода - Pascal
Всем здравствуйте. У меня такая проблема: я написал маленькую програмку.В ней только процедура ввода и вывода матрицы, но массив заполнить...

Процедура ввода - Pascal
Помогите написать процедуру ввода данных в БД на pascal. Я что-то пробовал но все равно кокае-то ошибка. Текст программы корявый. ...

Типизированный файл состоящий из множеств. Процедура ввода - Pascal
Написал процедуру ввода но она не обнуляет заносимое множество в файл. Всего в файл заносится 5 множеств по 3 элемента в каждом. Так вот...

Процедура ввода данных и формирования линейного списка - Pascal
Подскажите пожалуйста,пишу программу на динамику,но не пойму где ошибка тут. Procedure INPUT_AND_FORM_SPIS; Var { Описание...

Процедура вывода элементов квадратной матрицы по спирали по часовой стрелке. - Pascal
Собственно сабж...

присваивание ввода , вывода - Pascal
1.Даны переменные a,b,c . Изменить их значение , переместив содержимое а в B , b в c , c в a и вывести новые значение переменных a,b,c ...

5
mpcrafter
9 / 9 / 2
Регистрация: 16.11.2009
Сообщений: 44
28.11.2009, 16:01 #2
Попробуй в процедуру вывода передать занчение n, а то он не знает по что ыводить, вот и выводит лишнее..
0
PresAlexandr
43 / 43 / 3
Регистрация: 16.05.2009
Сообщений: 372
28.11.2009, 16:02 #3
bugaga1, твоя ошибка заключается в том, что при выходе из процедуры ввода теряется значение размера массива. Сделай переменную n глобальной - проблем не будет.
0
bugaga1
4 / 4 / 2
Регистрация: 13.11.2009
Сообщений: 46
28.11.2009, 16:03  [ТС] #4
ну так я тоже об этом думал) просто я не знаю как это сделать, если вводить в процедуре вывода read(n), то это чушь получается)
0
mpcrafter
9 / 9 / 2
Регистрация: 16.11.2009
Сообщений: 44
28.11.2009, 16:13 #5
Pascal
1
procedure vivod(a:array of integer; n:integer);
При вызове просто передай n. vivod(a,n);
Только n спроси глобально или выведи из 1й процедуры.

Добавлено через 1 минуту
понял?)) или написать обе?

Добавлено через 6 минут
это допиши в вар основной программы:
Pascal
1
Var n:integer;
1я:
Pascal
1
Var n:integer;
2я:
Pascal
1
2
3
4
5
6
procedure vivod(var a:array of integer);
var j:integer;
begin
 for j:=1 to n do
   write(a[j],' ');
end;
А так надо теперь вызывать вывод:
vivod(a,n);

Добавлено через 1 минуту
Пардон...
2й:
Pascal
1
2
3
4
5
6
7
8
9
procedure vvod(var a:array of integer; var n:integer);
var j:integer;
begin
 write('размер: ');
 read(n);
 write('последовательность: ');
  for j:=1 to n do
  read(a[j]);
end;
2
bugaga1
4 / 4 / 2
Регистрация: 13.11.2009
Сообщений: 46
28.11.2009, 16:13  [ТС] #6
Цитата Сообщение от mpcrafter Посмотреть сообщение
понял?))
понял) премного благодарен
спасибо, что ещё и написал, но я без этого понял) просто отошёл ненадолго
0
28.11.2009, 16:13
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2009, 16:13
Привет! Вот еще темы с ответами:

Операторы ввода-вывода - Pascal
Дана площадь круга. найти сторону правильного треугольника, вписанного в этот круг.

Таблица ввода-вывода - Pascal
Здравствуйте, помогите пожалуйста составить таблицу, используя готовый код задачи: const nmax=100; Var A,B:array of integer; ...

Ошибка ввода/вывода не могу найти - Pascal
uses crt; type pup = record s_name, {oaieeey} name: string; {eiy} number, {? a?oiiu} est:...

Составить программу ввода и вывода матрицы 50*50. - Pascal
Вычислить среднее арифметическое отрицательных чисел. Вывести результат вычисления. Заранее спасибо.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru