Помогите нарисовать рисунок в Паскале, пожалуйста
Мне задали в паскале нарисовать три домика (простые, из квадрата и двух линий) , помогите пожалуйста.
Мне задали в паскале нарисовать три домика (простые, из квадрата и двух линий) , помогите пожалуйста.
В паскале нет средств для рисования домиков.
В реализациях паскаля есть нужные библиотеки, но ты не указал, какой именно паскаль ты используешь (Тurbo/Borland Pascal, Delphi, FreePascal, PascalABC. NET или какой-то другой) .
Держи дом с трубой http://otvet.mail.ru/answer/416744879
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.