|
Ввод и вывод
Ввод матрицы:
CONST
kol_strok=5;
kol_stolbcov=4;
VAR
A:array[1..kol_strok,1..kol_stolbcov] of Real;
i,j:integer;
BEGIN
for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do
Read(A[i,j]);
END.
|
CONST - слово, которое "говорит" программе, что далее будут объявлены константы
kol_strok - переменная, в которой будет храниться количество строк
kol_stolbcov - переменная, в которой будет храниться количество столбцов
VAR - слово, которое "говорит" программе, что далее будут объявлены переменные, которые используются в программе, и их тип
A - массив, содержащий kol_strok строк kol_stolbcov столбцов, состоящий из REAL (действительных чисел)
i,j - INTEGER (целочисленные) переменные
BEGIN - начало программы
for i:=1 to kol_strok do - "для i от 1 до kol_strok делать", т.е. следующий оператор будет выполняться для i=1,2,3,...,kol_strok
for j:=1 to kol_stolbcov do - "для j от 1 до kol_stolbcov делать", т.е. следующий оператор будет выполняться для j=1,2,3,...,kol_stolbcov
Read(A[i,j]) - запрос на ввод значения элемента матрицы А, стоящего на пересечении i-ой строки и j-го столбца
END. - конец программы
Автоматическое случайное присваивание значений из промежутка [-100;100]:
CONST
kol_strok=5;
kol_stolbcov=4;
VAR
A:array[1..kol_strok,1..kol_stolbcov] of integer;
i,j:integer;
BEGIN
Randomize;
for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do
A[i,j]:=Random(101)-Random(101);
END.
|
Randomize; - нужно, чтобы при использовании Random получались разные значения
Random(101) - случайное целое из промежутка [0;101)
Вывод матрицы:
for i:=1 to kol_strok do
begin
for j:=1 to kol_stolbcov do
Write(A[i,j]:4:2,' ');
Writeln;
end;
|
Write(A[i,j]:4:2,' ') - вывод на экран элемента матрицы А, стоящего на пересечении i-ой строки и j-го столбца, 4 позиции для числа, 2 позиции после запятой и пробел
Writeln - переход на следующую строку
Пример программы:
Program Primer;
USES CRT;
CONST
kol_strok=5;
kol_stolbcov=4;
VAR
A:array[1..kol_strok,1..kol_stolbcov] of Real;
i,j:integer;
BEGIN
Writeln('Введите элемента матрицы А:');
for i:=1 to kol_strok do
for j:=1 to kol_stolbcov do
Read(A[i,j]);
ClrScr;
Writeln('Матрица А:');
for i:=1 to kol_strok do
begin
for j:=1 to kol_stolbcov do
Write(A[i,j]:4:2,' ');
Writeln;
end;
Readln;
END.
|
|