Pascal dérékszögű háromszögnek hogy számolom ki a 3 oldalát?

1. kódot nem tudok írni, mert nem ismerem ennyire a pascal-t

2. de leírom, hogy hogyan kell megcsinálni

3 szám bekér (a,b,c)

ha( a>0 és b>0 és c>0 )

akkor

__ha( (a*a+b*b=c*c) vagy (a*a+c*c=b*b) vagy (c*c+b*b=a*a))

__akkor derékszögű

__egyébként nem derékszögű

egyébként

__a 3szög oldalhossza csak pozitív szám lehet

Hol szerepel a feladatban, hogy számold ki a 3 oldalt?

A 3 oldal meg van adva.

Neked azt kell eldöntened, a háromszög derékszögű-e, tehűt igaz-e rá a pitagirasz tétel.

Elsőhöz még egy tipp:

Ki tudod választani, melyik a leghosszabb oldal, és ha annak négyzetével egyenlő a két másik oldal négyzetének összege, akkor derékszögű.

Egy próbálkozás, csak egész számokra, mindenféle hibaszűrés nélkül:

uses crt;

var

i : byte;

hanyadik : array[1..3] of string[10] = ('z első',' második',' harmadik');

oldal, osszeg, leghosszabb : integer;

begin

      ClrScr;

      osszeg := 0; leghosszabb := 0;

      for i := 1 to 3 do

            begin

                  Write('Kérem a', hanyadik[i], ' oldal hosszát: ');

                  ReadLn(oldal); oldal := oldal * oldal;

                  if oldal > leghosszabb then leghosszabb := oldal;

                  Inc(osszeg, oldal);

            end;

      ClrScr;

      if not (osszeg - leghosszabb = leghosszabb) then Write('NEM ');

      WriteLn('EGYENLŐ.');

      ReadLn;

end.

Újabb változat:

uses crt;

var

i : byte;

hanyadik : array[1..3] of string[10] = ('z első',' második',' harmadik');

oldal, osszeg, leghosszabb : integer;

begin

      ClrScr;

      osszeg := 0; leghosszabb := 0;

      for i := 1 to 3 do

            begin

                  Write('A', hanyadik[i], ' oldal hossza: ');

                  ReadLn(oldal); oldal := Sqr(oldal);

                  if oldal > leghosszabb then leghosszabb := oldal;

                  Inc(osszeg, oldal);

            end;

      ClrScr;

      if not (osszeg = leghosszabb shl 1) then Write('NEM ');

      WriteLn('DERÉKSZÖGŰ.');

      ReadLn;

end.