Question

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

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

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

Answer 1

uses crt,graphABC;

var x,y:integer;

   m:char;

begin

x:=windowwidth div 2;

y:=windowheight div 2;

write ('Введите число от 1 до 3-выбор фигуры. 1 - треугольник, 2 - квадрат, 3 - круг);

read (m);

clearwindow;

hidecursor;

case m of

'1': 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;

'2': begin

     setpencolor(clGreen);

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

     floodfill(xc,yc,clGreen);

     readkey;

    end;

'3': begin

     setpencolor(clBlue);

     circle (xc,yc,100);

     floodfill(xc,yc,clBlue);

     readkey;

    end;

end.

Answer 2

uses GraphABC;

var n:integer;

begin

writeln('Введите номер фигуры (1-квадрат, 2-треугольник, 3-круг):');

readln(n);

setwindowsize (640,480);

setpencolor (clBlue);

setpenwidth (4);

case n of

1: begin

setwindowtitle ('квадрат');

rectangle(200,100,400,300);

end;

2: begin

setwindowtitle ('треугольник');

Line(300,50,30,400);

Line(30,400,570,400);

Line(570,400,300,50);

end;

3: begin

setwindowtitle ('круг');

circle(300,200,120);

end;

end;

end.