Звітність / Інфогматика / lessen_11+

, .

3 -

.

Program DIL; Var x : real;

i : integer;

Begin readln(x); i:=0; Repeat

x:=x-3; i:=i+1 until x<3; write (i)

End.

1.3 ( FOR - TO - DO).

FOR :

FOR 1 2 DO Begin

); End;

: 1 2 -

).

, -

) ( )

. -

- . ( -

) 1 2 1.

2, .

.

. For , -

( ) , -2.

.

10 20

.

Program Kvadrat; var i,s:integer;

Begin

For i:=10 to 20 do begin

s:=sqr(i);

writeln(‘i=‘,i:3,’ i*i=‘,s) end

End.

1.4 (For - Downto - Do).

For :

FOR 1 DOWN 2 DO Begin

); End;

: 1 2 -

).

, -1 2. -

) 1 2 -1.

3. . -

.

) .

TurboPascal

:

1. ! (190(1))

Program z1;

var k, i : integer;

y : longint;

begin readln(k); y:=1;

for i:=1 to do

:= ; writeln ( );

end.

2. (189(3)).

= (1+2) + (1+2+3) + (1+2+3+4) +....+ (1+2+....+50)

Program z2;

var k, i, s, y : integer; begin

y:=3;

k:=0;

s:=3;

for i:=3 to 50 do begin

k:=k+i;

y:=3+k;

s:=s+y;

, .

end; writeln (s);

end.

3. n :

Begin Readln(n); Y:=1; I:=1; K:=0;

While I<=n do Begin

K:= k+sqrt(i); Y:=y*(10*sin(i))/k;

I:=I+1

End;

Writeln('y=',y:6:3)

End.

) (1 )

1. :

)

4. : .5, §2.4, .2 " ". . ,

. , .

:

n. bi =

5. . .

34

: ( ) -

.

.

: -

.

-

.

.

:

1. .

-.

-TurboPascal.

-.

2., .

.

-

,

.

) .

- ,

.

- .

- . -

-

.

.

1.var :array[m..n] of ;

m,n - .

A:array[1..9] of integer; C:array[4..12] of real;

2.type =array[m..n] of

var ;

:

type TAB=array[1..9] of integer; var A:TAB;

( ).

:

[4], A[8], C[11]

, -

.

-

:

Program DOBUTOK;

Var A:array[1..9] of real; d: real;

i: integer;

Begin

For i:=1 to 9 do begin

writeln(‘ ’); write(‘A[‘,i,’]=‘);

readln(A[i]);

end; { } d:=1;

For i:=1 to 9 do d:=d*a[i]; { } writeln(‘d=‘,d)

End.

, m- n-

. -

.

, .

var :array[m..k,n..h] of ;

:

var A[1..4,1..9] of real;

-

- .

-

.

116 .

., .

Program DOBUTOK;

Var A:array[1..9,1..6] of real; d: real;

i,j: integer;

Begin

For i:=1 to 9 do For j:=1 to 6 do begin

write(‘A[‘,i,’,’,j,’]=‘);

readln(A[i,j]);

end;

d:=1;

For i:=1 to 9 do For j:=1 to 6 do d:=d*a[i,j]; writeln(‘d=‘,d)

End.

3. .

. . -

).

TurboPascal

:

-,

. z = 300 +

random(50) * random(m), m 1 12.

Program Z1;

var z : array [1..12] of real; m: integer;

sz, s: real;

begin

for m:=1 to 12 do

z[m]: =300 + random(50) * random(m); s:=0;

for m:=1 to 12 do s:=s+z[m];

sz:= s/m writeln('sz=',sz:0:2);

end.

-, ,

R= 5 , 0 20 2 .

.

4. : .5, §2.8, 2.9, .2 " ". . -

, . , .

. 5. . .

35

: : " -

"

: -

: " -

",

.

1..

2.. -

.

,

. Turbo Pascal, , : Z01_R4, .

1..

2..

3..

4., -

.

1., , .

.

2.: write(x:0:2), writeln(x:6:3);

3., - , -

.

4., -

– .

1., ?

2.? .

3., -

. -

.

, .

4. =3 2-sin(2x),

0 10 0,1. -

.

1. , ? 2. -

.

3. S=1/1!+1/2!+…+1/k!

4. :

25x 20 2 ,20 x

x 5

3..

4.: .

.

1. , =2 ,

-5 5 1.

- WHILE}

2. , =2 ,

-5 5 1.

- REPEAT} Program z1;

3. , =2 ,

-5 5 1.

- FOR} Program z1;