Разбить код на функции - Free Pascal

Узнай цену своей работы

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

function reverce(s: string): string; 
var a:array[1..15,1..15]of Integer;
i,j,n:Integer;
begin
Randomize;
Write('Порядок квадратной матрицы:');
Readln(n);
Writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(100)-50;
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln('Полученная матрица:');
for i:=1 to n do 
begin
a[i,i]:=a[i,n-i+1];
for j:=1 to n do Write(a[i,j]:4);
Writeln;
end;
Readln;
end.
Нужно разбить код на функции. Спасибо большое

Решение задачи: «Разбить код на функции»

textual
Листинг программы
type mtr=array[1..15,1..15]of Integer;
procedure matrix(var a:mtr;var n:integer);
var i,j:integer;
begin
Write('Порядок квадратной матрицы:');
Readln(n);
Writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=Random(100)-50;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
end;
procedure preobr(var a:mtr;n:integer);
var i,j:integer;
begin
Writeln('Полученная матрица:');
for i:=1 to n do
 begin
  a[i,i]:=a[i,n-i+1];
  for j:=1 to n do
  Write(a[i,j]:4);
  Writeln;
 end;
end;
var a:mtr;
    n:Integer;
begin
Randomize;
matrix(a,n);
preobr(a,n);
readln
end.

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

  1. Объявление типа матрицы и процедуры для работы с ней.
  2. Ввод размера матрицы с помощью цикла и запроса на ввод.
  3. Вывод исходной матрицы на экран с помощью цикла и записи значений в матрицу.
  4. Ввод полученной матрицы с помощью цикла и записи значений в матрицу.
  5. Вывод полученной матрицы на экран с помощью цикла и записи значений в матрицу.

Оцени полезность:

12   голосов , оценка 3.833 из 5