Основы применения вычислительной техники и программирование. Беспалов В.В. - 52 стр.

UptoLike

Составители: 

Заполнение всех элементов матрицы при помощи ввода с клавиатуры:
for i:=1 to 5 do
for j:=1 to 6 do
begin
write(‘a[’,i,‘,’,j,‘]=’);
readln(a[i,j]);
end;
6.2.2. Вывод матрицы на экран
Вывести на экран матрицу 5 × 6 можно следующим образом:
for i:=1 to 5 do
begin
for j:=1 to 6 do
write(a[i,j]:4); {вывод строки}
writeln; {перевод на новую строку}
end;
6.2.3. Работа с матрицами
Работа с матрицами осуществляется также поэлементно.
Пример 6.2. Сформировать таблицу Пифагора (таблица умноже-
ния) и вывести ее на экран.
program pifagor;
uses crt;
var p:array [1..9,1..9] of integer;
i,j:integer;
begin
Clrscr;
for i:=1 to 9 do
for j:=1 to 9 do
p[i,j]:=i*j;
for i:=1 to 9 do
begin
for j:=1 to 9 do
write(p[i,j]:4);
writeln;
end;
end.
53