Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент) и длина окружности (третий элемент). Составить программу, которая по номеру элемента запрашивала бы его соответствующее значение и вычисляла бы площадь круга.Решение на паскале!
Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент) и длина окружности (третий элемент). Составить программу, которая по номеру элемента запрашивала бы его соответствующее значение и вычисляла бы площадь круга.Решение на паскале!
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
radius, diameter, circumference: real;
choice: integer;
area: real;
begin
writeln('Введите радиус круга: ');
readln(radius);
writeln('Введите диаметр круга: ');
readln(diameter);
writeln('Введите длину окружности круга: ');
readln(circumference);
writeln('Выберите номер элемента для вычисления (1 - радиус, 2 - диаметр, 3 - длина окружности): ');
readln(choice);
case choice of
1: begin
area := Pi * radius * radius;
end;
2: begin
radius := diameter / 2;
area := Pi * radius * radius;
end;
3: begin
radius := circumference / (2 * Pi);
area := Pi * radius * radius;
end;
end;
writeln('Площадь круга: ', area:0:2);
end.
Программа позволяет пользователю ввести значения радиуса, диаметра и длины окружности круга, а затем выбрать номер элемента, соответствующего значению которого нужно вычислить. После этого программа вычисляет площадь круга и выводит результат на экран.