С помощью паскаль абц нужно нарисовать сфетофор

С помощью паскаль абц нужно нарисовать сфетофор
Гость
Ответ(ы) на вопрос:
Гость
uses graphabc,crt; const t=500; begin setwindowsize (600, 600); setpencolor (clblack); setbrushcolor (clblack); rectangle (45, 45, 105, 225 ); setpencolor (clred); setbrushcolor (clred); circle (75, 75, 25); setpencolor (clyellow); setbrushcolor (clyellow); circle (75, 130, 25); setpencolor (clgreen); setbrushcolor (clgreen); circle (75, 185, 25); setpencolor (clblack); setbrushcolor (clblack); rectangle (70, 225, 80, 300); setbrushcolor (clDkGray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25); repeat setbrushcolor (clDkGray); circle (75, 185, 25); setbrushcolor (clred); circle (75, 75, 25); delay(t); setbrushcolor (clDkGray); circle (75, 75, 25); setbrushcolor (clyellow); circle (75, 130, 25); delay(t); setbrushcolor (clDkGray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25); delay(t); until keypressed; end.
Гость
Program sfetafor1; Uses GraphAbc; Begin SetWindowSize(640,480); ClearWindow(clWhite); SetPenColor(clBlack); SetPenWidth(3); Rectangle(200,200,300,400); FloodFill(250,300,clLtGray); Circle(250,230,25); Circle(250,290,25); Circle(250,350,25); FloodFill(250,235,clRed); FloodFill(250,285,clYellow); FloodFill(250,355,clGreen); Line(250,200,250,150); Line(250,150,100,150); SetFontSize(14); SetFontColor(clRed); TextOut(100,125,'Красный свет-дороги нет'); End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы