Question

Составьте программу, которая запрашивает показания температуры t, и рисует снежинку, если t меньше 0, или солнышко, если t больше 0.​

Answer 1

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.