pascal : Program Kvader

bollech

ahojte prosim Vás mam na zajtra napisat program v pascale KVADER...proste mam tam vypošitam objem a povrch..nemate to niekde alebo neviete mi poradit kde by som to nasiel??som z toho uplný jelen...velmi pekne dakujem......velmi by ste mi tym pomohli....

Príspevok od používateľa **ppt** » 20 nov 2007, 19:48

Pisem to len z hlavy (nemam na nb na intraku BP), pascal som nevidel 2 roky:

Kód: Vybrať všetko

program kvader;
var a,b,c,s,v:integer;
begin
write('Zadaj hranu a: ');
readln(a);
write('Zadaj hranu b: ');
readln(b);
write('Zadaj hranu c: ');
readln(c);
s:=2*(a*b+a*c+b*c);
v:=a*b*c;
write('Povrch kvadra je: ');
writeln(s);
write('Objem kvadra je: ');
writeln(v);
readln;
end.

bollech

Velmi pekne ti dakujem mas to u mna ....ale naozaj velmi pekne dakujem.....

matwej

realnejsie aby bralo aj desatinne, plus jednoduchsie by to bolo:

Kód: Vybrať všetko

program kvader;
var a,b,c:real;

begin
writeln('zadaj velkosti hran a b c v cm');
readln(a,b,c);
writeln('objem je: ',a*b*c:2:2,' , povrch je: ',2*(a*b+a*c+b*c):2:2);
readln;
end.