Dze je subor www.TrSek.com/zadania/gonio.pas

{ GONIO.PAS                                      Copyright (c) Pheo }
{ Tabu¾ka goniometrických funkcií.                                  }
{ Nad zadaným intervalom zobrazí sínus, cosínus, tangens.           }
{                                                                   }
{ Datum:23.03.2005                             http://www.trsek.com }

program goniometria;
var x:real;
    a,b,alfa,i:integer;
function  rad(alfa:integer):real;
begin
     rad:=pi/180*alfa;
end;
begin
     write('Uved interval:');
     read(a,b);writeln;
     writeln('  uhol     sinus      kosinus     tangens');writeln;
     for i:=a to b do
     begin
          write(i:5,sin(rad(i)):12:5,cos(rad(i)):12:5);
          write(sin(rad(i))/cos(rad(i)):12:5);
          writeln;
     end;
     writeln;readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com