1
1. Pascal.
. , , . ( ), , . Pascal - . . , () .
Pascal: ; ; .
Pascal , . . :
function <> [(< >)]:< >; < > begin < > end; . . .2. .
() . , (, Pentium III )
() 1 .
( ) - , () ( ). - , .
, . . 1 = 1 1 . . . , : 2,8; 3,0
max (- ) , .
|
|
. 1 (8) , 2 16- . 8- (64)
- , , min . 10 (1=10-9)
() max , .
, (/)
/ ,
2
1. Pascal.
. , , . ( ), , . Pascal - . . , () .
Pascal: ; ; .
Pascal , . . :
procedure (< >); begin < > end;. . . , . , , . .
2. , , .
( ) - -, , , ( ).
: ; ; ; .
: , ; () , (); , , ; ( ) ; , .
|
|
: () ; (, , ).
: () ; - .
, .
3
1. .
. . - , , .
, .
. :WHILE <> DO < >
WHILE, DO - ( ) )
<> -
<> -
.
FOR <>:= <. .> TO <. .> DO <>
FOR < >:= <. . > DOWNTO <. .> DO < >
For,to,do -
<> - -
<. .> - -
<..> - -
<> - .
. :
REPEAT,UNTIL - ( , ); <1>,<2>,...<N> -
<> - .
2. .
, . , , . . , , .
: , .
. , . , , . - , . . , . ( . utilis ).
|
|
() , . : ; ; ; web-; , , ; , , , , , .
, . ( ).
, . , . .
4
1. , , .
- , , .
, .
. :WHILE <> DO < >
WHILE, DO - ( ) )
<> -
<> -
.
FOR <>:= <. .> TO <. .> DO <>
FOR < >:= <. . > DOWNTO <. .> DO < >
For,to,do -
<> - -
<. .> - -
<..> - -
<> - .
. :
REPEAT,UNTIL - ( , ); <1>,<2>,...<N> -
<> - .
2. .
Windows . . Windows . . , (). - (), . - , , . , , .
- , . Windows. : , , , , .. , Windows Windows (MS Word, MS Excel, Paint, MS Access, MS PowerPoint .). . ( ) , - . - , , , . : , , .
|
|
(), .
Windows - . , , . - . . - . , . . Windows , . , .
Windows . . - - , () , . . . 1 . , .
5
1. .
, () . . , ( ) . Pascal : ( ). ( ) .
: : GOTO <>; GOTO - ( )
, . . . . LABEL (), :
GOTO .
: , GOTO, , () .
. . : IF <> THEN < 1> ELSE < 2>; IF, THEN, ELSE - (, , ), <> - , < 1>,< 2> - .
ELSE < 2> .
true , 1, .
|
|
( ) . , (). :
CASE< > OF
< >: < 1 >;
< >: < 2 >;
< >: < 3 >;
...
ELSE
< N >
END;
( ). . , . ( ) , . , , ELSE. , ELSE .
2. : , , .
( . local ) , , , . - , . , -, . . - . .
. , .
() : , ; , , , , ; , , , . , , , . , : - ; - , ; - .
: . , . : ; ;
; ; ; ; .
6
1. , . .
: : GOTO <>; GOTO - ( )
, . . . . LABEL (), :
GOTO .
: , GOTO, , () .
. . : IF <> THEN < 1> ELSE < 2>; IF, THEN, ELSE - (, , ), <> - , < 1>,< 2> - .
ELSE < 2> .
true , 1, .
( ) . , (). :
CASE< > OF
< >: < 1 >;
< >: < 2 >;
< >: < 3 >;
...
ELSE
< N >
END;
( ). . , . ( ) , . , , ELSE. , ELSE .
2. .
, Windows XP.
. , , , . .
. Windows XP , , , . , , , . : .
: ;
; , ; , ; ; .
, .
. Windows XP , .. . : ; ; , ; .
Windows XP , . , , , , . . , . , .
7
1. .
. - , - Begin... end. , . - : end , , ";" . . ";" . , . .. . : - () - Write (); Writln (); - () - Read (); Readln (); - -:=. , . - , (.. , , ), .
2. , , , .
. , , . . , , ... . , , .
, , - . ; , . ( / ) , , . . 50-60 . , . , . . , , , .
. . . . , . - . , , "". , . . , , , , .
: . , , . , , . . , : , , . . . "" , , , . . . ,
(, ) , , "". , , , .
, , , .
8
1. , , Pascal.
- . : := V:=A; V:=A+1;
, . , . .
. . - , ( , , ). : Read, Readln, Write, Writeln.
Read . : Read (< >); . . Read Enter. . , . Readln Read, , .
Write . : Write(< >); (integer, real, char ..) , . Writeln Write. , .
2. . - .
- .
.
. , . .
( ) 3 : , , . , , , ( ).
. . , , . , .
, , . .
. , , . . , ( ).
( ), , .
. , . , , .
9
1. Pascal.
, . . : () (). . , .
: 1. ( , , , , , , , ). 2. ( , , , , . 3.
Byte, Shoring, Integer, Word, Longing
() , : . Real, Single, Double, Extended, Comp
() char . 0 255. ASCII.
. () boolean : true () false (). .
2. .
() . : , - . : ; ; .
( ), , , .
, , , - . . / , .
, , . .
: , . , , .. . , , . . (, ) . . . , , . . , . - . . . , .
10
1. Pascal.
. , .
, : ; ; ( . , 64 . ).
:
Program Name; { } , program . , .
, 2 :
1. , , . : ( uses); ; ; ; ; ;
, , . . Uses - ; label - ; const - ; type - ; var - ( ); function - ; procedure - ;
2. . Begin End. , . , , . End .
Begin
{ }
Readkey; Readln; - (Enter) .
End.
, , , . , . , : { } (* *).
2. .
:
- . - - . , ; , ; .
- . - () , .
- :
1. , , ( ) , , ;
2. , , , . , , . , ;
3. , , (, , , ) ;
4. , , .
11
1. Pascal.
, , . . ( , , , ).
: : A, B, CY, Z, a, b, c,y, z; : 0, 1, 2,9; : + - * / > < =; # ,.: {} [] () , , : :=, .., <>, <=, >=, {}.
, . , . : , .
. .
. , .. , Sqr, Sqrt .. Sqr , , Sqrt . : ( ). , . 127 . . .
, , . , , . , , . , , . , , .
2. .
, , , , , -.
, : , ( , , -, ..), , .
-, , .
-, , , . , , .
-, , - "" . , , Norton AntiVirus, Doctor Web, Kaspersky Antivirus. .
-. , , . , , , , , .
-, , , , . .
-, . - "" , , . - , , , .
:
1. . , .
2. . .
, , , , .
12
1. . .
, . - , . : , - , - , - , , . , . : , . - ( ). - . ( ) , . , . . Help
: . , . . , . .
2. .
() , , - . : ( ), , , () . . . . . , . , , , , , . : , , , , , , , , ,
: - , , . - , . - , , . (- )
: ( , ); - ( ), ( ).
: , ; ; ; , ; - .
13
1. .
, . - , . : , - , - , - , , . - , . , , ( ) , . , , , .
-
(), . , . , . .
. , . (. . ).
. .