1.
.
Turbo Pascal - ,
;
,
( IDE). C Turbo Pascal
, ,
, ,
. Turbo Pascal,
IDE.
Turbo Pascal, , IDE.
,
.
-
( ).
( ,
) F1.
Help (Alt-H)
, ,
(Ctrl-F1), (Alt-F1)
(F1,
).
(
),
.
IDE . 7 "
IDE".
.
: ,
.
.
,
.
.
. ,
(Debug/Watch/Add Watch);
D/W/Add Watch.
.
.
,
. ,
; .
(...),
.
(>), .
,
, - .
, ,
:
1. F10. .
2. , ,
. Enter.
,
. , ,
Edit . Alt
.
, Esc.
3.
. Enter.
, , .
Turbo Pascal
.
.
:
1. .
2. .
.
, . (
, ;
).
, ,
. , ,
() , .
. Turbo Pascal .
,
.
.
Turbo Pascal
. ,
,
.
( ) .
,
. ( ,
Alt ).
; -
- ,
.
.
Turbo Pascal .
1.1.
.
___________________________________________________________________
()
___________________________________________________________________
F1 Help .
F2 File/Save ,
.
F3 File/Open
.
F4 Run/Go to Cursor ,
.
F5 Window/Zoom .
F6 Window/Next .
F7 Run/Trace Into
.
F8 Run/Step Over
, .
F9 Compile/Make Make
F10 (none) .
___________________________________________________________________
1.2.
.
___________________________________________________________________
()
___________________________________________________________________
Alt- (System)
Alt-C Compile Compile
Alt-D Debug Debug
Alt-E Edit Edit
Alt-F File File
Alt-H Help Help
Alt-O Options Options
Alt-R Run Run
Alt-S Search Search
Alt-W Window Window
Alt-X File/xit Turbo Pascal
DOS
___________________________________________________________________
1.3.
.
___________________________________________________________________
()
___________________________________________________________________
Ctrl-Del Edit/Clear
.
Ctrl-Ins Edit/Copy .
Shift-Del Edit/Cut
.
Shift-Ins Edit/Paste
.
Ctrl-L Search/Search Again Find
Replace.
F2 File/Save
.
F3 File/Open .
___________________________________________________________________
1.4.
.
___________________________________________________________________
()
___________________________________________________________________
Alt-# (none) , # -
, .
Alt-0 Window/List .
Alt-F3 Window/Close .
Alt-F5 Window/User Screen .
Shift-F6 Window/Previous
.
F5 Window/Zoom / .
F6 Window/Next
.
Ctrl-F5 Window/Size/Move
.
___________________________________________________________________
1.5.
.
___________________________________________________________________
()
___________________________________________________________________
F1 Help/Contents -
.
F1 F1 Help/Help on Help
(
F1,
).
Shift-F1 Help/Index
.
Alt-F1 Help/Previous Topic
.
Ctrl-F1 Help/Topic Search
.
___________________________________________________________________
1.6.
/.
___________________________________________________________________
()
___________________________________________________________________
Alt-F9 Compile/Compile
.
Ctrl-F2 Run/Program Reset
.
Ctrl-F4 Debug/Evaluate/Modify .
Ctrl-F7 Debug/Add Watch
.
Ctrl-F8 Debug/Toggle BreakPoint
.
Ctrl-F9 Run/Run .
F4 Run/Go To Cursor
.
F7 Run/Trace Into
.
F8 Run/Step Over
.
F9 Compile/Make Make (/
) .
___________________________________________________________________
Turbo Pascal.
, Turbo Pascal,
. - ,
, , ,
.
Turbo Pascal
( ),
. - ,
. ,
, ,
. (
, ).
. ,
, ,
Startup (Options/Environment).
,
:
- ;
- ;
- ;
- ;
- ;
- .
Turbo Pascal
. ,
, .
,
( ).
. ,
(*).
:
,
[] 3 []
^
. Alt #
.
.
v
<>
,
- .
, . (
Window/Close Alt-F3).
Esc.
-
, .
, ,
.
.
Turbo Pascal
. Alt-0 .
( ) Alt
. ,
#5, ,
Alt-5.
. (),
. ,
.
, .
, Window/Zoom
F5.
.
.
-
, :
<>
.
. (
).
, . ,
" "
,
.
. ,
, .
.
, .
,
. ,
Size/Move Window , trl-F5.
.
1.7 ,
Turbo Pascal. ,
- .
1.7. .
___________________________________________________________________
:
___________________________________________________________________
Edit File/Open
F3.
Window .
Close Window (
Alt-F3), .
,
Alt
( ),
Window/List Alt-0
,
Window/Next F6,
( ,
). Alt-F6
.
, Ctrl-F5
(Window/Size/Move)
, ,
, Enter.
(
). Window/Size/Move
Shift
, Enter.
Ctrl-F5
Shift
.
,
,
Window/Zoom, F5.
___________________________________________________________________
.
Turbo Pascal.
:
- (
), .
-
,
.
- , . ,
"Saving filename...",
.
-
.
, .
- ,
.
:
F1 Help F2 Save F3 Open Alt-F9 Compile F9 Make F10 Menu
.
(...),
. -
.
,
: ,
, , .
,
:
[]
[ OK ]
1 ^
2 [ Cancel ]
3
4
[X] O 1 ( ) O A 5
[ ] O 2 (.) O B 6
[X] O 3 ( ) O C 7
[ ] O 4 ( ) O D 8 v [ Help ]
[ ] O 5
. , Turbo Pascal
.
: OK, Cancel,
Help. OK ;
Cancel ,
. Esc
Cancel ( Cancel ).
. Breakpoints Options
, Cancel.
,
. ,
. , K
OK. Tab Shift-Tab
. ,
, .
OK , ;
, Enter
. ( ,
;
). ,
.
. Tab;
Enter.
.
. ,
X, ,
On. , Off.
( On),
, ; Tab
, , ;
.
,
.
Turbo Pascal
(>>) . Tab
.
,
.
( , )
.
.
, Tab ,
,
.
Tab Shift-Tab , .
.
, ;
.
(, , Home, End
/ Ins). ,
, ,
. , ,
( ).
.
( ^L ^M),
^P. , , ^P^L,
^L. .
,
, .
,
Enter. ,
.
, , Down Arrow
( ) ().
.
Esc.
Find
:
Text to find
date = record ^
Writeln('
string[7]
{
AbortCode v
- .
.
, ,
( ), Turbo Pascal
.
(
Tab , ).
,
.
.
Borland,
, .
Turbo Pascal :
- ;
- ( 1 ;
2 );
- Shift ;
- , ,
;
- ,
;
- ,
;
- ,
(. TEMC.DOC
);
-
;
- , ,
.
Turbo Pascal.
,
Turbo Pascal
:
TURBO
Enter TURBO.EXE,
IDE.
,
INSTALL Turbo Pascal ( :\TP)
TURBO.EXE, :
TURBO
C:\TP.
Turbo Pascal.
.
Turbo Pascal ( TURBO Enter
DOS), , ,
( About
() , System (),
).
, .
. , ,
INSTALL Unpack Examples.
F10, , F3 (
File/Open) Open a File.
, MYFIRST (
.PAS; )
Enter. ,
Enter :
program MyFirst;
var
A,B: Integer;
Ratio: Real;
begin
Write('Enter two numbers: ');
Readln(A,B);
Ratio := A/B;
Writeln('The ratio is ',Ratio);
Write('Press <Enter>...');
Readln;
end.
. ,
end .
Backspace,
.
, 8.
.
, ,
, .
MyFirst.
, .
,
var, .
Integer ( ); , ,
52, -421, 0, 32, 283 . Ratio
Real ( ), ,
, 423.328 -0.032,
.
.
begin .
(Write
Writeln), (Readln)
(Ratio := A/B). Readln
( Enter),
.
begin ,
end.
.
. Save
File, F10, F File S
Save. -
File/Save, F2.
.
Complile
. F10 C, Alt-C
. Alt-F9 - .
Turbo Pascal ,
( ) 8086
( ). 8086;
( ).
, ,
. , ,
,
- ,
. ,
,
().
?
:
Unknown identifier
( )
';' expected
( ';')
, ,
, - , -
.
, .
begin..end,
(,
),
..
,
, .
,
"Compilation successful: press any key" (
: ).
, .
, Turbo Pascal
,
. (
, Ctrl-Q W
,
). ,
.
.
Run/Run
( Ctrl-F9). ,
:
Enter two numbers:
Enter. :
The ratio is
- .
"Press <Enter>...",
Enter. ,
Window/User Screen ( Alt-F5).
,
, :
Run-time error <errnum> at <segment>:<offset>
<errnum> - (.
" "
),
<segment>:<offset> - , .
( ,
Output).
,
. ,
F1
.
.
, Search/Find Error.
,
, .
, .
Run/Run , Turbo Pascal
.
IDE
,
Run/User Screen ( Alt-F5).
Turbo Pascal.
, .
Turbo Pascal ( Exit File),
(),
. , D ( DOS Shell)
File, X ( Exit)
DOS:
DIR MYFIRST.*
, :
MYFIRST PAS 217 8-10-88 11:07a
MYFIRST.PAS ,
.
, MYFIRST.BAK,
.
,
Destination Compile Disk.
, MYFIRST.EXE,
, Turbo Pascal
. ,
MYFIRST, Enter DOS.
.
,
. Turbo Pascal, DOS
Shell File, Turbo Pascal,
Exit DOS. , Exit
File, :
TURBO MYFIRST.PAS
, IDE.
. MYFIRST.PAS :
program MySecond;
var
A,B: Integer;
Ratio: Real;
begin
repeat
Write('Enter two numbers: ');
Readln(A,B);
Ratio := A/B;
Writeln('The ratio is ',Ratio:8:2);
Write('Press <Enter>...');
Readln;
until B = 0;
end.
,
File, Save As MYSECOND.PAS,
Enter.
,
Ctrl-F9. Turbo Pascal .
, Turbo Pascal
.
.
repeat..until. ,
repeat until ,
, until, True ().
, B .
0, .
, ,
1 0 Enter. ,
, :
. ,
:
Ratio := A/B;
:
Error 200: Division by zero
( 200: 0)
.
,
. ,
, ,
Turbo Pascal 6.0.
Turbo Pascal
. ,
: .
, Run/Trace Into
( F7). ,
Turbo Pascal . (
begin) ;
- .
F7 .
F7, .
.
- Write 7.
F7 .
. , Readln
. , ;
, - . Enter.
,
9.
F7 .
Writeln 10. F7
. Readln 12. F7,
Enter.
until.
F7 , repeat.
--,
" ".
, 5
.
Watch.
.
Alt-D Debug. Add Watch
Watches ( Ctrl-F7). Watch
Expression Enter. Watch
. Add Watch
Ratio Watch. ,
/ Watch.
Run/Trace Into ( F7) ,
. ,
, 0 . Enter
IDE, / Watch (
Alt # () Alt-W W).
"Invalid floating-point operation" (
); ,
. ,
Watch .
,
Watch.
F7 , / Ratio.
,
"Division by zero".
.
,
: 0 (),
.
? 0,
. ,
:
program MySecond;
var
A,B: Integer;
Ratio: Real;
begin
repeat
Write('Enter two numbers: ');
Readln(A,B);
if B = 0 then
Writeln('The ratio is undefined')
else
begin
Ratio := A/B;
Writeln('The ratio is ',Ratio:8:2);
end;
Write('Press <Enter>...');
Readln;
until B = 0;
end.
( ,
). , ,
Watch .
, 0 .
"The ratio is undefined. Press <Enter>..."
( . <Enter>...).
, .
--;
.
: .
(). ,
, .
, ,
. ,
( ,
Graph). , Enter
IDE.
. GRAPH.TPU BGI.ZIP
.
(F3) MYTHIRD.PAS :
program MyThird;
uses
Graph;
const
Start = 25;
Finish =175;
Step = 2;
var
GraphDriver: Integer; { }
GraphMode: Integer; { }
ErrorCode: Integer; { }
X1,Y1,X2,Y2: Integer;
begin
GraphDriver := Detect; {
}
InitGraph(GraphDriver, GraphMode, '');
ErrorCode := GraphResult;
if ErrorCode <> grOk then
begin
Writeln(' : ',GraphErrorMsg(ErrorCode));
Writeln('( !)');
Writeln(' ...');
Readln;
Halt(1);
end;
Y1 := Start;
Y2 := Finish;
X1 := Start;
While X1 <= Finish do
begin
X2 := (Start+Finish) - X1;
Line(X1, Y1, X2, Y2);
X1 := X1 + Step;
end;
X1 := Start;
X2 := Finish;
Y1 := Start;
while Y1 <= Finish do
begin
Y2 := (Start+Finish) - Y1;
Line(X1, Y1, X2, Y2);
Y1 := Y1 + Step;
end;
OutText('Press <Enter> to quit:');
Readln;
CloseGraph;
end. { MyThird }
. ,
, BGI (*.BGI).
(F2)
(Alt-F9). ,
Run/Run (Ctrl-F9) .
. ,
.
uses ,
Graph. - ,
( ) .
Graph , :
InitGraph, Line, CloseGraph .
, const, -
Start, Finish Step - ,
. ,
.
: Step 1;
, , .
. DOS,
, Ctrl-Alt Del
. IDE,
Ctrl-Break.
1, Y1, X2 Y2
.
X1, Y1 X2, Y2.
, .
: (25,25)
(175,175).
,
, Y ().
Line Graph
.
Readln ,
IDE.
--,
,
IDE .