Напишите программу, предусматривающую ввод одного из чисел: 1, 2 или 3 — и построение на экране одной из трёх геометрических фигур: треугольника, если введено число 1; квадрата, если введено число 2; окружности, если введено число 3.
Введённое число сохраним в целой переменной n. Фигура определяется этим числом, поэтому проверим условия последовательно. Для построения используем графические команды GraphABC: Line соединяет две точки отрезком, Rectangle строит прямоугольник по противоположным вершинам, Circle строит окружность по центру и радиусу. У квадрата разности координат противоположных вершин должны быть одинаковыми.
uses GraphABC;
var n: integer;
begin
write('Введите , или : ');
readln(n);
if n = then
begin
Line( , , , );
Line( , , , );
Line( , , , )
end
else if n = then
Rectangle( , , , )
else if n = then
Circle( , , )
else
writeln('Нужно ввести , или ')
end.
При n =
Программа строит треугольник для
