Question

составьте программу рисования 15 квадратов синего цвета с общим центром в ABC паскаль

Answer 1

Pascall

uses crt,graphABC;

var w:char;

   xc,yc,c,x,y,i:integer;

begin

hidecursor;

repeat

clrscr;

writeln('Выберите фигуру');

writeln('1-треугольник');

writeln('2-квадрат');

writeln('3-круг');

writeln('4-ромб');

writeln('5-эллипс');

writeln('другое - выход');

read(w);

xc:=windowwidth div 2;

yc:=windowheight div 2;

setpencolor(clRed);

case w of

'1':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   moveto(xc+round(150*cos(pi/2)),yc-round(150*sin(pi/2)));

   for i:=1 to 4 do

    begin

     x:=xc+round(150*cos((i-1)*(2*pi/3)+pi/2));

     y:=yc-round(150*sin((i-1)*(2*pi/3)+pi/2));

     lineto(x,y);

    end;

   readln

   end;

'2':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

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

   readln

   end;

'3':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   circle(xc,yc,150);

   readln

   end;

'4':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   moveto(xc-100,yc);

   lineto(xc,yc-150);

   lineto(xc+100,yc);

   lineto(xc,yc+150);

   lineto(xc-100,yc);

   readln

   end;

'5':begin

   clrscr;

   textout(xc-50,10,'Нажмите Enter');

   ellipse(xc-150,yc-100,xc+150,yc+100);

   readln

   end;

end;

until not(w in ['1'..'5'])

end.