Задача №14
Построениеизображение заказанного четырехугольника.
uses graph,crt-
vargd,gm,choice:integer-
label 1,2,3,4-
begin
writeln (‘1-параллеограмм 2-прямоугольник 3-ромб 4-квадрат’)-
readln(choice)-
initgraph(gd,gm,’c:\-bp\-bgi’)-
IF choice = 1 THENGOTO 1-
IF choice = 2 THENGOTO 2-
IF choice = 3 THENGOTO 3-
IF choice = 4 THENGOTO 4-
1:
clearviewport-
LINE (320, 240,400,240)-
LINE (350, 290,430,290)-
LINE (320, 240,350,290)-
LINE (400, 240,430,290)-
repeat-
until keypressed-
halt-
2:
clearviewport-
rectangle(320,240,400, 290)-
repeat-
until keypressed-
halt-
3:
clearviewport-
LINE (320, 240,270,290)-
LINE (320, 240,370,290)-
LINE (320, 340,370,290)-
LINE (320, 340,270,290)-
repeat-
until keypressed-
halt-
4:
clearviewport-
rectangle(320,240,420, 340)-
repeat-
until keypressed-
halt-
closegraph-
end.
|