Question

Turbo pascal. Gdzie ukrył się błąd?

Chodzi o to, aby program najpierw sprawdził, czy z podanych boków mozna zrobic trojkat, a potem powiedział, jaki jest jego typ.

Za pomoc oczywiscie dam naj :)

PROGRAM trojkat;
USES crt;
VAR
a: integer;
b: integer;
c: integer;

BEGIN
clrscr;

gotoxy(1,4); write('Witam w programie sluzacym do sprawdzenia,czy z danych bokow mozna zbudowac trojkat. Wcisnij enter ');
readln;
clrscr;

gotoxy(6,28); write('Wprowadz dlugosc pierwszego boku ');
readln (a);


gotoxy(8,28); write('Wprowadz dlugosc drugiego boku ');
readln (b);

gotoxy(10,28); write('Wprowadz dlugosc trzeciego boku ');
readln (c);

if (a+b>c) and (a+c>8) and (b+c>a) then
gotoxy(12,20); write(' Mozna zbudowac trojkat ');

Begin
if a^2+b^2=c^2 then gotoxy(14,20); wirte(' Trojkat jest prostokatny ');
if a^2+B^2<c^2 then gotoxy(15,20); write(' Trojkat jest rozwartokatny ');
if a^2+B^2>c^2 then gotoxy(16,20); write(' Trojkat jest ostrokatny ');
End

else

Begin
gotoxy(18,20); write(' Nie mozna zbudowac trojkata ');
END

END

Answer 1

if (a+b>c) and (a+c>b) and (b+c>a) then

Begin
 gotoxy(12,20); write(' Mozna zbudowac trojkat ');
 if a*a+b*b=c*c then begin gotoxy(14,20); write(' Trojkat jest prostokatny '); end;
 if a*a+b*b<c*c then begin gotoxy(15,20); write(' Trojkat jest rozwartokatny '); end;
 if a*a+b*b>c*c then begin gotoxy(16,20); write(' Trojkat jest ostrokatny '); end;
End Else

 Write('Nie mozna zbudowac trojkata.');

 

Powinno działać.

Edit: było jeszcze 7 błędów. 

Answer 2

dodatkowo: nie a+c>8 tylko a+c>b, brakuje begin ... end w warunkach na trójkąt prostokątny i aby te warunki zadziałały dobrze, to c musi być długością najdłuższego boku