Navigace: Hlavní stránka -> PASCAL -> 01 Jednoduché výpočty -> 01.11 Přepona trojúhelníku z odvěsen

MENU

01.11 Přepona trojúhelníku z odvěsen

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.