Search:

ί :

- 1 - ;

- 2.3 - ;

- 3 - ;

- 4 23 - ;

- 24 - ;

- 29 -

- 30 -

- 31 35 -

- 36, 38, 48 ,49- ' ;

- 58 - ;

- 50 59 - ;

- 60 - , 50 ;

- 61- .

. : () (<=5) , . : GOSUB 3000.

: : N - .

10 . : . : I%, J%, L%, K%. : . : :

N N X ;

N,X ;

I%, J%, L%, K% , .

: , , .

{ . }

{ -2

Program student (input,output);

uses

crt, student, printer ;

const

n-3; f-50;

type

mas=[1..3,1..3] of real;

var

i,j,k:integer;

y,b1,al,cmax,t,xl:real;

a,b,c:dvmr;

x:array[l.,50] of real;

begin

writeln(' ');

for i:=l to n do

for j:=l to n do {² ֲ }

begin

writeln (' a[',i,',j,']=');

readln (a[ij])

end;

writeln (' b);

for i:=1 to n do

for j:=1 to n do {² ֲ }

begin

writeln (' b[',,',',j,']=');

readln (b[i,j])

end;

for i:=1 to n do

for j:=l to n do { , }

c[i,j]:=a[i,j]+b[i,j];

cmax:=c[l,l];

for i:=l to n do

for j:=l to n do

if c[i,j]>=cmax then { ֲ }

begin

cmax:=c[i,j];

k:=J

end;

for i:=l to n do

al:=al+c[i,k];

writeln (1st,' Ҳ

ֲ ̒}

writeln (lstal=',al:8:4); bl:=det(b,n);

writeln (1st,' ֲ ');

writeln (lst,'bl=',bl:8:4);

for i:=l to f do begin

writeln (' [',,']-');

readln( x[i]) {² Ҳ X}

end;

writeln (1st,'--------------------------------------------------------------------------

writeln (1st,'*----------------x-------------------*---------------------------------

writeln (1st,'-------------------------------------------------------------------------

for i:-l to f do

begin

if x[i]>10 then t:=0,44 else t:=0,25;

y:-(l+sqr(x[i])*sin(t*x[i]/4))/(l,5+al*bl);

writeln (1st,'* ', x[i];8:3 , ' * ',y:8:3,'

writeln (1st, '-----------------------------------------------------------------------

end

end.

ϳ:

<<DET>>

Function Det (A: dvmr; N: integer): real;

Var i,j,k: integer;

d,y,w: real;

Begin

if (help_s=h) or (help_s=H) then begin ClrScr;

writeln (***********************************************);

writeln (* *);

writeln (* <<Det>> *);

writeln (* : *);

writeln (* N - *);

writeln (* A[i,j] - . *);

:
 1  2  3  4  5 


:

i

i i ii i : i , i ii i i . I . i i. i i i , ii ii . ᒺ ii i ...

""

, Prolog. ǒ , . , . : - ᒺ . , , . . - , . ...

1. Բֲ 2. Բֲ 3. Ͳ Ͳ ί ˲ ' , , ' 䳿 . ': ' . ϳ ' ...