Funkcja liniowa
Program dodatkowo sprawdza czy równanie jest:
Kompilator: Turbo Pascal
program funkcjaliniowa;
uses crt;
var a,b,x:real;
n,i:word;
begin
clrscr;
Write('Ile rownan chcesz obliczyc? ');
readln(n);
for i:=1 to n do
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
if a=0 then
if b=0 then
writeln('Nieskonczenie wiele rozwiazan')
else
writeln('Rownanie sprzeczne')
else
begin
x:=(-b/a);
writeln(x);
x:=0;
end;
end;
readkey;
end.