- 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.