Составить программу вычисления площади круга по номеру N одного из элементов и его значению - Pascal ABC

Формулировка задачи:

Пусть элементами круга является радиус (первый элемент), диа- метр (второй элемент) и длина окружности (третий элемент). Каждый раз задается только один элемент, и переменная N принимает одно из значений 1, 2, 3, равное номеру этого элемента. Составить программу вычисления площади круга по номеру N одного из элементов и его значению. Печатать значение заданного элемента, его номер и площадь круга.

Решение задачи: «Составить программу вычисления площади круга по номеру N одного из элементов и его значению»

Листинг программы

uses crt;
var r,d,l,s:real;
    c:char;
begin
repeat
clrscr;
writeln('Определить площадь круга:');
writeln('по 1-радиусу, 2-диаметру, 3-длине окружности');
writeln('Другие клавиши - выход.');
readln(c);
case c of
'1':begin
    write('Введите радиус r=');
    readln(r);
    writeln('Площадь=',pi*r*r:0:2);
    readln
    end;
'2':begin
    write('Введите диаметр d=');
    readln(d);
    writeln('Площадь=',pi*d*d/4:0:2);
    readln
    end;
'3':begin
    write('Введите длину окружности l=');
    readln(l);
    writeln('Площадь=',sqr(l/2/pi)*pi:0:2);
    readln
    end;
else exit;
end;
until not(c in ['1'..'3']);
end.

Объяснение кода листинга программы

В начале кода используется библиотека crt, которая обеспечивает функции для работы с консолью.
Переменные r, d, l, s объявлены как числа с плавающей точкой (real), а переменная c - как символ (char).
В цикле repeat-until происходит следующее:
- Выводится сообщение Определить площадь круга: и список возможных вариантов для выбора (1-радиусу, 2-диаметру, 3-длине окружности).
- Пользователю предлагается ввести свою выбор (с помощью функции readln(c)).
- В зависимости от введенного варианта (с помощью оператора case) выполняется соответствующий блок кода.
Если пользователь вводит '1', то:
- Выводится сообщение Введите радиус r= и с помощью функции readln(r) пользователю предлагается ввести значение радиуса.
- Вычисляется площадь круга по радиусу (пиrr:0:2) и выводится сообщение Площадь=.
- Считывается следующий символ (с помощью функции readln()).
Если пользователь вводит '2', то:
- Выводится сообщение Введите диаметр d= и с помощью функции readln(d) пользователю предлагается ввести значение диаметра.
- Вычисляется площадь круга по диаметру (пиdd/4:0:2) и выводится сообщение Площадь=.
- Считывается следующий символ (с помощью функции readln()).
Если пользователь вводит '3', то:
- Выводится сообщение Введите длину окружности l= и с помощью функции readln(l) пользователю предлагается ввести значение длины окружности.
- Вычисляется площадь круга по длине окружности (sqr(l/2/pi)*pi:0:2) и выводится сообщение Площадь=.
- Считывается следующий символ (с помощью функции readln()).
Если введенный символ не входит в диапазон от '1' до '3', то цикл повторяется, и выводится сообщение Другие клавиши - выход..
Цикл repeat-until продолжается до тех пор, пока пользователь не введет символ, который не входит в диапазон от '1' до '3'.
В конце программы с помощью функции end. закрывается блок begin-end.