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:
 |
 |
 |
 |
 |
 |
