.


:




:

































 

 

 

 


Size/Move - ( -, - Shift)




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- -.-  

 


  1. .., .. . .: ( - ). 1989. 256 .
  2. .., .. . . .: . 1991. 158 .
  3. .., .., .. .Turbo Pascal i Delphi. 3- . : . 2002. 141 .
  4. .. ʲ. г. 1996. 63 .
  5. .. Turbo Pascal - . .: . - 1992. 189 .
  6. .. . .: ( - ). 1989. 153 .
  7. .., .. . .: . 1991. 141 .




:


: 2016-03-28; !; : 469 |


:

:

, .
==> ...

1696 - | 1573 -


© 2015-2024 lektsii.org - -

: 0.052 .