Рисование луны.
uses crt,graph-
-var gd,gm,choice:integer-
-label 1,2,3-
-begin-
-clrscr-
-writeln(‘1.полнолуние, 2.1/2 луны, 3.месяц’)-
-readln(choice)-
-initgraph(gd,gm,’c:\-bp\-bgi’)-
-IF choice = 1 THEN GOTO 1-
-IF choice = 2 THEN GOTO 2-
-IF choice = 3 THEN GOTO 3-
-halt-
1:
CIRCLE (320, 240,100)-
floodfill(320,240,15)-
repeat-
until keypressed-
halt-
2 :
arc(320, 240, 90,270, 100)-
LINE (320, 140,320,340)-
floodfill(300,240,15)-
repeat-
until keypressed-
halt-
3 :
arc(320, 240, 90,270, 100)-
arc(490, 240, 150,210, 200)-
floodfill(285,240,15)-
repeat-
until keypressed-
halt-
closegraph-
end.