[...]
spróbuj odpalić ten kod...poprawiłem kilka błędów
Waaait. A gdzie sprawdzanie prostokątności trójkąta?
Zamiast
if a+b>c then
powinno być raczej
if a^2+b^2=c^2
o ile pamiętam składnię [i potęgowanie] w Pascalu. Pierwsza wersja sprawdza czy można zbudować dowolny trójkąt, a druga - czy można zbudować trójkąt prostokątny, zgodnie z założeniami zadania które podał autor...
EDIT: w ogóle program można napisać dużo łatwiej i szybciej, bez żadnego zamieniania zmiennych.
program tr; uses crt; var a,b,c:integer; Begin write('Podaj pierwsza liczbe: '); readln(a); write('Podaj druga liczbe: '); readln(b); write('Podaj trzecia liczbe: '); readln(c); if a^2+b^2=c^2 then writeln('mozna zbudowac') else if a^2+c^2=b^2 then writeln('mozna zbudowac') else if b^2+c^2=a^2 then writeln('mozna zbudowac') else writeln('nie mozna zbudowac'); readln; End.
@down: a*a to to samo co a^2. Z drugiej strony nie wiem czy potęgowanie nie wymagało jakiejś biblioteki w stylu math, więc można to od biedy zamienić. Sens zostaje taki sam
Użytkownik n4zArh edytował ten post 2013.02.14, 23:40