Заменить в матрице все элементы на их квадратный корень - 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.

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

  1. В программе объявляются переменные N, M и i, которые будут использоваться для работы с матрицей.
  2. Объявляется переменная a, которая представляет собой матрицу размером N на M.
  3. Строка Randomize; используется для инициализации генератора случайных чисел.
  4. В цикле for i:=1 до N выполняется следующая последовательность действий:
    • В цикле for j:=1 до M вычисляется случайное число от 5 до 20 и присваивается переменной a[i,j].
    • Строка write(a[i,j],' '); выводит значение a[i,j] на экран.
  5. После завершения внутреннего цикла for i:=1 до N выполняется вывод строки writeln;.
  6. Затем начинается второй цикл for i:=1 до N.
    • В цикле for j:=1 до M вычисляется квадратный корень из значения a[i,j] и присваивается переменной a[i,j].
    • Строка write(' ',a[i,j]); выводит значение a[i,j] на экран.
  7. После завершения внутреннего цикла for j:=1 до M выполняется вывод строки writeln;.
  8. Программа завершается.

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

7   голосов , оценка 4.143 из 5
Похожие ответы