Составить в паскале программу осуществляющую перевод величин из радиан в градусы и наобоброт программа должна запрашивать какой перевод нужно осуществить и выполнять указанное действие

Поляков Евгений Александрович

Учитель информатики высшей категории

Проверено учителем

Для реализации данной задачи на языке Pascal мы воспользуемся стандартными математическими константами и формулами связи между радианами и градусами. Основная формула перехода базируется на том, что 180=π180 raised to the composed with power equals pi радиан. Математическая основа

  • Из градусов в радианы: rad=degπ180r a d equals d e g center dot the fraction with numerator pi and denominator 180 end-fraction Из радиан в градусы: deg=rad180πd e g equals r a d center dot the fraction with numerator 180 and denominator pi end-fraction

Код программы (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 является встроенной функцией, которая возвращает точное значение числа πpi. Оператор case: Используется для удобного разветвления логики в зависимости от выбора пользователя. Форматированный вывод: Запись вида result:0:4 означает, что число будет выведено с 4 знаками после запятой. Это делает результат более читаемым. Модуль Math: Подключен для обеспечения доступа к расширенным математическим функциям, хотя для базового использования Pi в некоторых версиях компилятора он необязателен.

Таблица соответствия для проверки

Градусы Радианы (приблизительно)
9090 raised to the composed with power 1.57081.5708
180180 raised to the composed with power 3.14163.1416
360360 raised to the composed with power 6.28326.2832

Я могу добавить в эту программу проверку на ввод некорректных символов или расширить её другими тригонометрическими расчетами. Хотите, чтобы я дополнил код проверкой ошибок ввода?

Форма ответа

Ваш аватар