РАБОТА С ДВУМЕРНЫМ МАССИВОМ. Составить схему алгоритма и программу решения задачи обработки двумерного массива.

Задание 9

Составить схему алгоритма и программу решения задачи обработки двумерного массива.

№

Сформировать матрицу, недиагональные элементы которой равны удвоенным элементам матрицы А, а диагональные элементы равны нулю:

.

const n=3;

var a:array[1..n,1..n] of real;

i,j:integer;

begin

for i:=1 to n do

for j:=1 to n do

readln(a[i,j]);

for i:=1 to n do

for j:=1 to n do

begin

if (i=j) or (i=n-j+1) then a[i,j]:=0

else

a[i,j]:=2*a[i,j];

end;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]:4:1,' ');

writeln;

end;

readln;

end.

ОРГАНИЗАЦИЯ ПРОГРАММ, СОДЕРЖАЩИХ ФУНКЦИИ ПОЛЬЗОВАТЕЛЯ

Задание 10

Составить программу вычисления функции W, используя функции пользователя.

№

function z(x,y:real):real;

begin

z:=exp(1/4*ln(sqr(cos(x))+sqr(cos(y))));

end;

var a,b,c,d,w:real;

begin

write(“Введите A:”);

readln(a);

write(“Введите B:”);

readln(b);

write(“Введите C:”);

readln(c);

write(“Введите D:”);

readln(d);

w:=z(a,b)-z(c,d)-ln(1+z(b,c));

writeln(w:12:11);

readln;

end.