Читайте также:
|
program z03;
type SM=array[1..5,1..5] of real; 
опис типу для матриці
B=array [1..5] of real; 
опис типу для вектора
var A:sm; X:B; g:real; 
{опис глобальних зміних }
procedure procedure_A(var At:sm);
var i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
begin
for j:=1 to 5 do
write(' ', at[i,j]:4:4);
writeln;
end;
readln;
end;
procedure procedure_X(At:sm; var Xt:B);
Підпрограма –процедура обчислення вектора Х(х1,х2,..,х5), кожен елемент якого визначається як сума парних елементів рядка.
var i,j:integer;
begin
for i:=1 to 5 do
begin xt[i]:=0;
for j:=2 to 5 do
begin
xt[i]:=xt[i]+at[i,j];
j:=j+1;
end;
end;
for i:=1 to 5 do
write(' ',xt[i]:4:4);
readln;
end;
procedure procedure_G(Xt:B;var Gt:real);
Підпрограма обчислення значення функції G
var i,k:integer; p,s:real;
begin
for i:=1 to 5 do
begin
p:=1;
for k:=1 to i do
p:=p*(xt[k]/factorial(k));
gt:=gt+(sin(xt[i])-p)
end;
end;
{Головна програма}
begin
procedure_A(A);
procedure_X(A,X);
procedure_G(X,G);
writeln;
writeln(' ret:',g:4:4);
readln;
end.
Дата добавления: 2015-01-29; просмотров: 118 | Поможем написать вашу работу | Нарушение авторских прав |