Zoom - ( F5 ).
Tile/Cascade - : Tile ( ); Cascade , ( ).
Next/Previous - (F6) (Shift+F6) .
Close - ( ¢) .
Watch - .
User screen - , - . Output , .
List - .
Help TURBO PASCAL ( ), , ( 20 ).
¢ TURBO PASCAL.
F1 | TURBO |
F2 | |
F3 | |
F4 | , |
F5 | / |
F6 | |
F7 | |
F8 | |
F9 | |
F10 | |
Alt+F1 | ( 20 ) |
Alt+F3 | () |
Alt+F5 | |
Alt+F9 | |
Alt+X | DOS, |
Ctrl+F1 | |
Ctrl+F5 | |
Ctrl+F9 |
2:
succ(x) | |||
pred(x) | |||
round(x) | real | integer | |
trunc(x) | real | integer | |
odd(x) | integer | boolean | true ( ); false ( ) |
A div B | integer | integer | A B, |
A mod B | integer | integer | A B, |
:
write (_1,..., _n);
writeln (_1,..., _n);
3:
abs(x) | integer, real | integer, real | |
arctan(x) | integer, real | real | arctg x |
cos(x) | integer, real | real | cos x |
sin(x) | integer, real | real | sin x |
exp(x) | integer, real | real | ex |
ln(x) | integer, real | real | ln x |
sqrt(x) | integer, real | real | |
sqr(x) | integer, real | integer, real | x2 |
tg x | integer, real | real | |
arccos x | integer, real | real | |
arcsin x | integer, real | real | |
xa | integer | real | |
logba | integer | real |
:
|
|
read (_1,..., _n);
readln (_1,..., _n);
4:
nottrue | false | notfalse | true |
true andtrue | true | true ortrue | true |
true andfalse | false | true orfalse | true |
false andtrue | false | false ortrue | true |
false andfalse | false | false orfalse | false |
+, - not | ||
*, / div, mod and | , ֳ | |
+, - or | , | |
=, <>, <, >, <=, >= in | ³ () |
():
if < > then <_1> else <_2>;
():
if < > then <_1>;
5:
:
Case<> of
<__1>: _1;
<__2>: _2;
<__n>: _n
else _n+1;
end;
6:
:
label <_ >;
:
goto < >;
...
<>: ;
:
while <_> do <_1>;
7:
:
repeat <> until <_>;
8:
:
for <>:= <_1> to <_2> do <_1>;
for <>:= <_1> downto <_2> do <_1>;
¢ 2:
{ , 16- , 10- }:
program SS;
var S:char; I, M:integer;
begin
writeln ( 16- );
m:=0;
for I:=1 to 3 do
begin read (S); write (S);
if (S>=0) and (S<=9) then M:=M*16+ord(S)-ord(0)
else M:= M*16+ord(S)-ord(A)+10
end;
writeln ( 10- =, M:5)
end.
9, 10:
:
var <_>: array [1..n] of <__>;
type <_>= array [1..n] of <__>;
var <¢_>:<_>;
: <¢_>[_];
for ( while repat).
11:
: | |
length (<>) | |
copy (r, m, n) | n r, m |
concat (r1, r2, , rn) | ¢ r1, r2, , rn |
pos (r1, r2) | , r1 r2 |
: | |
insert (r1, <>, n) | r1 , , n |
delete (<>, m, n) | n , , m |
str (<>, <>) | |
val (r1, s1, s2) | s1 r1. , s2 0, . |
|
|
12:
: | |
a + b | ¢. , b |
a * b | . , , b |
a b | г. , , , b |
=, <>, <=, >= | . . |
in |
:
type <_> = set of <_>;
.
13:
:
type <__>= record
<__1>:<__1>;
;
<__n>:<__n>;
end;
¢:
<_>.<_>
14:
:
procedure < > (< __ >);
<____>;
Begin
<__>
end;
:
<_> (<__>);
:
function <> ( <__> ): <_>;
<____>;
Begin
<__, _ ___-:=>
end;
:
<> (<__>);
:
ѳ:
15:
:
type <¢_>= file of < >;
var <_>: file of <_>;
, .
ij | |
eof (<¢ >) | , true |
assign (<¢ >, < ¢>) | ¢ |
reset (<¢ >) | |
read (<¢ >, <¢ >) | () ¢ |
close (<¢ >) | |
rewrite (<¢ >) | |
write (<¢ >, <¢ >) | () |
seek (< >, k) | read write k- ( ) |
: :
var <__>: text;
eoln (<¢ >) | |
read(<¢_>, <->) readln(<¢_>, <_>) | |
write (<¢_>, <_>) writeln (<¢_>, <_>) | |
append (<¢_>) |
|
|
16:
:
< >;
var driver, mode: integer; { }
begin
driver:=detect; {detect }
initgraph (driver, mode, ); { }
if graphresult <> 0 then
begin
writeln ( );
halt {}
end;
< >
end.
, | |
initgraph (driver, mode, ) | |
detectgraph (<>, <>) | |
setcolor (<>) | |
setbkcolor (<>) | |
putpixel (x,y,<>) | (x,y) |
line (x1, y1, x2, y2) | |
lineto (x,y) | (x,y) |
linerel (dx, dy) | |
rectangle (x1, y1, x2, y2) | ( ) |
bar (x1, y1, x2, y2) | |
bar3d (x1, y1, x2, y2, <¢ >, true) | |
circle (x, y, R) | R (x,y) |
arc (x, y, < >, < >, <>) | |
pieslice (x, y, < >, < >, <>) | |
ellipse (x, y, < >, < >, <. >, <. >) | |
setfillstyle (<>, <>) | : 0 , 1 , 2 ,..., 11 |
floodfill (x, y, < >) | , (x,y) |
closegraph | |
outtext (<>) | |
outtextxy (x, y, <>) | |
settextstyle (<>, <>, <>) | , : 0 , 1 ; : 1, 2, 3 |
getmaxx | |
getmaxy | OY |
getcolor | |
getcolor (x,y) | (x, y) |
getx, gety |
:
black=0 | brown=6 | lightred=12 .- |
blue=1 | lightgray=7 - | lightmagenta=13 .-. |
green=2 | darkgray=8 - | yellow=14 |
cyan=3 | lightblue=9 - | white=15 |
red=4 | lightgreen=10 .- | |
magenta=5 | lightcyan=11- -.- |
- .., .. . .: ( - ). 1989. 256 .
- .., .. . . .: . 1991. 158 .
- .., .., .. .Turbo Pascal i Delphi. 3- . : . 2002. 141 .
- .. ʲ. г. 1996. 63 .
- .. Turbo Pascal - . .: . - 1992. 189 .
- .. . .: ( - ). 1989. 153 .
- .., .. . .: . 1991. 141 .
|
|