Navigace: Hlavní stránka -> PASCAL -> 02 Jednoduché výpočty s podmínkou -> 02.05 Objem, povrch, uhlopříčky krychle

MENU

02.05 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);

   if a>0 then
   begin
      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);
   end
   else writeln('Spatne zadani');
   
   readln;

end.

program ke stažení