Как нарисовать дом видео
Автор Ваня Иванов задал вопрос в разделе Другие языки и технологии
Информатика Pascal ABC Нарисовать простой дом и получил лучший ответ
Ответ от Георгий Зотиков[гуру]
program dom;
uses graphABC;
begin
setwindowwidth(700);
setwindowheight(700);
setfontsize(18);
setfontcolor(clred);
textout(100,100,'домик');
rectangle(200,300,600,600);
setbrushcolor(claqua);
circle(400,225,40);
setbrushcolor(claqua);
fillrect(300,400,500,500);
rectangle(300,400,500,500);
line(400,400,400,500);
line(300,450,500,450);
line(200,300,400,150);
line(400,150,600,300);
end.
Ответ от Ёаня Олейник[активный]
program sanek3;
uses GraphAbc; begin
SetWindowSize (700,700);
SetPenWidth (2);
SetPenColor (clRed);
SetBrushColor (clRed);
Rectangle (150,200,250,275);
SetPenColor (clYellow);
SetBrushColor (clYellow);
Circle (200,235,15);
SetPenColor (clGreen);
Line (150,200,200,150);
Line (200,150,250,200);
FloodFill (175,180,clGreen);
SetPenColor (clBlack);
Line (225,175,225,125);
Line (225,125,245,125);
Line (245,125,245,195);
FloodFill (230,150,clBlack);
SetPenColor (clGreen);
Line (0,276,700,276);
FloodFill (3,500,clGreen);
FloodFill (2,50,clSkyblue);
end.
program sanek3;
uses GraphAbc; begin
SetWindowSize (700,700);
SetPenWidth (2);
SetPenColor (clRed);
SetBrushColor (clRed);
Rectangle (150,200,250,275);
SetPenColor (clYellow);
SetBrushColor (clYellow);
Circle (200,235,15);
SetPenColor (clGreen);
Line (150,200,200,150);
Line (200,150,250,200);
FloodFill (175,180,clGreen);
SetPenColor (clBlack);
Line (225,175,225,125);
Line (225,125,245,125);
Line (245,125,245,195);
FloodFill (230,150,clBlack);
SetPenColor (clGreen);
Line (0,276,700,276);
FloodFill (3,500,clGreen);
FloodFill (2,50,clSkyblue);
end.
Ответ от Олег Леташков[новичек]
класс
класс
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Информатика Pascal ABC Нарисовать простой дом