Question

Создайте программу в PascalABC которая будет:


* Предлагать пользователю выбрать число;


* В зависимости от выбранного числа на экране будет рисоваться определённая фигура (квадрат, треугольник, круг)

Answer 1

program figyri;

uses crt,graphABC;

var xc,yc:integer;

   m:integer;

begin

xc:=windowwidth div 2;

yc:=windowheight div 2;

repeat

write ('Введите число');

read (m);

if m>2 then

   begin

     setpencolor(clGreen);

     rectangle(xc-100,yc-100,xc+100,yc+100);

     floodfill(xc,yc,clGreen);

     readkey;

    end;

if m<2 then      

   begin

     setpencolor(clRed);

     line (xc-100,yc+50,xc+100,yc+50);

     line (xc+100,yc+50,xc,yc-100);

     line(xc,yc-100,xc-100,yc+50);

     floodfill(xc,yc,clRed);

     readkey;

    end;

if m mod 2=0 then

    begin

     setpencolor(clBlue);

     circle (xc,yc,100);

     floodfill(xc,yc,clBlue);

     readkey;

    end;

until not(m in [1..4]);

end.

как то так

если введенное число больше двух, то квадрат

если меньше, то треугольник

если кратно, то круг

можно выбрать по разному, будет ли введенное число больше или меньше какого то числа, будет ли оно положительным или отрицательным и т.д