(Фрагменты программ)
Ввод в столбец с комментариями:
WRITELN(‘Введите кол-во строк: ’);
Readln(N);
WRITELN(‘Введите кол-во столбцов: ’);
Readln(М);
For I:=1 to N do
For J:=1 to M do
Begin
WRITE(‘A[‘, I, ‘, ‘, J, ’]=’); Readln(A[I,J]);
end;
Ввод в виде таблицы (построчно):
WRITELN(‘Введите кол-во строк: ’);
Readln(N);
WRITELN(‘Введите кол-во столбцов: ’);
Readln(М);
For I:=1 to N do
For J:=1 to M do
Begin
Readln(A[I,J]);
end;
Генерация элементов массива с помощью функции случайных чисел:
WRITELN(‘Введите кол-во строк: ’);
Readln(N);
WRITELN(‘Введите кол-во столбцов: ’);
Readln(М);
Randomize;
For I:=1 to N do
begin
For J:=1 to M do
Begin
A[I,J]:=Random(100)-50;
WRITE(A[I,J]:4);
end;
WRITELN;
end;
Вывод матрицы по строкам:
For I:=1 to N do
begin
For J:=1 to M do
Begin
WRITE(A[I,J]:4);
end;
WRITELN;
end;
ПРИМЕР: Сформировать таблицу умножения и вывести её на экран.
Очевидно P[i,j]=i*j;
Где P[i,j] – элемент массива i-ой строки и j-того столбца,
Реализацию этого алгоритма следует выполнить двумя вложенными циклами: внешний – для формирования строк, внутренний – для формирования столбцов.
Вывод на экран производим в виде прямоугольной таблицы.
Program Pifagor;
Var P : array[1..9,1..9] of byte;
i, j : byte;
BEGIN
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.
ЗАДАНИЯ ДЛЯ ВЫПОЛНЕНИЯ:
