Program: wyliczający funkcję kwadratową.
Na podstawie podanych 3 argumentów przez użytkownika, program sprawdza czy równanie jest:
- sprzeczne,
- ma jedno rozwiazanie (przy okazji obliczając),
- ma wiele rozwiązań (przy okazji obliczając),
- nie posiada rozwiązań.
Kompilator: Turbo Pascal
Galeria:
Kod programu:
program FunkcjaKwadratowa;
uses crt;
var a,b,c,delta,x,x1,x2:Real;
begin
clrscr;
write ('Podaj liczbe a: ');
read (a);
write ('Podaj liczbe b: ');
read (b);
write ('Podaj liczbe c: ');
read (c);
if a=0 then
if b=0 then
if c=0 then write ('Rownanie sprzeczne')
else write('Rownanie ma wiele rozwizan')
else write('Rownanie ma jedno rozwiazanie: ',c/b)
else
begin
delta:=sqr(b)-4*a*c;
if delta<0 then write ('Rownanie nie ma rozwiazan')
else if delta=0 then
begin
x:=-b/(2*a);
write ('Funkcja ma 1 rozwiazanie: ',x:2:2);
end
else
begin
x1:=(-b-sqrt(delta))/2*a;
x2:=(-b+sqrt(delta))/2*a;
write ('Funkcja ma 2 rozwiazania: x1=',x1:2:2,', x2=',x2:2:2);
end
end;
readkey;
end.Słowniczek pojęć:
Funkcja wielomianowa drugiego stopnia, tzn. postaci f(x) = ax^2 + bx + c, gdzie a, b, c są pewnymi stałymi, przy czym a!=0 (co gwarantuje, że funkcja kwadratowa nie degeneruje się do przypadku funkcji liniowej; to założenie będzie obowiązywać w całym artykule). Funkcja kwadratowa realizuje pewien wielomian (drugiego stopnia), z tego powodu nazywa się ją czasami trójmianem kwadratowym.