PASCAL - LINIJSKA STRUKTURA

Funkcija: ARCTAN - izračunava arkustangens vrijednosti u radijanima
Sintaksa: FUNCTION ARCTAN(vrijednost:<REAL>):<REAL>;
Ugao u radijanima je:
Radijan = Stepen * p /180

Tabela D2. ARCTAN - funkcija

Listing programa	Opis
PROGRAM pARCTAN;	Naslov
BEGIN
WRITELN('ArkusTangens od PI', ARCTAN(Pi));	Ispis na ekran arctg PI
WRITELN('ArkusTangens od 2PI', ARCTAN(2Pi));	Ispis na ekran arctg 2PI
END.	Kraj programa

Listing programa:

PROGRAM pARCTAN;
BEGIN
  WRITELN('ArkusTangens od PI', ARCTAN(Pi));
  WRITELN('ArkusTangens od 2*PI', ARCTAN(2*Pi));
END.