.


:




:

































 

 

 

 


( )




, : true () false (). 1, . :

Var A: Boolean;

: not, and, or, xor.

, . , 1 . Char . ( ):

1. , : W, V, ;

2. , 0 255.

3. ^K, K . K 64 .

:

Succ(x) ;

Pred(x) ;

Ord(x) ;

Chr(x) ;

UpCase(x) a..z .

ASCII.

, String. ( ) 255. , 255 . :

Var <_>: string[< >];

(). 0, , , , 1 . 1, , S=stroka, S[1]=s;. .

. , .

:

Type Day=(Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday);

Var A: Day;

A Type. Var:

Var A: (Monday, Tuesday);

, , Monday<Tuesday<Wednesday . . succ, pred, ord, inc dec, : A:=Tuesday;

, . m..n, m () , n (); m n , , , . ,

. ,

+
-
*
div ( ). ( ).
mod ( ). : a mod b = a ((a div b) * b).

.

=
<>
>=
>
<=
<

 

abs(x) x ( x)
sqr(x) x
succ(x) x (x+1)
pred(x) x (x-1)
random(x) 0..x-1.
sin(x) x ( )
cos(x) x ( )
arctan(x) x ( )
ln(x) x
exp(x) x
sqrt(x) x
odd(x) true, x ; false .

 

.

 

9 . READ. WRITE. .

.

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

.

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

() /:

READ ()

WRITE ().

INPUT () OUTPUT () . /.

 

:

WRITE (A1, A2,, AN); - A1, A2,, AN ;

WRITELN (A1, A2,, AN); - A1, A2,, AN ;

WRITELN; - .

:

;

;

;

;

.

(- ) (- ).

:

READ (A1, A2,, AN); - N A1, A2,, AN;

READLN (A1, A2,, AN); - N A1, A2,, AN ;

READLN; - .

:

;

;

;

.

 

10 . IF. REPEAT. WHILE.

, . :

;

IF;

CASE;

REPEAT;

WHILE;

FOR;

WITH.

:

, begin end:

begin

< 1>;

< 2>;

...

< N>

end;

 

IF:

.

A:=2; b:=5;

If a<b then write(a) else write(b);

 





:


: 2015-11-23; !; : 650 |


:

:

, .
==> ...

1536 - | 1441 -


© 2015-2024 lektsii.org - -

: 0.016 .