.


:




:

































 

 

 

 





- not - ;

- and - ;

- or - ;

- r - .

8 - .

, .. , , , . , , , . . .

, . , , - .

, , , , ( ) .

. 3.

, , .

?????????????,

 

 

False () True (). Boolean,

. 0 254. ASCII, . Char.

, , . , : type

type of ' colors=(red, white, blue);

var

color: type_of_colors;

- , , -. - - <.>..<.>. :

var

date: 1..31;

month: 1..12;

,

.

, . . <>: array [<..>] of <>. <> - ; array, of - ; <..> - , ; <> - . :

var

a, b: array [1.. 10] of Real;

9 - .

. , . , .

- . : ^. .

- begin ( ) end ( ). . :

begin

a:=b+l;

c;=a*b;

end;

:

begin { }

begin { }

end; { }

end; { }

10 - - , .

Write WriteLn.

Write ('Coo6u{ 1', '62',!, 1,...); WriteLn (' 1' '2' 1, 1,...);

WriteLn Write , , .

Write WriteLn , ( ), ( ), ( ). :

WriteLn (' ',b*b-4*a*c); WriteLn ('xl = ',xl,' 2=',2);

WriteLn . , .

, :

WriteLn (' ',b:7:3);

, 7 - , 3 - . .

Read ReadLn.

Read(epel, 2,...);

ReadLn( 1, 2,...);

, ReadLn.

ReadLn(a, b, , d);

ReadLn(); Enter.

1 - ,

a

IProgram

ALPHA

block#l

MyProgramlsBestProgram

Date_27_sep_39

My Prog

_beta

Mod

2 - ,

READ WRITE

READ WRITE

READ WRITE

READ WRITE

3 , Y=X2

Program ru;

var

x,y:integer;

begin

write ('X=');

for x:= -3 to 3 do

begin

write (X:2);

end;

begin

Y:= sqr(X);

write ('Y=',Y);

end;

readln;

end.

4 ,

Program funkciya;

var

x, y, a, b: Integer;

begin

writeln ('Nachalo rascheta phunkcii Y=a*X^2+b');

Writeln ('Vvedite znachenie a- i nazhmite Enter');

read (a);

Writeln ('Vvedite znachenie b- i nazhmite Enter-');

read (b);

Writeln ('Vvrdite znachenie x- i nazhmite Enter');

readln (x);

Y:=a*sqr(x)+b;

writeln (' Dlya znachenii', ' a=',a,',b=',b,',x=',x,' znachenie y=',Y);

write ('Nazhmite Enter dlya vihoda');

readln;

end.





:


: 2016-09-03; !; : 534 |


:

:

- , - .
==> ...

780 - | 753 -


© 2015-2024 lektsii.org - -

: 0.02 .