70- 20 , .. , .
Windows Borland Delphi.
1. .
Program ;
Label ;
Const ;
Type , ;
Var ;
Function ( );
Procedure ( );
BEGIN
END.
2. .
()
Const A=abc; //
B=2.782; //
K=50000 // .
( )
Var j: integer; //
r, d: real; //
t: boolean; // ( )
c: char; //
r: string[ 10 ]; // 10
:
Type G =array [ 1..100 ] of integer; // 100
= array [ 1..20 ] of real; // 20
S= array [ 1..25 ] of char; // 25
M= array [ 1..2, 1..3 ] of integer; // 6
Type
= record
: integer;
: array[1..18] of char;
: array[1..35] of char;
: array [1..20] of char;
_: integer;
__: real
End;
, .
Var : ;
: array[1..K] of ; //
3. .
begin | |
end | |
, | := ; |
if then else ; case of : ; : ; : else end; | |
read ( ); readln ( ); | |
write( ); writeln(); | |
for:= to (downto) do ; | |
while do;( - ) | |
repeat until; ( , .. ) |
. , , 1 5 0,5.
PROGRAM one; //
VAR a, b, h: real;
x, y: real;
BEGIN
write ( ); read(a);
write ( ); read(b);
write (); read(h);
x:=a;
writeln( x y); //
while (x<=b) do begin //
|
|
y:= sqrt(x);
writeln(x, y);
x:=x+h //
end;
write()
END.