Dík kluci ušatí, tohle mi postačilo, aby to fungovalo :)
Příspěvky odeslané z IP adresy 95.82.187.–
No už sem si myslel, že sem to vyřešil, ale pořád nic :/
Program HOTOVO;
uses math;
const pi:real=3.14;
var a,b,c:real;
alfa,beta,gamma:real;
max,help:real;
x,prav:boolean;
Begin
help:=0;
max:=0;
write('Zadejte delku strany a: ');
readln(a);
write('Zadejte delku strany b: ');
readln(b);
write('Zadejte delku strany c: ');
readln(c);
if (a+b>c) and (b+c>a) and (c+a>b) then
begin
x:=true;
writeln('Z techto stran lze sestrojit trojuhelnik.');
end;
if x<>true then writeln('Z techto stran nelze sestrojit trojuhelnik!')
else begin
if (c*c=(a*a)+(b*b)) or (b*b=(a*a)+(c*c)) or (a*a=(b*b)+(c*c)) then
begin
if (a>b) and (a>c) then begin a:=max;
max:=help;
help:=a;
end;
if (b>a) and (b>c) then begin b:=max;
max:=help;
help:=b;
end;
if (c>a) and (c>b) then begin c:=max;
max:=help;
help:=c;
end ;
writeln('Tento trojuhelnik je pravouhly!');
alfa:=arcsin(a/max)*(180/pi);
writeln('Velikost uhlu alfa je: ',alfa:4:2);
beta:=arcsin(b/max)*(180/pi);
writeln('Velikost uhlu beta je: ',beta:4:2);
gamma:=arcsin(c/max)*(180/pi);
writeln('Velikost uhlu gamma je: ',gamma:4:2)
end;
if (a=b) and (b=c) and (c=a) then
writeln('Tento trojuhelnik je rovnostranny!')
else if (a=b) or (b=c) or (c=a) then
writeln('Tento trojuhelnik je rovnoramenny!');
end
;
readln;
end.
exited with exitcode = 217 /// An unhandled exception occured at $0040198D: EdivByZero : Division by zero $0040198D
Osobně si myslím, že problém nebude v dělení, ale nevím si rady :(
Nazdar, mám takovej problém, mám program, kterej jede, ale když tam zapíšu určité hodnoty, tak mi to píše, že nelze dělení nulou //division by zero// pořád nevím, kde je problém, nemáte nějakou radu?
.... then begin
if (a>b) and (a>c) then begin a:=max;
max:=help;
help:=a;
end
else if (b>a) and (b>c)
then begin b:=max;
max:=help;
help:=b;
end
else if (c>a) and (c>b)
then begin c:=max;
max:=help;
help:=c;
end;
....