Navigace: Hlavní stránka -> PASCAL -> 03 Podmínky -> 03.01 Test, zda 3 zadaná čísla jsou stranami trojúhelníku

MENU

03.01 Test, zda 3 zadaná čísla jsou stranami trojúhelníku

Zadání:
Sestavte program, který určí, zda zadané tři hodnoty mohou být stranami trojúhelníku.
Řešení:
Hodnoty mohou být stranami trojúhelníku v případě, že součet libovolných dvou hodnot je větší než třetí hodnota. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c:real;

begin

   write('Zadejte prvni cislo:');
   readln(a);
   write('Zadejte druhe cislo:');
   readln(b);
   write('Zadejte treti cislo:');
   readln(c);

   if (a+b>c) and (b+c>a) and (a+c>b) then
      writeln('Trojuhelnik lze sestrojit')
   else
      writeln('Trojuhelnik nelze sestrojit');

   readln;

end.
program ke stažení
Pro studenty:
V Pascalu je nutné jednotlivé podmínky v příkazu IF umístit do závorek, logické operátory and, or a not mají vyšší prioritu, než matematické operátory.