6.3.. Za poznati poluprečnik izračunati obim i površinu kruga.
Opis rješenja: Površina kruga se izračunava prema poznatoj formuli: p=pi*r2, odnosno p=pi * r*r. Obim kruga se izračunava prema poznatoj formuli: o=2*r*pi. TURBO PASCAL sadrži vrijednost pi. Ako u programskom jeziku nije sistemski ugrađena vrijednost broja pi mora se izvesti pridruživanje vrijednosti za broj pi=3.141593 ili za preciznije izračunavnje se koristi izraz pi= 4 * ARCTAN(1.0).
Opis programa: Na početku programa su deklarisane varijable koje se koriste u programu. Sve vrijednosti će biti realne. Poslije upisivanja vrijednosti poluprečnika izvodi se izračunavnje. Na kraju je ispis vrijednosti.
Provjeriti različitost ispis:
*** |
Listing programa |
Opis |
1 |
Writeln(o,p); |
|
2 |
Writeln('o=',o,' p=',p); |
|
3 |
Writeln('o=',o:4:2,' p=',p:4:2); |
|
Listing programa:
PROGRAM P06411079;
VAR { deklarisanje promjenljivih }
r, o, p : Real; { realne promjenljive }
BEGIN
WRITELN('Obim i površinu kruga'); { naslov }
Write('Poluprecnik '); { ulazne promjenljive }
Readln(r); { ulaz - ucitavanje promjenljivih }
o := 2 * r * pi; { obrada - proracun }
p := pi * sqr(r);
Writeln('Za poluprecnik ', r); { izlaz - ispis }
Writeln('Obim kruga je ', o, ' povrsina kruga je ', p); { izlaz - ispis }
READLN;
END.
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
