Navigace: Hlavní stránka -> PASCAL -> 02 Jednoduché výpočty s podmínkou -> 02.07 Obsah trojúhelníku ze základny a výšky

MENU

02.07 Obsah trojúhelníku ze základny a výšky

Zadání:
Sestavte program, který ze zadané základny z a výšky v trojúhelníku vypočte jeho obsah.
Řešení:
Obsah trojúhelníku S ze zadané základny z a výšky v lze vypočítat podle vzorce:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var zakladna,vyska,obsah:real;

begin

   write('Zadejte zakladnu: ');
   readln(zakladna);
   write('Zadejte vysku: ');
   readln(vyska);

   if (zakladna>0) and (vyska>0) then
   begin
      obsah:=zakladna*vyska/2;
      writeln('Obsah trojuhelniku=',obsah:0:3);
   end
   else writeln('Spatne zadani');

   readln;

end.
program ke stažení