Równanie liniowe Pascal

[Ganja 0]

Witam wszystkich

Potrzebuje pomocy w stworzeniu programu do obliczania równania liniowego

Do tej pory udało mi się stworzyć to ale programik nie działa tak jak powinien

 

Program Rownanie;
uses crt;

var a: real;
    b: real;
    x: real;
begin

Clrscr;

write ('wprowadz wspolczynnik kierunkowy a: ');
readln(a);
write ('wprowadz wspolczynik b: ');
readln(b);
if( a=0 and b=0 ) then writeln ('Nieskonczenie wiele rozwiazan')
if ( a=0 and b<>0 ) then writeln ('brak rozwiazania;)
else x:=-b/a
writeln ('x=' ,x:2:2);

end.

 

Proszę o pomoc z tym problemem

[Nerio 17]

Finito skoro AND między warunkami to warunki w nawiasach:

if (a=0) AND (b=0)...
if (a=0) and (b<>0)...

Secundo. Po Else już masz 2 osobne polecenia, więc musisz to potraktować jako osobny blok:

else
      begin
      x:=-b/a;
      writeln("x= ", x:2:2);
      end;
readln(); {żeby konsolka nie znikała odrazy po wykonaniu programu}

[Kamilla122 0]

This is my first time visit here. From the tons of comments on your articles,I guess I am not only one having all the enjoyment right here!

192.168.l.254

[panistefanin 0]

Niestety, nie mogę ci pomóc! Nie jestem w tym dobry. Przepraszam!((

mcdvoice.com

[karolinka777 0]

#SPAMER UP