8
, , , - . ( ). :
;
;
;
.
, , . . . , , .
.
, . , , .
, , , . (. . - ) . ? :
1. X Y, OSN1, OSN2, H.
2. .
3. .
4. .
5. .
. . . . . , , , (. . ) , . .
BEGIN { ******* MAIN PROGRAM ******* }
VVOD(x,y,osn1,osn2,h); { x,y,osn1,osn2,h}
INITGRAPH;{ }
ELKA(x,y,osn1,osn2,h); { x,y,osn1,osn2,h}
READKEY; { }
CLOSEGRAPH; { }
END.
. .
VAR x,y,osn1,osn2,h: INTEGER;
, . , , , .
, , ( vvod elka ). , .
|
|
:
< > ( < > );
, , .
:
procedure < > ( < > );
< >
begin
<>
end;
procedure, , , . . ( , . . , ).
, . . .
: , .
. . . , ( ).
, , .
. . .
, , , . .
, , , . , , , , .
. , x, y, osn1, osn2, h INTEGER. VVOD. , , , () ( <Alt>+<F4>). :
PROCEDURE VVOD (VAR kx,ky,dl1,dl2,h1:INTEGER);
BEGIN
WRITELN(' X,Y, 1 2, ');
READLN(kx,ky,dl1,dl2,h1);
END;
, VVOD. Watch ( <F5>) . , , , 1. VVOD Watch (. 2).
|
|
.1 .2
x, y, osn1, osn2, h kx,ky,dl1,dl2,h1. , , kx,ky,dl1,dl2,h1. x, y, osn1, osn2, h , , , .
, VVOD . -. - VAR.
- , . , - .
, . . .
1. () dl dl1.
2. y1 ky.
3. :
4. kx, y1 .
5. .
6. ( h1).
7. .
8. ( ).
9. y1 ( h1).
10. . ( - , 10. )
11. .
12. BAR.
(kx,ky,dl1,dl2,h1) dl1 y1.
:
PROCEDURE ELKA (kx, ky, dl1, dl2, h1:INTEGER);
VAR dl,y1: INTEGER;
BEGIN
dl:= dl1;
y1:= ky;
WHILE dl>=dl2 DO
BEGIN
MOVETO(kx,y1);
LINETO(kx-dl div 2,y1,2);
LINETO(kx,y1-h1,2);
LINETO(kx+dl div 2,y1,2);
LINETO(kx,y1,2);
y1:= y1-h1;
dl:= dl-10;
END;
SETFILLSTYLE(0,8);
BAR(kx-5,ky,kx+5,ky+10);
END;
.
, Dl Y1. , kx, ky, dl1, dl2, h1, x,y,osn1,osn2,h, .
kx, ky, dl1, dl2, h1 . x,y,osn1,osn2,h .
, ELKA . -. - . . - , .
, , .
:
PROGRAM elka_1;
VAR x,y,osn1,osn2,h: INTEGER;
PROCEDURE VVOD (VAR kx,ky,dl1,dl2,h1:INTEGER);
BEGIN
WRITELN(' X,Y, 1 2, ');
READLN(kx,ky,dl1,dl2,h1);
END;
PROCEDURE ELKA (kx,ky,dl1,dl2,h1:INTEGER);
VAR dl,y1: INTEGER;
BEGIN
dl:= dl1;
y1:= ky;
WHILE dl>=dl2 DO
BEGIN
MOVETO(kx,y1);
LINETO(kx-dl div 2,y1,2);
LINETO(kx,y1-h1,2);
LINETO(kx+dl div 2,y1,2);
LINETO(kx,y1,2);
y1:= y1-h1;
dl:= dl-10;
END;
SETFILLSTYLE(0,8);
BAR(kx-5,ky,kx+5,ky+10);
END;
BEGIN { ******* MAIN PROGRAM ******* }
VVOD(x,y,osn1,osn2,h);
INITGRAPH;
ELKA(x,y,osn1,osn2,h);
READKEY;
CLOSEGRAPH;
END.