Skocz do zawartości


Zdjęcie

Free Pascal


21 odpowiedzi w tym temacie

#21 n4zArh

n4zArh

    Początkujący

  • Użytkownik
  • 4 postów

Napisano 2013.02.14, 14:48

 

[...]

 

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


#22 kr2ysiek

kr2ysiek

  • Pomocnik
  • 1501 postów

Napisano 2013.02.14, 19:58

A nie lepiej tak: if a*a+b*b=c*c?



Dodaj odpowiedź



  


Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych