Programovanie - Free Pascal

Zadanie príkladu: Úplný podmienený príkaz

Napíšte program, ktorý

• načíta tri celočíselné premenné, ktoré reprezentujú dĺžky strán trojuholníka
• pomocnou procedúrou zistí, ktoré zo zadaných čísel je najväčšie
• pomocou Pytagorovej vety overí, či je daný trojuholník pravouhlý

Riešenie zadania:                                                         

program Pravouhly trojuholnik;                                                                    príklad Pascal.docx (13,6 kB)
uses crt;
var a,b,c : real;

begin
writeln(' Program, ktory zisti z 3 zadanych celych cisiel najvacsie cislo ');
writeln;
writeln('Zadaj 3 cisla :');
write(' Prve cislo : ');
readln(a);
write(' Druhe cislo : ');
readln(b);
write(' Tretie cislo : ');
readln(c);
writeln;
if a>b then
   if a>c then
        writeln('Najvacsie cislo je ',a)
   else
        writeln('Najvacsie cislo je ',c)
else
    if b>c then
       writeln('Najvacsie cislo je ',b)
    else
       writeln('Najvacsie cislo je ',c);
readln;
begin
writeln(' Program, ktory zisti, ci trojuholnik o stranach a, b, c je pravouhly');
writeln;
writeln('Zadaj dlzky stran :');
write(' a = ');
readln(a);
write(' b = ');
readln(b);
write(' c = ');
readln(c);
writeln;
if ( a*a +b*b = c*c ) OR ( a*a + c*c = b*b ) OR ( b*b + c*c = a*a) then
  writeln('Trojuholnik je pravouhly')
else
  writeln('Trojuholnik nie je pravouhly');
readln;
end.