Ładny brzuch
Witam!
Czy kto mgby sprawdzic program obliczajacy rownanie kwadratowe. Bybym wdziczny za wszelkiego rodzaju korekty i rady.
program rownanie_kwadratowe; var a,b,c,delta,x1,x2,x12:real; begin writeln('Program wylicza rownanie kwadratowe typu ax^2+bx+c=0'); writeln ('Podaj wartosc a:'); readln(a); writeln ('Podaj wartosc b:'); readln(b); writeln('Podaj wartosc c:'); if (a=0)and (b=0) and (c=0) then writeln ('Rownanie nieoznaczone dla a=0 b=0 c=0'); if (a=0) and (b=0) and (c<>0) then writeln('Rownanie jest sprzeczne'); delta:=b*b-4*a*c; if (delta<0) then writeln('Funkcja nie posiada pierwiastkow'); if (delta=0) then x12:=-1*b/2*a; writeln ('Funkcja posiada jeden pierwiastek podwojny rowny',x12); if (delta>0) then x1:=-b+sqrt(delta)/(2*a); x2:=-b-sqrt(delta)/(2*a); writeln ('x1=',x1,'x2=',x2); readln; end.
heh prawie dobrze, ale dla 100% poprawnoci gdy
delta<0 to nie posiada rozwiza w zbiorze liczb rzeczywistych:D
Kodie
program rownanie_kwadratowe; var a,b,c,delta,x1,x2,x12:real; begin writeln('Program wylicza rownanie kwadratowe typu ax^2+bx+c=0'); writeln ('Podaj wartosc a:'); readln(a); writeln ('Podaj wartosc b:'); readln(b); writeln('Podaj wartosc c:'); readln(c); if (a=0)and (b=0) and (c=0) then writeln ('Rownanie nieoznaczone dla a=0 b=0 c=0'); if (a=0) and (b=0) and (c<>0) then writeln('Rownanie jest sprzeczne'); delta:=b*b-4*a*c; if (delta<0) then writeln('Funkcja nie posiada pierwiastkow'); if (delta=0) then begin x12:=-1*b/2*a; writeln ('Funkcja posiada jeden pierwiastek podwojny rowny',x12); end; if (delta>0) then begin x1:=-b+sqrt(delta)/(2*a); x2:=-b-sqrt(delta)/(2*a); end; writeln ('x1=',x1,'x2=',x2); readln; end.
Sprawd teraz ;)
kurcze ciagle wyswietla mi sie error 105 , co uniemozliwia uruchomienie
cytat:BlackMesa napisa:
if (delta>0) then begin x1:=-b+sqrt(delta)/(2*a); x2:=-b-sqrt(delta)/(2*a); writeln ('x1=',x1,'x2=',x2); end; readln; end.
Cao tak jak napisa BlackMesa + maa poprawka w begin - end tak jak powyej.
Crisu - ju wiem komu skasowaem posta ;)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Crisu napisa:
kurcze ciagle wyswietla mi sie error 105 , co uniemozliwia uruchomienie
Przy uruchamianiu programu ?
Zlokalizuj jaka linijka kodu powoduje bd...
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
juz widze:)
brak moduu WinCrt...senny sie robie;)
Jeszcze jedno :P Przecie wogle le x1 i x2 liczysz ;) Powinno by:
if (delta>0) then begin x1:=(-b+sqrt(delta))/(2*a); x2:=(-b-sqrt(delta))/(2*a); writeln ('x1=',x1,'x2=',x2); end; readln; end.
Moe chodmy ju spa... :P
no faktyczynie...nawiasy:|
pisanie po 24 mi nie suy...
A widze, e jeszcze s byki przy wpisaniu samych zer. ( to samo co przy ukadzie rwna) :](*,)
dobranoc;)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Czy kto mgby sprawdzic program obliczajacy rownanie kwadratowe. Bybym wdziczny za wszelkiego rodzaju korekty i rady.
program rownanie_kwadratowe; var a,b,c,delta,x1,x2,x12:real; begin writeln('Program wylicza rownanie kwadratowe typu ax^2+bx+c=0'); writeln ('Podaj wartosc a:'); readln(a); writeln ('Podaj wartosc b:'); readln(b); writeln('Podaj wartosc c:'); if (a=0)and (b=0) and (c=0) then writeln ('Rownanie nieoznaczone dla a=0 b=0 c=0'); if (a=0) and (b=0) and (c<>0) then writeln('Rownanie jest sprzeczne'); delta:=b*b-4*a*c; if (delta<0) then writeln('Funkcja nie posiada pierwiastkow'); if (delta=0) then x12:=-1*b/2*a; writeln ('Funkcja posiada jeden pierwiastek podwojny rowny',x12); if (delta>0) then x1:=-b+sqrt(delta)/(2*a); x2:=-b-sqrt(delta)/(2*a); writeln ('x1=',x1,'x2=',x2); readln; end.
heh prawie dobrze, ale dla 100% poprawnoci gdy
delta<0 to nie posiada rozwiza w zbiorze liczb rzeczywistych:D
Kodie
program rownanie_kwadratowe; var a,b,c,delta,x1,x2,x12:real; begin writeln('Program wylicza rownanie kwadratowe typu ax^2+bx+c=0'); writeln ('Podaj wartosc a:'); readln(a); writeln ('Podaj wartosc b:'); readln(b); writeln('Podaj wartosc c:'); readln(c); if (a=0)and (b=0) and (c=0) then writeln ('Rownanie nieoznaczone dla a=0 b=0 c=0'); if (a=0) and (b=0) and (c<>0) then writeln('Rownanie jest sprzeczne'); delta:=b*b-4*a*c; if (delta<0) then writeln('Funkcja nie posiada pierwiastkow'); if (delta=0) then begin x12:=-1*b/2*a; writeln ('Funkcja posiada jeden pierwiastek podwojny rowny',x12); end; if (delta>0) then begin x1:=-b+sqrt(delta)/(2*a); x2:=-b-sqrt(delta)/(2*a); end; writeln ('x1=',x1,'x2=',x2); readln; end.
Sprawd teraz ;)
kurcze ciagle wyswietla mi sie error 105 , co uniemozliwia uruchomienie
cytat:BlackMesa napisa:
if (delta>0) then begin x1:=-b+sqrt(delta)/(2*a); x2:=-b-sqrt(delta)/(2*a); writeln ('x1=',x1,'x2=',x2); end; readln; end.
Cao tak jak napisa BlackMesa + maa poprawka w begin - end tak jak powyej.
Crisu - ju wiem komu skasowaem posta ;)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Crisu napisa:
kurcze ciagle wyswietla mi sie error 105 , co uniemozliwia uruchomienie
Przy uruchamianiu programu ?
Zlokalizuj jaka linijka kodu powoduje bd...
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
juz widze:)
brak moduu WinCrt...senny sie robie;)
Jeszcze jedno :P Przecie wogle le x1 i x2 liczysz ;) Powinno by:
if (delta>0) then begin x1:=(-b+sqrt(delta))/(2*a); x2:=(-b-sqrt(delta))/(2*a); writeln ('x1=',x1,'x2=',x2); end; readln; end.
Moe chodmy ju spa... :P
no faktyczynie...nawiasy:|
pisanie po 24 mi nie suy...
A widze, e jeszcze s byki przy wpisaniu samych zer. ( to samo co przy ukadzie rwna) :](*,)
dobranoc;)