Question

Составьте программу,
нарисует конверт.ПОЖАЛУЙСТА ОЧЕНЬ СРОЧНО

Answer 1

Ответ:

uses graph;

var  x,y,i,w,h:integer;

begin

x:=0;

initgraph(x,y,'');

w:=120;

h:=80;

x:=getmaxX div 2;

y:=(getmaxY+h) div 2;

setcolor(9);

setfillstyle(1,9);

moveto(x,y);

lineto(x-w,y-h);

lineto(x-w,y+h);

lineto(x+w,y+h);

lineto(x+w,y-h);

lineto(x,y);

floodfill(x,y+2,9);

moveto(x,y-h);

lineto(x-w,y-2*h);

lineto(x+w,y-2*h);

lineto(x,y-h);

floodfill(x,y-h-2,9);

readln

end.

Объяснение: