Программа word рисунок осень - вопрос №13877175 от Петонова03 12.02.2021 03:32

Question

Информатика: Программа word рисунок осень

Петонова03 · Answer

uses graphabc;

var

p:array[0..3]of point, t:integer;

procedure lines;

begin

line(100,100,300,300);

line(100,300,300,100);

line(200,100,200,300);

line(100,200,300,200);

end;

begin

p[0].x := 150; p[0].y := 200;

p[1].x := 200; p[1].y := 250;

p[2].x := 250; p[2].y := 200;

p[3].x := 200; p[3].y := 150;

SetBrushColor(clblack);

readln(t);

if t < 0 then

begin

Polygon(p[0],p[1],p[2],p[3]);

lines;

end;

if t > 0 then

begin

circle(200,200,50);

lines;

end;

end.