Umiestnenie súboru
www.TrSek.com/cover/raptor/objem_kvadra.pas
{ OBJEM_KVADRA.PAS }
{ Program vypocita objem kvadra. }
{ }
{ Author: RaptoR (Juraj Danis) }
{ Date :19.1.2009 http://www.trsek.com }
program objem_kvadru;
uses crt;
var a,b,c,vys:real;
BEGIN
clrscr;
writeln('ZADAJ ROZMER STRANY ''A''');
readln(a);
writeln;
writeln('-------------------------');
writeln;
writeln('ZADAJ ROZMER STRANY ''B''');
readln(b);
writeln;
writeln('-------------------------');
writeln;
writeln('ZADAJ ROZMER STRANY ''C''');
readln(c);
writeln;
writeln('-------------------------');
writeln;
vys:=a*b*c;
writeln('OBJEM KVADRA SO STRANAMY ',a:2:2,', ',b:2:2,', ',c:2:2,' je ',vys:2:2,' cm');
writeln;
writeln('-------------------------');
writeln('PLEASE PRESS ANY KEY!');
readkey;
end.
Copyrigth by Zdeno Sekerak 2007,
http://www.trsek.com