Ĺadny brzuch
witam!
Program obicza rownanie postaci ax+b=0
[codebegin
writeln('Podaj wartosc a:');
readln(a);
write('Podaj wartosc b:');
readln(B);
x:=(-1)*b/a ;
if (a=0) and (b=0) then
writeln('Rozwiazaniem sa wszystkie liczby rzeczywiste')
else if (a<>0) and (b<>0) then
writeln ('Rozwiazaniem jest x:',x:2:2);
if (a=0) and (b<>0) then
writeln('Rownanie sprzeczne');
if
(b=0) and (a<>0) then
writeln('Rownanie sprzeczne');
readln;
end.
[/code]
pojawiajacy sie error 200 rozumiem ze to blad dzielenia przez zero.
Jak moge sie go pozbyc (chodzi mi raczej o zmiane w kodize a nie patche:)
cytat:Crisu napisał:
pojawiajacy sie error 200 rozumiem ze to blad dzielenia przez zero.
Jak moge sie go pozbyc (chodzi mi raczej o zmiane w kodize a nie patche:)
Błąd o którym piszesz możesz usunąć chyba tylko przez patcha albo podmianę crt na nowszy (no albo powrót do starego kompa :)).
Ale poza tym powinieneś zabezpieczyć sam program przed wczytaniem (lub użyciem) do zmiennej a wartości 0. Bo wtedy linijka x:=(-1)*b/a spowoduje błąd dzielenia przez zero.
Możesz np. dać wczytywanie a w pętli dopóki nie zostanie wczytana liczba różna od 0.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
a moze podajesz a = 0 ;]
ale pewnie borland pascal robi jaja tak jak pisze Oxi. hehe znam na to pewien sposob ;] odpal winampa kilka windows media playerow z roznymi filmami, opere kilka okien internet explorera itp tak zeby procesor sie nie nudzil ;] i twoj progs powinien ruszyc :cheesy: :P
wnioski nasuwaja sie same!!! to nie kompilator jest sklepany tylko masz za szybki proc :]
pozdrawiam
pepsi^no1
Jeżeli podajesz a<>0 i wyskakuje ci ten błąd, to nie możesz go wyeliminować w kodzie. Musisz zainstalować patcha albo ściągnąć inny kompilator - polecam Dev-Pas: http://www.bloodshed.../devpascal.html
Pozdrawiam i zapraszam na *** www.windowsik.prv.pl ***
zmieniłem
if (a=0) and (b=0) then writeln('Rozwiazaniem sa wszystkie liczby rzeczywiste') else if (a<>0) and (b<>0) then begin x:=(-1)*b/a; writeln ('Rozwiazaniem jest x:',x:2:2) end;
i działa:D
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Program obicza rownanie postaci ax+b=0
[codebegin
writeln('Podaj wartosc a:');
readln(a);
write('Podaj wartosc b:');
readln(B);
x:=(-1)*b/a ;
if (a=0) and (b=0) then
writeln('Rozwiazaniem sa wszystkie liczby rzeczywiste')
else if (a<>0) and (b<>0) then
writeln ('Rozwiazaniem jest x:',x:2:2);
if (a=0) and (b<>0) then
writeln('Rownanie sprzeczne');
if
(b=0) and (a<>0) then
writeln('Rownanie sprzeczne');
readln;
end.
[/code]
pojawiajacy sie error 200 rozumiem ze to blad dzielenia przez zero.
Jak moge sie go pozbyc (chodzi mi raczej o zmiane w kodize a nie patche:)
cytat:Crisu napisał:
pojawiajacy sie error 200 rozumiem ze to blad dzielenia przez zero.
Jak moge sie go pozbyc (chodzi mi raczej o zmiane w kodize a nie patche:)
Błąd o którym piszesz możesz usunąć chyba tylko przez patcha albo podmianę crt na nowszy (no albo powrót do starego kompa :)).
Ale poza tym powinieneś zabezpieczyć sam program przed wczytaniem (lub użyciem) do zmiennej a wartości 0. Bo wtedy linijka x:=(-1)*b/a spowoduje błąd dzielenia przez zero.
Możesz np. dać wczytywanie a w pętli dopóki nie zostanie wczytana liczba różna od 0.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
a moze podajesz a = 0 ;]
ale pewnie borland pascal robi jaja tak jak pisze Oxi. hehe znam na to pewien sposob ;] odpal winampa kilka windows media playerow z roznymi filmami, opere kilka okien internet explorera itp tak zeby procesor sie nie nudzil ;] i twoj progs powinien ruszyc :cheesy: :P
wnioski nasuwaja sie same!!! to nie kompilator jest sklepany tylko masz za szybki proc :]
pozdrawiam
pepsi^no1
Jeżeli podajesz a<>0 i wyskakuje ci ten błąd, to nie możesz go wyeliminować w kodzie. Musisz zainstalować patcha albo ściągnąć inny kompilator - polecam Dev-Pas: http://www.bloodshed.../devpascal.html
Pozdrawiam i zapraszam na *** www.windowsik.prv.pl ***
zmieniłem
if (a=0) and (b=0) then writeln('Rozwiazaniem sa wszystkie liczby rzeczywiste') else if (a<>0) and (b<>0) then begin x:=(-1)*b/a; writeln ('Rozwiazaniem jest x:',x:2:2) end;
i działa:D