rownanie liniowe

[Tor_]

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 ?

[Dejta]

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

[xevil21]

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!

[Tor_]

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