Navigace: Hlavní stránka -> PASCAL -> 01 Jednoduché výpočty -> 01.12 Obsah rovnoramenného trojúhelníku ze základny a ramene

MENU

01.12 Obsah rovnoramenného trojúhelníku ze základny a ramene

Zadání:
Sestavte program, který vypočte ze zadané délky základny a ramene rovnoramenného trojúhelníku jeho obsah.
Řešení:
Řešení má dva kroky:
1. Vypočítat pomocí Pythagorovy věty z ramene b a poloviny základny a výšku trojúhelníku.
2. Ze základny a vypočtené výšky vypočítat obsah trojúhelníku.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,v,obsah:real;

begin

   write('Zadejte zakladnu: ');
   readln(a);
   write('Zadejte rameno: ');
   readln(b);

   v:=sqrt(sqr(b)-sqr(a/2));

   obsah:=a*v/2;

   writeln('Obsah trojuhelnika: ',obsah:0:3);

   readln;

end.
program ke stažení
Pro studenty:
Funkce sqrt vrací hodnotu druhé odmocniny, funkce sqr hodnotu druhé mocniny.