. , . c . . ( . , . , . . . : Read, Write, , , , . , , , ( ).
-
- , . - . , ( ). - :
Function <_> (1;...;n): < >;
|
End;
1;...;an - ( , ). , .
() . . - , .. , .
:
<_>(β1,β2,,βn),
|
|
β1,β2,,βn . : , ( ), , . ( , , ).
:
v
v
v
v
v
v .
, ..
1. =n.
Function rez1 (n:integer; x:real): real;
var i:integer;
begin
rez1:=1;
for i:=1 to n do
rez1:=rez1*x;
end;
2. y=ax.
Function rez2(x:real; a:real): real;
begin
Rez2:=exp(x*ln(a));
end;
2 . 1 .
n, x, i 1 -. , .. . , 2.
- . , , . , rez2 2 :
:=*rez2(n,);,
=*n. n .
2 - , , . () . , rez2 n x.
3. : A={ai}, i=[1..n], n=10 B={bk}, j=[1..m], m=7.
A B :
Z=an-bk, an bk A B, [c..d], c=-1,5; d=4,8.
A, B [c..d] .
:
.
.
PROGRAM Primer_3;
CONST n = 10; m=7; c=-1.5; d=4.8;
|
|
Type Vect= ARRAY [1.. n] OF Real;
VAR z: real;
Function F1(i:integer; ni,ki:real):real;
BEGIN
F1:=(cos(i)+sin(2.4*i))*(ki/ni)/(0.25*i);
End;
Function F2(j:integer; ni,ki:real):real;
BEGIN
F2:=ln(j)/ln(10)+j*j+ni/ki;
End;
Function Mass_kol(m,nf:integer; ni,ki:real):integer;
VAR i, R: INTEGER;
ab: vect;
BEGIN
Writeln(' ',nf:3,' ');
FOR i:= 1 TO m DO
BEGIN
If nf=1 Then ab[i]:=F1(i,ni,ki) Else ab[i]:=F2(i,ni,ki);
Write(ab[i]:7:2,' ');
End;
Writeln;
R:=0;
FOR i:= 1 TO m DO
If (ni<=ab[i]) and (ab[i]<=ki) Then R:=R+1;
Writeln(' ',nf:3,
' =',R:3);
Mass_kol:=R;
Writeln;
End;
BEGIN
Z:=Mass_kol(n,1, c,d)+ Mass_kol(m,2, c,d);
Writeln(' z= ',z:3);
End.
1
-15.56 9.04 0.84 2.65 0.65 -4.11 0.24 -0.32 0.75 2.23
1 = 7
2
0.69 3.99 9.16 16.29 25.39 36.47 49.53
2 = 2
z= 9
-
. :
Procedure <> (1;...;n);
|
|
End;
a1;;an . , ( ) ( ). Var.
5.
A={a[i,j]}, i,j=1,2,n :
; .
. , , -.
:
Program prim5_1;
Const n=7;
Type vect=array[1..n] of real;
matr=array[1..n,1..n] of real;
Var a:matr;
i,j:integer;
{ }
Procedure Matrica(n:integer; var A:matr);
var i,j:integer;
Begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=(2*j*i+4*i)/j;
End;
{ }
Begin
Matrica(n,a);
Writeln(' ':20,'MATPICA A');
for i:=1 to n do
Begin
for j:=1 to n do Write(a[i,j]:8:3);
writeln;
End;
End.
.
, :
Writeln( );
for i:=1 to n do
for j:=1 to m do
read (a[i, j]);.
. .
6: , :
4, 5, 10, 8, 0
7, 9, 25, 0, 1
= (5, 1.2, 0.1, 7, 8.6) = 3, 0, 6, 14, 5
0, 0, 0, 99, 12
:
Const X: array [1..5] of real = (5.0, 1.2, 0.1, 7.0, 8.6);
A: array [1..4, 1..5] of integer = ((4, 5, 10, 8, 0),
(7, 9, 25, 0, 1),
(3, 0, 6, 14, 5),
(0, 0, 0, 99, 12));.
7
A = { }, i, j=1, 2,..., N.
X = { }, i = 1, 2,..., N. i- A.
, N = 3 A
|
|
A = = .
, i- , j- , A .
,
- 2- (),
- 3- (),
{ }N - (),
{ }N - ().
( 6), xi :
= * + * + * = ;
= ;
.
:
, i = 1, 2,..., N (8)
. 13.
.13
..
Type vect=array [1..10] of real;
Matr= array [1..10,1..10] of real;
Procedure Vector_x(n:integer; a:matr; var x:vect);
Var i,j:integer; s:real;
Begin
For i:=1 to n do
Begin
S:=0;
For j:=1 to n do
S:=S+a[i,j]*a[j,j];
X:=S;
End;
End;
8.. ()
A B , , (M*N). () C (M*N). C = A + B = + = ,(9) ,i = 1, 2,...,M; j = 1, 2,..., N. (10) | . 14 |
. 14.
, " + " " - ".
9. =* m- .
Type Matr = array [1..10, 1..10] of real;
Var A, B, C: Matr;
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Procedure MultMat (n: integer; Mat1, Mat2:Matr; Var Mat3:Matr);
var i.k,j: integer;
begin
for i:=1 to n do
for j:=1 to n do begin
Mat3[i,j]:=0.0;
for k:=l to n do
Mat3[i,j]:=Mat3[i,j]+Mat1[i.k]*t2[k,j];
end;
end;
Mat1 Mat2 , . Mat3 , Var. i, j, k , .
, . , :
MultMat (m. A, B, );
.
. , .