Читайте также:
|
1.1.Підпрограма-процедура обчислення елементів матриці за формолою:
Ai,j=3i-j+ 
.
Procedure procedure_A(var At:sm);
Var i,j:integer;
Function factorial(n:integer):integer;
Var t:integer;
Begin
If (n=0) then factorial:=1
Else
Factorial:=n*factorial(n-1);
End;
Begin
For i:=1 to 5 do
For j:=1to 5 do
At[I,j]:=exp(i-j)/exp(3)+i/factorial(j);
For i:=1 to 5 do
Begin
For j:=1 to 5 do
Write(‘ ‘,At[i,j]:4:4);
Writeln;
End;
Readln;
End;
1.2. Підпрограма – процедура обчислення вектора Xі (і=1,..2;...5), кожен елемент якого визначається як сума парних елементів рядка.
Procedure procedure_X (At:sm; var Xt:B);
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:=k+1;
End;
End;
For i:=1 to 5 do
Write (‘ ‘,xt[i]:4:4);
Readln;
End;
1.3. Підпрограма обчислення значення функції G за формолою:
G = 
Procedure procedure_G(Xt:B; var Gt:real);
Var I,j,k:integer; S,P:real;
Begin
For I:=1 to 5 do
Begin
P:=1;
For k:=1 to I do
P:=P*(Xt[k]+k);
Gt:=Gt+P/(6+Xt[I]);
End;
End;
Текст програми (основної)
Program cursova;
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;
Function factorial(n:integer):integer; {додаткова ф-я обчислення фак-лу}
Var t:integer;
Begin
If (n=0) then factorial:=1
Else
Factorial:=n*factorial(n-1);
End;
Begin
For I:=1 to 5 do
For j:=1to 5 do
At[I,j]:=exp(I-j)/exp(3)+i/factorial(j);
For I:=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);
Підпрограма – процедура обчислення вектора X(x1,x2,…,x5), кожен елемент якого визначається як сума парних елементів рядка.
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:=k+1;
End;
End;
For I:=1 to 5 do
Write (‘ ‘,xt[I]:4:4);
Readln;
End;
Procedure procedure_G(Xt:B; var Gt:real);
Var i,j,k:integer; S,P:real;
Begin
For i:=1 to 5 do
Begin
P:=1;
For k:=1 to I do
P:=P*(Xt[k]+k);
Gt:=Gt+P/(6+Xt[I]);
End;
End;
Function f(x:real; a:B):real;
Begin
f:=(a[1]+a[2]*x+a[3]*sqr(x)+a[4]*sqr(x)*x+a[5]*sqr(sqr(x)));
end;
Дата добавления: 2015-01-29; просмотров: 30 | Поможем написать вашу работу | Нарушение авторских прав |