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.
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.
Ř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.
Funkce sqrt vrací hodnotu druhé odmocniny, funkce sqr hodnotu druhé mocniny.