Miejsca Zerowe Funkcji Kwadratowej
program funkcja;
var delta , x1 , x2 : real;
var a, b, c : real;
begin
writeln ('Podaj wspolczynniki a, b, c trojmianu kwadratowego: ');
readln (a, b, c);
delta := (b * b) - (4 * a * c);
writeln ('Delta = ', delta);
if delta < 0 then
writeln('BRAK MIEJSC ZEROWYCH FUNKCJI !')
else if delta > 0 then
begin
x1 := ((- b) - sqrt(delta)) / (2 * a);
x2 := ((- b) + sqrt(delta)) / (2 * a);
writeln('X1 = ' , x1);
writeln('X2 = ' , x2);
end
else
begin
x1 := (- b) / (2 * a);
writeln('X1 = ' , x1);
end;
end.
Podobne strony
Podobne Strony • Szyfr Cezara • Hello World • Sortowanie Babelkowe • Rok Przestepny • Wieża hanoi • wyswietlanie liczby calkowitej metodą odejmowania poteg • Parzysta Nieparzysta • Ruchoma Gwiazdka • Sortowanie Przez Wstawianie • Sortowanie Przez Wybieranie • Nww • Metoda Babelkowa • Fibonacci
wersja strony: 0, ostatnia edycja: 04 Apr 2008 14:59