6.3.. Napisati program za ispis brojeva Pi i 1/Pi na 4 decimale.

Opis programa: Turbo Pascal olakšava posao programerima jer broj Pi se ne mora unositi nego ga koristimo kao varijablu Pi. (Pi=3. 14159265363E+00 ).

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM p06311024;

 

2

USES

 

3

  WinCrt;

 

4

VAR

 

5

  n: Real;

 

6

BEGIN

 

7

  WRITELN('Pi = ', pi);

3. 14159265363E+00

8

  WRITELN('Pi = ', pi:8:4);

3.1416

9

  WRITELN('1/Pi = ', 1/pi:8:4);

0.3183

10

END.

 

Listing programa:

PROGRAM p06311024;
USES
  WinCrt;
BEGIN
  WRITELN('Pi = ', pi);
  WRITELN('Pi = ', pi:8:4);
  WRITELN('1/Pi = ', 1/pi:8:4);
END.

Ispis na ekranu:

Index