Заменить в матрице все элементы на их квадратный корень - Turbo Pascal
Формулировка задачи:
Помогите написать программу,которая заменяет в двумерном массиве целых чисел все элементы массива на квадратный корень из этого элемента) Заранее спасибо
Решение задачи: «Заменить в матрице все элементы на их квадратный корень»
textual
Листинг программы
program pr; uses crt; const N=5;M=5; var i,j:integer; a: array [1..N,1..M] of integer; begin Randomize; For i:=1 to N do Begin For j:=1 to M do begin a[i,j]:=Random(20)+5; write(a[i,j],' '); End; writeln; End; writeln; For i:=1 to N do Begin For j:=1 to M do begin a[i,j]:= sqrt (a[i,j]); write(' ',a[i,j]); end; writeln; end; end.
Объяснение кода листинга программы
- В программе объявляются переменные N, M и i, которые будут использоваться для работы с матрицей.
- Объявляется переменная a, которая представляет собой матрицу размером N на M.
- Строка
Randomize;
используется для инициализации генератора случайных чисел. - В цикле for i:=1 до N выполняется следующая последовательность действий:
- В цикле for j:=1 до M вычисляется случайное число от 5 до 20 и присваивается переменной a[i,j].
- Строка
write(a[i,j],' ');
выводит значение a[i,j] на экран.
- После завершения внутреннего цикла for i:=1 до N выполняется вывод строки
writeln;
. - Затем начинается второй цикл for i:=1 до N.
- В цикле for j:=1 до M вычисляется квадратный корень из значения a[i,j] и присваивается переменной a[i,j].
- Строка
write(' ',a[i,j]);
выводит значение a[i,j] на экран.
- После завершения внутреннего цикла for j:=1 до M выполняется вывод строки
writeln;
. - Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д