Question

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

Answer 1

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.

Answer 2

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 3

Для создания программы, которая позволяет пользователю выбрать число и рисует определенную фигуру в зависимости от выбора, мы будем использовать PascalABC. В данном случае, для простоты, фигуры будем представлять символами ASCII.

Вот программа, которая решает вашу задачу:

pascalCopy code
program DrawShapes;

uses
  CRT;

procedure DrawSquare;
begin
  writeln('   *****');
  writeln('  *     *');
  writeln(' *       *');
  writeln(' *       *');
  writeln('  *     *');
  writeln('   *****');
end;

procedure DrawTriangle;
begin
  writeln('     *');
  writeln('    ***');
  writeln('   *****');
  writeln('  *******');
  writeln(' *********');
end;

procedure DrawCircle;
begin
  writeln('   ***');
  writeln(' *     *');
  writeln('*       *');
  writeln('*       *');
  writeln(' *     *');
  writeln('   ***');
end;

var
  choice: Integer;

begin
  // Очистка экрана
  ClrScr;
  
  // Предлагаем пользователю выбрать фигуру
  writeln('Выберите фигуру:');
  writeln('1 - Квадрат');
  writeln('2 - Треугольник');
  writeln('3 - Круг');
  write('Введите номер выбранной фигуры: ');
  readln(choice);
  
  // В зависимости от выбранного числа рисуем определенную фигуру
  case choice of
    1: DrawSquare;
    2: DrawTriangle;
    3: DrawCircle;
    else
      writeln('Ошибка: Неверный выбор.');
  end;
  
  readln;
end.

Как только программа запустится, она предложит пользователю выбрать фигуру, введя соответствующий номер. Затем она нарисует выбранную фигуру на экране с помощью символов ASCII.

Обратите внимание, что данная программа предназначена для работы в среде PascalABC. Вы можете скопировать и вставить код в IDE PascalABC и запустить программу там.