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

@coul777exe · Регистрация: 12.04.2016

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

Pascal

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

@Puporev · 12.04.2016, 19:23

Pascal

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.

@coul777exe · 12.04.2016, 19:28 **[ТС]**

Спасибо большое, добрый человек)

@coul777exe 0 / 0 / 0 Регистрация: 12.04.2016 Сообщений: 39
	12.04.2016, 19:28 [ТС]	3
	Спасибо большое, добрый человек) 0

Опции темы