Напишите программу для того, чтобы нарисовать светофор, а сверху надпись "КРАСНЫЙ СВЕТ-ДОРОГИ НЕТ!" в ABC Pascal. ДАМ ДВАДЦАТЬ БАЛЛОВ. ПОМОГИТЕ!
Напишите программу для того, чтобы нарисовать светофор, а сверху надпись "КРАСНЫЙ СВЕТ-ДОРОГИ НЕТ!" в ABC Pascal. ДАМ ДВАДЦАТЬ БАЛЛОВ. ПОМОГИТЕ!
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
uses GraphABC;
begin
SetFontColor(clRed);
SetFontSize(16);
TextOut(50,50,'Красный свет - дороги нет!');
Pen.Width:=3;
DrawRectangle(140,100,240,300);
Pen.Width:=1;
Brush.Color:=clRed;
Circle(190,150,20);
Brush.Color:=clYellow;
Circle(190,200,20);
Brush.Color:=clLightGreen;
Circle(190,250,20);
end.
Не нашли ответ?
Похожие вопросы