Navigace: Hlavní stránka -> PASCAL -> 02 Jednoduché výpočty s podmínkou -> 02.13 Obsah rovnoramenného pravoúhlého trojúhelníku z obvodu

MENU

02.13 Obsah rovnoramenného pravoúhlého trojúhelníku z obvodu

Zadání:
Sestavte program, který vypočte ze zadané hodnoty obvodu O rovnoramenného pravoúhlého trojúhelníku jeho obsah S.
Řešení:
Obsah S pravoúhlého pravoúhlého trojúhelníku lze vypočítat ze zadaného obvodu O podle vzorce:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var obvod,obsah:real;

begin

   write('Zadejte obvod trojuhelniku: ');
   readln(obvod);

   if obvod>0 then
   begin
      obsah:=sqr(obvod)/(12+8*sqrt(2));
      writeln('Obsah trojuhelniku: ',obsah:0:3);
   end
   else
      writeln('Vypocet nelze provest');

   readln;

end.
program ke stažení