Задание 8 Параграф 4.4 ГДЗ Босова 8 класс 2023 (Информатика)

Задача

uses GraphABC;
var
x: byte;
begin
write(‘1-треугольник, 2-квадрат,3-окружность > > ‘);
readln(x);
case x of
1:
begin
Line(50, 200, 150, 200);
Line(150, 200, 50, 100);
Line(50, 100, 50, 200)
end;
2: Rectangle(100, 100, 200, 200);
3: Circle(100, 100, 60);
end;
end.
Окно вывода

Подробный ответ

Для выбора одной из трёх фигур удобно использовать оператор case. После ввода числа программа проверяет его значение и строит нужную фигуру:

$$1$$ — треугольник;
$$2$$ — квадрат;
$$3$$ — окружность.

Для построения фигур используется библиотека GraphABC.

uses GraphABC;
var
  x: byte;
begin
  write(‘1-треугольник, 2-квадрат, 3-окружность >> ‘);
  readln(x);
  case x of
    1:
    begin
      Line(50, 200, 150, 200);
      Line(150, 200, 50, 100);
      Line(50, 100, 50, 200)
    end;
    2: Rectangle(100, 100, 200, 200);
    3: Circle(100, 100, 60);
  end;
end.

Если введено $$1$$, программа рисует треугольник из трёх отрезков. При вводе $$2$$ строится квадрат, а при вводе $$3$$ — окружность.

Ответ

uses GraphABC;
var
  x: byte;
begin
  write(‘1-треугольник, 2-квадрат, 3-окружность >> ‘);
  readln(x);
  case x of
    1:
    begin
      Line(50, 200, 150, 200);
      Line(150, 200, 50, 100);
      Line(50, 100, 50, 200)
    end;
    2: Rectangle(100, 100, 200, 200);
    3: Circle(100, 100, 60);
  end;
end.