Консультация № 138567
29.05.2008, 19:56
0.00 руб.
0 1 1
написать процедуру для ввода с клавиатуры двумерного массива размерностю N x M.

Обсуждение

Неизвестный
29.05.2008, 21:46
общий
это ответ
Здравствуйте, Степанов Александ Сергеевич!
Процедура ввода, вывода и программа использующая их в приложении.
<b>InPutArray</b>-ввод
<b>OutPutArray</b>-вывод
Удачи!!!


Приложение:
const {Кол-во строк} N=3; {кол-во столбцов} M=5;type {Создаем тип двумерного массива} MyArray = array [1..N, 1..M] of integer;var {Массив} a: MyArray;{Процедура ввода массива с клавиатурыvar перед параметром означает то, что результат вернется в переменную указанную в первом параметре}procedure InPutArray(var a: Myarray);var {Для For} j, i: integer;begin {Перебираем весь массив} for i:=1 to N do for j:=1 to M do begin {Получаем и сохранаем число в тек. элю массива} write(‘Введите [‘, i, ‘;‘, j, ‘]: ‘); readln(a[i, j]); end;end;{Выводит массив}procedure OutPutArray(a: MyArray);var j, i: integer;begin for i:=1 to N do begin for j:=1 to M do write(a[i, j]:6); writeln; end;end;begin Writeln(‘Ввод массива.‘); InPutArray(a); WriteLn(‘Проверка.‘); OutPutArray(a); readln;end.
Форма ответа