Navigace: Hlavní stránka -> PASCAL -> 01 Jednoduché výpočty -> 01.06 Objem, povrch, uhlopříčky krychle

MENU

01.06 Objem, povrch, uhlopříčky krychle

Zadání:
Sestavte program, který ze zadané strany a krychle vypočte objem, povrch, stěnovou a tělesovou úhlopříčku krychle.
Řešení:
Ze zadané strany krychle a lze objem V, povrch S, stěnovou úhlopříčku us a tělesovou úhlopříčku ut vypočítat podle vzorců:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,objem,povrch,us,ut:real;

begin

   write('Zadejte stranu krychle a: ');
   readln(a);

   objem:=sqr(a)*a;
   povrch:=6*sqr(a);
   us:=a*sqrt(2);
   ut:=a*sqrt(3);

   writeln('Objem = ',objem:0:3);
   writeln('Povrch = ',povrch:0:3);
   writeln('Delka stenove uhlopricky = ',us:0:3);
   writeln('Delka telesove uhlopricky = ',ut:0:3);

   readln;

end.
program ke stažení