Разбить код на функции - 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.
Объяснение кода листинга программы
- Объявление типа матрицы и процедуры для работы с ней.
- Ввод размера матрицы с помощью цикла и запроса на ввод.
- Вывод исходной матрицы на экран с помощью цикла и записи значений в матрицу.
- Ввод полученной матрицы с помощью цикла и записи значений в матрицу.
- Вывод полученной матрицы на экран с помощью цикла и записи значений в матрицу.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д