Vypočíta obvod kocky a objem kocky

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu
kocka.pngProgram: Kocka.pas
Subor exe: Kocka.exe

Vypočíta obvod kocky a objem kocky.
Pre výpočet obvodu platí vzťah 3·4·a.
Pre výpočet povrchu platí vzťah 6·a².
Pre výpočet objemu platí vzťah a³.

Pričom:
- a je strana kocky
{ KOCKA.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Vypocita obvod, povrch, objem kocky                               }
{ Vstup : rozmer hrany kocky                                        }
{ Vystup: obvod, povrch, objem kocky                                }
{                                                                   }
{ Datum:10.04.2000                             http://www.trsek.com }
 
program kocka;
uses crt;
var a,obvod: real;
      objem: real;
     povrch: real;
begin
 Clrscr;
 Write('Zadaj stranu kocky:');
 ReadLn(a);
 obvod :=3*4*a;
 povrch:=6*a*a;
 objem :=a*a*a;
 WriteLn('Obvod  kocky pre stranu:',a:5:2,' je ', obvod:5:2);
 WriteLn('Povrch kocky pre stranu:',a:5:2,' je ',povrch:5:2);
 WriteLn('Objem  kocky pre stranu:',a:5:2,' je ', objem:5:2);
 Readln;
end.