Zadání:
Sestavte program, který vypočte ze zadaných délek odvěsen přeponu pravoúhlého trojúhelníku.
Řešení:
Pomocí Pythagorovy věty lze přeponu 
c pravoúhlého trojúhelníku vypočítat ze zadaných délek stran 
a,b podle vzorce:
 
 
 
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var a,b,c:real;
begin
   write('Zadejte delku prvni odvesny: ');
   readln(a);
   write('Zadejte delku druhe odvesny: ');
   readln(b);
   c:=sqrt(sqr(a)+sqr(b));
   writeln('Delka prepony=',c:0:3);
   readln;
end.
program ke stažení
Pro studenty:
Funkce sqrt vrací hodnotu druhé odmocniny, funkce sqr hodnotu druhé mocniny.