Program: wyliczający rozwiązania funkcji liniowej.
Po wsześnieszym podaniu argumentów “a” oraz “b”, w zapętleniu od wartości X poczatkowej iterując co 1 do wartości końcowej X.
Kompilator: Turbo Pascal
Galeria:
Kod programu:
program RownanieFunkcjaLiniowa;
uses crt;
var
a,b,x:Real;
xpocz,xkon:Integer;
begin
clrscr;
write('Podaj liczbe a: ');
read(a);
write('Podaj liczbe b: ');
read(b);
write('Podaj liczbe xpocz: ');
read(xpocz);
write('Podaj liczbe xkon: ');
read(xkon);
if a=0 then
if b=0 then write('Rownanie sprzeczne')
else write('Rownanie ma wiele rozwiazan')
else if xpocz<=xkon then
begin
repeat
x:=(a*xpocz)+b;
Write('Dla x rownego ',xpocz,' funkcja przyjmuje wartosc ',x:2:2);
writeln;
xpocz:=xpocz+1
until (xpocz=xkon+1);
end
else write ('xpocz nie moze byc wieksze niz xkon!!');
readkey;
end.Słowniczek pojęć:
W geometrii analitycznej funkcja wielomianowa co najwyżej pierwszego stopnia, tj. postaci ax + b, gdzie a, b są pewnymi stałymi. Nazwa pojęcia jest związana z tym, iż wykres funkcji liniowej jest linią prostą daną równaniem y = ax + b