Для реализации данной задачи на языке Pascal мы воспользуемся стандартными математическими константами и формулами связи между радианами и градусами. Основная формула перехода базируется на том, что радиан. Математическая основа
- Из градусов в радианы: Из радиан в градусы:
Код программы (Free Pascal / Delphi) pascal
program AngleConverter; uses Math; var choice: integer; value, result: real; begin writeln('Выберите тип перевода:'); writeln('1: Градусы -> Радианы'); writeln('2: Радианы -> Градусы'); write('Ваш выбор (1 или 2): '); readln(choice); case choice of 1: begin write('Введите величину в градусах: '); readln(value); { Формула: градусы * pi / 180 } result := value * Pi / 180; writeln(value:0:2, ' град. = ', result:0:4, ' рад.'); end; 2: begin write('Введите величину в радианах: '); readln(value); { Формула: радианы * 180 / pi } result := value * 180 / Pi; writeln(value:0:4, ' рад. = ', result:0:2, ' град.'); end; else writeln('Ошибка: неверный выбор операции.'); end; writeln('Нажмите Enter для выхода...'); readln; end. Use code with caution.Пояснения к работе программы- Константа
Pi: В языке Pascal переменнаяPiявляется встроенной функцией, которая возвращает точное значение числа . Операторcase: Используется для удобного разветвления логики в зависимости от выбора пользователя. Форматированный вывод: Запись видаresult:0:4означает, что число будет выведено с 4 знаками после запятой. Это делает результат более читаемым. МодульMath: Подключен для обеспечения доступа к расширенным математическим функциям, хотя для базового использованияPiв некоторых версиях компилятора он необязателен.
Таблица соответствия для проверки
| Градусы | Радианы (приблизительно) |
|---|---|
Я могу добавить в эту программу проверку на ввод некорректных символов или расширить её другими тригонометрическими расчетами. Хотите, чтобы я дополнил код проверкой ошибок ввода?
Форма ответа
Ответы и вопросы пользователей