Tor_ Napisano Grudzień 5, 2010 Zgłoś Share Napisano Grudzień 5, 2010 Witam wszystkich .To moje pierwsze początki z Pascalem. Prosze o wyrozumiałość gdyby moje pytania były zbyt idiotyczne Wyświetlac proste rzeczy juz umiem:) Czs na cos bardziej "skomplikowanego" a mianowicie równanie liniowe I ja to widzę tak: a*x+b=0 1.trzeba by podac wartość współczynników ai b.I tak jeżeli a różne od 0 to wtedy rozwiazanie równaia coś takiego :x= -b/a 2.Gdyby a=0 i druga zmienna b=0 tez zero .To wtedy rownanie ma nieskonczenie dużo rozwiążan 3.I trzecia sprawa jeżeli a=0 i b jest rózne od zera.To wtedy nie ma rozwiazania Program row_lin_pascal; var {Tutaj zadeklarowałem sobie zmienne} a,b: real;{ a tutaj typ rzeczywisty} begin {ok startuje } writeln('rozwiazanie rownania liniwego ax+b=0'); writele; writeln('Podaj wspolczynnik a rownania :'); readln(a); writeln('Podaj wspolczynnik b rownania :'); readln(b); writeln; if a<>0 then writeln('x = ', -b/a); else if b=0 then writeln('Nieskonczenie wiele rozwiazan'); else writeln('Brak rozwiazania - rownanie sprzeczne'); writeln; writeln('jeżeli znudziło Ci się ogladanie programu to naciśnij klawisz hi hi..'); readln; end. Tyle że to nie działą tak jak sobie wymysliłem.Gdzie tkwi bład ? Link do komentarza Udostępnij na innych stronach More sharing options...
Dejta Napisano Grudzień 5, 2010 Zgłoś Share Napisano Grudzień 5, 2010 Witam wszystkich .To moje pierwsze początki z Pascalem. Prosze o wyrozumiałość gdyby moje pytania były zbyt idiotyczne Wyświetlac proste rzeczy juz umiem:) Czs na cos bardziej "skomplikowanego" a mianowicie równanie liniowe I ja to widzę tak: a*x+b=0 1.trzeba by podac wartość współczynników ai b.I tak jeżeli a różne od 0 to wtedy rozwiazanie równaia coś takiego :x= -b/a 2.Gdyby a=0 i druga zmienna b=0 tez zero .To wtedy rownanie ma nieskonczenie dużo rozwiążan 3.I trzecia sprawa jeżeli a=0 i b jest rózne od zera.To wtedy nie ma rozwiazania Program row_lin_pascal; var {Tutaj zadeklarowałem sobie zmienne} a,b: real;{ a tutaj typ rzeczywisty} begin {ok startuje } writeln('rozwiazanie rownania liniwego ax+b=0'); writele; writeln('Podaj wspolczynnik a rownania :'); readln(a); writeln('Podaj wspolczynnik b rownania :'); readln(b); writeln; if a<>0 then writeln('x = ', -b/a); else if b=0 then writeln('Nieskonczenie wiele rozwiazan'); else writeln('Brak rozwiazania - rownanie sprzeczne'); writeln; writeln('jeżeli znudziło Ci się ogladanie programu to naciśnij klawisz hi hi..'); readln; end. Tyle że to nie działą tak jak sobie wymysliłem.Gdzie tkwi bład ? Osobiście nie wiem jak jest w Pascalu ale może przy porównywaniu zmiennej b do zera powinny być dwa znaki równa się? Pozdrawiam Wowa Link do komentarza Udostępnij na innych stronach More sharing options...
xevil21 Napisano Grudzień 5, 2010 Zgłoś Share Napisano Grudzień 5, 2010 jak masz ELSE to nie stawiasz średnika, albo zamykasz blok instrukcji w begin end; if b=0 then writeln('Nieskonczenie wiele rozwiazan'); else OS9^jW if b=0 then writeln('Nieskonczenie wiele rozwiazan') else lepiej Pozdrawiam! Link do komentarza Udostępnij na innych stronach More sharing options...
Tor_ Napisano Grudzień 5, 2010 Autor Zgłoś Share Napisano Grudzień 5, 2010 Jestem totalnie ślepy .Jest 2 razy instrukcja warunkowa if i ja 2 razy po nawiazach zrobiłem średnik.Nie wiem co powiedzieć.Teraz wszystko działą.Chyba myslę schematami .Jak koniec nawiasu to i średnik:) Dziekuję wszystkim za cenne uwagi.Pozdrawiam Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.