Ввод и вывод

Ввод матрицы:

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.


Hosted by uCoz