6.4.. Izračunati površinu kocke.
Listing programa:
PROGRAM P06411058;
VAR { deklarisanje promjenljivih }
a, P : Real; { realne promjenljive }
BEGIN
WRITELN('Povrsina kocke'); { naslov }
Write('Stranica ');
Readln(a); { ulaz - stranica }
P := 6 * a*a; { obrada - povrsina }
Writeln('a = ', a, ' P = ',P); { ispis - stranica i povrsina }
READLN;
END.
Ispis na ekranu:
Index
|
|