COS - vraĉa kosinus ugla

FUNCTION COS(vrijednost:<REAL>):<REAL>;

Ugao je u radijanima:
Radijan = Stepen * p /180

Tabela d.9. COS - funkcija

**

Listing programa

Ekran

Opis

1

PROGRAM Kosinus;

 

Naslov

2

BEGIN

 

 

3

  WRITELN('Kosinus od p', COS(Pi));

-1

Ispis na ekran cos p

4

  WRITELN('Kosinus od 2*p', COS(2*Pi));

1

Ispis na ekran cos 2p

6

END.

 

Kraj programa

 Listing programa:

PROGRAM pCOS;
USES
  WinCrt;
BEGIN		   
  WRITELN('Kosinus od Pi', COS(Pi));
  WRITELN('Kosinus od 2*Pi', COS(2*Pi));
END.

Index