Заменить все отрицательные элементы матрицы на их квадраты - Turbo Pascal (33766)
Формулировка задачи:
Составить программу обработки двухмерного массива,оформив ввод/вывод и обработки элементов массива в виде подпрограмм.Заменить все отрицательные элементы массива K(n,m) на их квадраты,положительные на корень из данного числа
????????????????????
помогите плиз!!!!!!!
Решение задачи: «Заменить все отрицательные элементы матрицы на их квадраты»
textual
Листинг программы
program ps2; Var i,j:integer; A:array[1..3,1..3] of integer; Begin For i:=1 to 3 do Begin For j:=1 to 3 do Begin A[i,j]:=random(10)+10; write(A[i,j]:3); End; writeln; End; writeln; For i:=1 to 3 do Begin For j:=1 to 3 do Begin If A[i,j] > 0 then A[i,j]:=exp(ln(A[i,j]) div 2) (Вот тут ругается, не могу понять почему?) Else A[i,j]:=(A[i,j]*A[i,j]); End; End; For i:=1 to 3 do For j:=1 to 3 do write(A[i,j]:3); End.
Объяснение кода листинга программы
В данном коде используется язык программирования Turbo Pascal. Он содержит двумерный массив целых чисел A размером 3x3, который заполняется случайными числами от 1 до 10. Затем происходит замена всех положительных элементов матрицы на их квадраты. Если элемент матрицы положительный, то он заменяется на результат возведения этого элемента в степень, равную половине логарифма по основанию 10 от этого элемента. Если элемент отрицательный, то его заменяют на квадрат этого числа. После замены всех элементов матрицы, значения каждого элемента выводятся на экран.