Napisati program sa funkcijom za pretvaranje stepena u radijane.

Listing programa:

PROGRAM Pretvaranje;
USES
  WinCrt;
VAR
 x,y: Real;

FUNCTION kv(b:real):real;
CONST
  pi = 3.14159;
BEGIN
  step := (a*pi)/180;
END;

BEGIN
  writeln ('stepeni u radijane');
  write('x= ');
  readln(x);
  y := kv(x);
  writeln('x= ',x, '  y=', y);
END.

Index