.


:




:

































 

 

 

 


Read(r, r, i, i); Read(ch, ch);




Enter.

:

Write(A1,A2,...AK);

WriteLn(A1,A2,...AK);

WriteLn;

1, 2,..., . 1, 2,..., . .

, , , , . .

, .

: , - , - , - TRUE FALSE.

. :, - , - . , , . , . ::, - , - , - . - . .

:

..

var rA, rB: Real;

iP,iQ:Integer;

bR, bS: Boolean;

chT, chV, chU, chW: Char;

WriteLn(rA, rB:10:2);

WriteLn(iP, iQ:8);

WriteLn(b, b:8);

WriteLn(ch, ch, ch, ch);

, . , , , , . :

Goto 218;

̳ (:)

218:X:=2*A;

' .

:

;

.

If (B) then OP1;

: B , 1, , . B , , .

 
 

:

:

if a+1<0 then x:=x+1;

1 , begin ... end :

if a+1<0 then begin x:=x+1; y:=2*x; z:=x+y end;

If (B) then OP1 else OP2;

: B , 1, , . B , OP2, , .

:

 
 

:

if a+1<0 then x:=x+1 else x:=x-1;

( 1 2):

if a+1<0 then

begin

x:=x+1;

k:=a+b

End

Else

begin

x:=x-1;

k:=a-b

End;

. :

if a-1<10 then goto 4;

2.4.5

, . :

;

;

;

;

.

.

2.4.5.1

. , y=2*x2-5*x 3 45 1. , , :

x:=3; { 1 - }

1:y:=2*x*x-5*x; { 2 - }

x:=x+1; { 3 - }

if x<46 then goto 1; { 4 - }

2.4.5.2

, 1, 3, 4 . :

for x:=xn to xk do OP1;

xn - ;

xk - ;

OP1 - .

:

for x:=3 to 45 do y:=2*x*x-5*x;

, .

. , +1. 1 :

for x:=xn downto xk do OP1;

xn = xk, . xn < xk xn > xk , .

, 1, . , 0,5. :

x:=0; { }

mkr:=45/0.5; { ()}

mk:=Trunc(mkr); { }

for m:=1 to mk do { }

Begin

y:=2*x*x-5*x; { }

x:=x+0.5 { }

End;

2.4.5.3

( ) . , y=2*x2-5*x, =0 0,3 , 500. 1 . :





:


: 2016-03-27; !; : 349 |


:

:

- , - .
==> ...

1613 - | 1534 -


© 2015-2024 lektsii.org - -

: 0.014 .