Po zadání tří rozmerů kvádru vypočte jeho objem

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Author: Pavel Paták
web: www.webpark.cz/programar

Program: Kvadr.pas
File exe: Kvadr.exe

Po zadání tří rozmerů kvádru vypočte jeho objem
{ KVADR.PAS                               Copyright (c) Pavel Patak }
{ Po zadání tri rozmeru kvadru vypocte jeho objem                   }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program Kvadr;
 
Var a, b, c, V : Real;
 
Begin
   Write('Zadej delku strany a : ');
   Readln(a);
   Write('Zadej delku strany b : ');
   Readln(b);
   Write('Zadej delku strany c : ');
   Readln(c);
   Writeln; {Trocha odsazeni zvetsi prehlednost}
   Writeln('V = ',a*b*c:7:2);
   Readln;
End.