Anonymní profil Pascal S.R.O – Programujte.com

Dík kluci ušatí, tohle mi postačilo, aby to fungovalo :)

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;
....