Получить квадратную матрицу заданного вида - Pascal (250067)

Формулировка задачи:

14. Дано действительное число х. Получить квадратную матрицу порядка 10 вида, середина которой заполняется нулями.

Решение задачи: «Получить квадратную матрицу заданного вида»

Листинг программы

const n=10;
var a:array[1..n,1..n] of real;
    i,j:integer;
    x,ch,ch1:real;
begin
randomize;
x:=1+random;
writeln('x=',x:0:2);
ch:=1;
for i:=1 to n do
 begin
  for j:=1 to n do
    begin
     a[i,j]:=0;
    end;
  ch:=ch*x
 end;
ch:=ch/x;
ch1:=1;
for i:=1 to n do
 begin
   a[1,i]:=ch1;
   a[i,1]:=a[1,i];
   a[n,i]:=ch;
   a[i,n]:=a[n,i];
   ch:=ch/x;
   ch1:=ch1*x;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
   if a[i,j]=0
    then write(a[i,j]:7:0)
    else write(a[i,j]:7:2);
  writeln;
 end;
readln
end.

Объяснение кода листинга программы

Объявляются константы и переменные:
- n = 10 (размерность матрицы)
- a = array[1..n,1..n] of real (декларация двумерного массива a)
- i, j = integer (объявление переменных i и j для использования в циклах)
- x, ch, ch1 = real (объявление переменных x, ch и ch1 для использования в вычислениях)
Выполняется инициализация случайным значением переменной x: x := 1 + random
Выводится значение переменной x: writeln('x=', x:0:2);
Инициализируются значения переменных ch и ch1: ch := 1 ch1 := 1
Заполняется матрица a нулями: for i := 1 to n do begin for j := 1 to n do begin a[i, j] := 0; end; end;
Переменная ch умножается на x: ch := ch * x
Переменная ch1 умножается на x: ch1 := ch1 * x
Значения переменных a[1,i], a[i,1], a[n,i] и a[i,n] инициализируются значениями переменных ch1 и ch: for i := 1 to n do begin a[1, i] := ch1; a[i, 1] := a[1, i]; a[n, i] := ch; a[i, n] := a[n, i]; end;
Значения переменных a[i,j] выводятся на экран: for i := 1 to n do begin for j := 1 to n do begin if a[i, j] = 0 then write(a[i, j]:7:0) else write(a[i, j]:7:2); end; end;
Выводится символ новой строки: writeln;
Программа ожидает ввода данных с помощью функции readln: readln;