Тема: Задача з двома підпрограмами
Допоможіть будь ласка з задачею, бо не виходить зробити.
Задано квадратну матрицю (двовимірний масив) А розміром kхk, де k = ( m+n ) mod 3+3, (m − 21, n − 2).
Елементи матриці обчислити за виразом
Аi,j = (k /2 − i +0,3)*( j − k +5*n )*sin j, де i=1,…,k; j=1,…,k.
Скласти блок-схему алгоритму і програму обробки матриці, яка б містила дві підпрограми:
• обчислення елементів матриці та вивід її на екран;
• обчислення величин, наведених в iндивiдуальному варiантi завдання, та вивід їх на екран.
Умова завдання:
Обчислити суми додатних елементів головної діагоналі і першого рядка.
Я зміг зробити першу частину задачі(можливо не вірно), а друга не виходить
Program zadacha_5;
const n=2; m=21; k=(m+n)mod 3+3;
TYPE ARR=ARRAY[1..k,1..k] of real;
var A:ARR;
i,j:integer; s,x:real;
//Procedure MAS (var A:ARR);
//var i,j: integer;
begin
writeln('початкова матриця');
for i:=1 to k do
begin
for j:=1 to k do
begin
A[i,j]:=(k/2-i+0.3)*(j-k+5*n)*sin(j);
write (' A[',i,',',j,']=' ,A[i,j]:5:2,'');
end;
writeln;
end;
end.
