• помогите пожалуйста. (Напишите программу которая преобразует угол из градусной меры в радианную. Результат выводится на экран) в pascal ABC

Ответы 7

  • 3.2425926 - это что за магическое число? Исковерканное "пи"?
  • это сбой должно быть пи 3.1415926
  • я думаю эту ошибку исправить
    • Автор:

      yakaddqn
    • 5 лет назад
    • 0
  • спасибо за материал
    • Автор:

      fox17
    • 5 лет назад
    • 0
  • PascalABC.Net 3.0, сборка 1052 Где такую версию найти?
    • Автор:

      macey4mvt
    • 5 лет назад
    • 0
  • На официальном сайте. Вы легко найдете его через поисковик по контексту PascalABC.Net. Это свободно распространяемая версия, рекомендованная для учебных заведений.
    • Автор:

      aileen
    • 5 лет назад
    • 0
  • //PascalABC.Net 3.0, сборка 1052var  d:single;begin  Write('Введите угол в градусах: '); Read(d);  Writeln('Угол в радианах: ',DegToRad(d))end.Тестовое решение:Введите угол в градусах: 57.3Угол в радианах: 1.00007364807695Вариант с формулой вместо функции://PascalABC.Net 3.0, сборка 1052var  d:single;begin  Write('Введите угол в градусах: '); Read(d);  Writeln('Угол в радианах: ',Pi*d/180)end.Вариант, если не хочется использовать константу Pi://PascalABC.Net 3.0, сборка 1052var  d:single;begin  Write('Введите угол в градусах: '); Read(d);  Writeln('Угол в радианах: ',ArcTan(1)*d/45)end.Вариант для тех, кто не помнит, что arctg(1)=π/4://PascalABC.Net 3.0, сборка 1052const  Pi=3.14;var  d:single;begin  Write('Введите угол в градусах: '); Read(d);  Writeln('Угол в радианах: ',Pi*d/180)end.Тестовое решение для этого случая:Введите угол в градусах: 57.3Угол в радианах: 0.999566653357612Как видно, из-за значения π, заданного с низкой точностью, снизилась и точность результата.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years