Блок-схеми програм
С
кладемо
блок-схему підпрограми обчислення
елементів матриці за формулою
(i=1,2,…,5; j=1,2,…,5).
С
кладемо
блок-схему підпрограми формування
вектора Х(х1, х2,
х3, ..., х5),
кожен елемент якого визначається, як
добуток елементів головної діагоналі
та третього стовпця матриці.
Складемо блок-схему підпрограми обчислення значення функції G за формулою
Тексти підпрограм
Підпрограма-процедура обчислення елементів матриці за формулою (i=1,2,…,5; j=1,2,…,5).
Procedure mas(var a:arr);
var i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
a[i,j]:=exp((3.4-i)*ln(2))*j+ln((2+i*j)/(j+i))/ln(10);
write('A[',i,',',j,']=',a[i,j]:5:2,' ');
end;
writeln;
end;
writeln;
end;
Підпрограма-процедура обчислення вектора Х(х1, х2, х3, ..., х5), кожен елемент якого визначається, як добуток елементів головної діагоналі та третього стовпця матриці.
Procedure vector(a:arr;var x:array of real);
var i:integer; d:real;
begin
d:=1;
for i:=1 to 5 do d:=d*a[i,i];
for i:=1 to 5 do
begin
x[i]:=d*a[3,i];
writeln('X[',i,']=',x[i]);
end;
writeln;
end;
Підпрограма-процедура обчислення обчислення значення функції G за формулою
Procedure func(x:array of real; var g:real);
var k,i:integer; s:real;
begin
g:=1;
for i:=1 to 5 do
begin
for k:=1 to i do s:=x[k];
g:=g*(cos(s)+x[i]/(i+1));
end;
writeln('G=',g);
end;
Текст програми
program kursova;
Uses crt;
type arr=array[1..5,1..5] of real;
var
a:arr;
x:array[1..5] of real;
g:real;
Procedure mas(var a:arr);
var i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
a[i,j]:=exp((3.4-i)*ln(2))*j+ln((2+i*j)/(j+i))/ln(10);
write('A[',i,',',j,']=',a[i,j]:5:2,' ');
end;
writeln;
end;
writeln;
end;
Procedure vector(a:arr;var x:array of real);
var i:integer; d:real;
begin
d:=1;
for i:=1 to 5 do d:=d*a[i,i];
for i:=1 to 5 do
begin
x[i]:=d*a[3,i];
writeln('X[',i,']=',x[i]);
end;
writeln;
end;
Procedure func(x:array of real; var g:real);
var k,i:integer; s:real;
begin
g:=1;
for i:=1 to 5 do
begin
for k:=1 to i do s:=x[k];
g:=g*(cos(s)+x[i]/(i+1));
end;
writeln('G=',g);
end;
begin
clrscr;
mas(a);
vector(a,x);
func(x,g);
readln;
end.
Результати роботи програми
Елементи матриці
A[1,1]= 5.45 A[1,2]=10.68 A[1,3]=15.93 A[1,4]=21.19 A[1,5]=26.46
A[2,1]= 2.76 A[2,2]= 5.45 A[2,3]= 8.12 A[2,4]=10.78 A[2,5]=13.43
A[3,1]= 1.42 A[3,2]= 2.84 A[3,3]= 4.22 A[3,4]= 5.58 A[3,5]= 6.92
A[4,1]= 0.74 A[4,2]= 1.54 A[4,3]= 2.28 A[4,4]= 2.99 A[4,5]= 3.69
A[5,1]= 0.40 A[5,2]= 0.89 A[5,3]= 1.32 A[5,4]= 1.71 A[5,5]= 2.08
Елементи вектора
X[1]= 1.1071339266E+03
X[2]= 2.2223187478E+03
X[3]= 3.2999154897E+03
X[4]= 4.3608375149E+03
X[5]= 5.4128022004E+03
Значення функції
G= 2.9549566371E+11