Консультация № 138558
29.05.2008, 19:44
0.00 руб.
0 1 1
Написать процедуру для вывода на экран двумерного массива размерностью 3 x 3 в виде матрицы.

Обсуждение

давно
Профессор
401888
1232
30.05.2008, 16:50
общий
это ответ
Здравствуйте, Степанов Александ Сергеевич!
Решение с пояснениями в приложении.

Приложение:
uses crt;const n=3;type Tmatr=array[1..n,1..n]of integer;{тип матрицы}var i,j:integer; a:Tmatr;Procedure Vvod(var mt:Tmatr);{процедура ввода}beginwriteln(‘Vvedite ‘,n*n,‘ chisel‘);for i:=1 to n dofor j:=1 to n doreadln(mt[i,j]); {вводим столбиком числа}clrscr; {очищаем экран}writeln(‘Matrica:‘); {выводим матрицу в виде таблицы}for i:=1 to n do begin for j:=1 to n do write(mt[i,j]:4); writeln; end;end;begin {начало программы}clrscr;Vvod(a); {вызов процедуры}readlnend.
Форма ответа