- . , , , . , , .
, .
, , , , , , , , , . , , .
, ( ).
. .
, .
, . , . , .
, .
- , , , , , - .
- , , , .
. - , , . , .
: , .
. , , . , , :
1) ;
2) ;
3) ;
4) -, ;
5) ;
6) , , ;
|
|
|
7) ;
8) ;
9) ;
10) .
. , ( ), . , , , .
. , . , . , . . , , .
. [1 - 4].
,
, , . , .
, . . . - , . , . , - . , . , . .
, , . .
, , . , , . , , , : - , - . , , . .
|
|
|
, , .. , , . , . (). , , , .
.
, .
, . , :
Program
Label ;
Const ;
Type ;
Var ;
;
BEGIN
END.
- Label, Const, Type, Var, (procedure function) - . , , , . .
Turbo Pascal . - Program , . , .
:
Procedure (); { }
Label ;
Const ;
Type ;
Var ;
, ;
Begin
;
End;
, . . :
PROCEDURE < > (< >);
PROCEDURE - ; - , ; () - .
, < >:
PROCEDURE < >;
(. ).
ASSEMBLER, EXTERNAL, FAR, FORWARD, INLINE, INTERRUPT, NEAR.
. , . :
Procedure Sub (a:real; b:real; n:integer; k:integer; ch:char);
:
Procedure Sub (a,b:real; n,k:integer; ch:char);
: .
, , (, , , , ) , Begin - End, Begin End . .
|
|
|
, , , , , .. :
< > (< >);
- , ; () - () , .
.
- , () .
- , .
, .
, , : , - .. .
, . , . , .
2.1. , (. 2.1) 40 . . , .
. , -.
2.1
.
1 ( ).
Program shapka; { }
Var
I: Integer;
Begin
WriteIn( 2.1);
Writeln; { }
FOR l:=1 to 40 DO {}
Write (=); { }
writeln; { }
writeIn( / , );
writeIn( );
FOR I:=1 to 40 DO {}
Write (=); { }
writeln; { }
writeIn( 1 2 3 4 );
FOR l:=1 to 40 DO {}
Write (); { }
Writeln; { }
End.
, .
2 ( ).
Program shapka_procedur; { }
Ch:char; { , . }
Len:lnteger; { , . }
{}
Procedure Lin; { }
Var l:lnteger; { }
Begin
FOR l:=1 TO Len DO
write(Ch);
writeln;
End; { }
{}
BEGIN { }
writeIn(' 1');
writeln;
Len:=30; { }
Ch:==; { }
Lin; { }
{.. }
Lin; { }
{.. }
Ch:=_; { }
Lin; { }
END. { }
. Len, Ch, , , .. .
