.


:




:

































 

 

 

 





.

. , .

, , , , . :

();

();

();

();

();

6.0 ().

 


 

26) goto - . , , - , . . , : goto 12, , : goto raschets.

goto , . , .

. . , , . end . :

label Metka;

...

begin

...

goto Metka; ( )

...

Metka: ( )

end.

- Read(<_>) ReadLn(<_>).

, , - . .

- , . ,

ReadLn(k, x, c, s); {k: Byte; x: Real; c: Char; s: String}

, .

, - Enter. , . , , Enter - , - , ( ).

, . .

, ( ). - Boolean-, : , . :

repeat

WriteLn(' ? y - , n - ');

ReadLn(c); {c: Char}

case c of

'y': b:= True;

'n': b:= False;

else WriteLn('!');

end;

until (c = 'n') or (c = 'y');

: , , . Enter, .

- , - , Write(<_>) WriteLn(<_>).

, , , , .

- , , . , :

WriteLn(a, ' ', b, ' ', c);

( ) :

WriteLn(a: 5, b, c: 20: 5);

: , , - . .

, , . , . , , .

, a = 25, b = 'x', c = 10.5, WriteLn(a: 5, ' ', b, c: 10: 5) ( ):

_ _ _25_x_ _10.50000

. , , 10.5 1.0500000000+0001. .

, , ( , ), . 10 ( _x.xE+yyyy). -.

27) A ( ) , . .

.

: (.1.)

28)

, - . . - . , (, ..). , , .

;.

:

a:= 10; b:= a*5; Write(a, b);

- , , .

, BEGIN, END. BEGIN END .

:

BEGIN
a:= 10;
b:+ a*5;
Write(a, b)
END;

. , .. .

: , , . () : , .


 

30. : , .

:

Repeat

[ ];

Until < >;

, .

: , , ( ).

: , .

:

While < > do [][;]

[ Begin ]

[ ];

[ End ];

:

1. , , ( ), .

2. .

: ( ) , , .

, for.





:


: 2017-02-11; !; : 403 |


:

:

: , , , , .
==> ...

1689 - | 1544 -


© 2015-2024 lektsii.org - -

: 0.014 .