Помогите с программой Графики в паскаль Помогите , срочно..
Помогите с программой
Графики в паскаль
Помогите , срочно..
Гость
Ответ(ы) на вопрос:
Гостьuses graphabc;
begin
window.Init(0, 0, 640, 480, clwhite);
pen.Width:=2;
line(120, 360, 280, 360);
line(120, 360, 120, 280);
line(280, 360, 280, 280);
line(200, 360, 200, 280);
line(120, 280, 280, 280);
line(190, 340, 190, 360);
line(190, 340, 200, 340);
line(120, 280, 170, 250);
line(170,250,200,280);
line(170,250,240,250);
line(240,250,280,280);
drawrectangle(150, 310, 170, 330);
end.
Не нашли ответ?
Похожие вопросы