nie jestem na 100% pewien że dobrze ale myśle ze raczej tak to powinno wygladac:program obliczanie;uses crt;var
a: real;
b: real;
x: real;beginClrscr;write ('podaj a: ');
readln(a);
write ('podaj b: ');
readln(b);
if(( a=0) and (b=0) ) then writeln ('Nieskonczenie wiele rozwiazan')
else
if (( a=0) and(b<>0) ) then writeln ('brak rozwiazania')
begin
x:=-b/a;
writeln ('x=' ,x:2:2);
end;
readln;end.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
nie jestem na 100% pewien że dobrze ale myśle ze raczej tak to powinno wygladac:
program obliczanie;
uses crt;
var
a: real;
b: real;
x: real;
begin
Clrscr;
write ('podaj a: ');
readln(a);
write ('podaj b: ');
readln(b);
if(( a=0) and (b=0) ) then writeln ('Nieskonczenie wiele rozwiazan')
else
if (( a=0) and(b<>0) ) then writeln ('brak rozwiazania')
else
begin
x:=-b/a;
writeln ('x=' ,x:2:2);
end;
readln;
end.