Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
bugaga1
4 / 4 / 3
Регистрация: 13.11.2009
Сообщений: 46
#1

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

28.11.2009, 15:57. Просмотров 1593. Ответов 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. Я что-то пробовал но...

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

Процедура ввода данных и формирования линейного списка
Подскажите пожалуйста,пишу программу на динамику,но не пойму где ошибка тут. ...

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

5
mpcrafter
9 / 9 / 3
Регистрация: 16.11.2009
Сообщений: 44
28.11.2009, 16:01 #2
Попробуй в процедуру вывода передать занчение n, а то он не знает по что ыводить, вот и выводит лишнее..
0
PresAlexandr
43 / 43 / 16
Регистрация: 16.05.2009
Сообщений: 372
28.11.2009, 16:02 #3
bugaga1, твоя ошибка заключается в том, что при выходе из процедуры ввода теряется значение размера массива. Сделай переменную n глобальной - проблем не будет.
0
bugaga1
4 / 4 / 3
Регистрация: 13.11.2009
Сообщений: 46
28.11.2009, 16:03  [ТС] #4
ну так я тоже об этом думал) просто я не знаю как это сделать, если вводить в процедуре вывода read(n), то это чушь получается)
0
mpcrafter
9 / 9 / 3
Регистрация: 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 / 3
Регистрация: 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

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

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

Таблица ввода-вывода
Здравствуйте, помогите пожалуйста составить таблицу, используя готовый код...


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

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

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