Консультация № 138556
29.05.2008, 19:42
0.00 руб.
0 1 1
Написать процедуру для вода элементов двумерного массива MAS размерностью N x M.

Обсуждение

Неизвестный
30.05.2008, 09:38
общий
это ответ
Здравствуйте, Степанов Александ Сергеевич!

Решение в приложении.
Обратите внимание на описание процедуры ввода массива, т.к мы должны передать заполненный массив обратно в программу то добавляем слово var перед описанием массива.
Для примера ниже я написал процедуру вывода, здесь наоборот данные передаются в процедуру, а обратно нам ничего получать не надо.

Удачи.


Приложение:
program wwod_wiwod;constm = 4; n = 3;type mass = array[1..m, 1..n] of real;procedure wwod(var x:mass); {процедура ввода}var i, j : integer; begin for i := 1 to m do for j := 1 to n do begin writeln(‘Введите элемент под № ‘, i, ‘ ‘,j); readln(x[i,j]); end; end;{для проверки выводим что получилось}procedure wiwod(x:mass);var i, j : integer; begin for i := 1 to m do begin for j := 1 to n do begin write(x[i, j]:3:1, ‘ ‘); end; writeln; end; end;{основная программа}vara : mass;begin wwod(a); wiwod(a); readln;end.
Форма ответа