Составить функцию, которая по величине угла в радианах возвращает величину этого угла в градусах - Pascal ABC

Узнай цену своей работы

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

Ребят я в этом деле новичок, позарез нужно сдать лабораторную( Составляю функцию а результат выводит 0. С процедурой программа работала. А вот с функцией не хочет. В общем нужно ваше авторитетное мнение: 1. Правильно ли я решаю задачу? 2. Если правильно то где допущены ошибки? 3. Хотелось бы увидеть как должен выглядеть исправленный код =))) Заранее спасибо)

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

textual
Листинг программы
program prozedura_radian;{7.    Написать программу, которая по величине
угла в радианах возвращает величину этого угла в градусах.}
Function radtograd(a:real):real;
begin
radtograd:=a*180/pi
end;
var a:real;
begin
writeln('Введите угол в радианах');
readln(a);
writeln('Угол в градусах равен ',radtograd(a):0:2);
end.

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

  1. Создается программа prozedura_radian для решения задачи по переводу углов из радиан в градусы.
  2. В функции radtograd определяется формула для перевода угла из радиан в градусы: a*180/pi, где a - угол в радианах.
  3. Переменная a инициализируется значением, введенным пользователем.
  4. Выводится приглашение для ввода угла в радианах.
  5. Считывается значение угла из радиан.
  6. Вызывается функция radtograd с аргументом a и сохраняется результат в переменной radtograd.
  7. Выводится результат перевода угла в градусы.
  8. Программа завершается.

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы