Question

Napisz program, który poda położenie funkcji kwadratowej. Mam to rozpisane, ale wyświetla mi się tylko jedna część programu z kierunkiem ramion funkcji. Program robiony w Lazarusie. Prosiłabym o sprawdzenie błędu:

var
a,b,c,d:Real;

begin
write('Podaj a: ');
readln(a);
write('Podaj b: ');
readln(b);
write('Podaj c: ');
readln(c);
d:=(b*b)-(4*a*c);
if a>0
then
writeln('Ramiona funkcji skierowane do gory')
else
if a<0
then
writeln('Ramiona skierowane do dolu')
else
if a=0
then
writeln('Funkcja nie spelnia zalozen');
readln();
end.
begin
d:=(b*b)-(4*a*c);
if d>0
then
writeln('Funkcja ma dwa miejsca zerowe')
else
if d=0
then
writeln('Funckaj ma jedno miejsce zerowe')
else
if d<0
then
writeln('Funkcja ma zero miejsc zerowych');
readln();
end.

Answer 1

Mam nadzieję, że ten kod w oryginale nie wygląda tak beznadziejnie :|

 

Pierwsze spostrzeżenie:

end.

 

A dokładniej:

writeln('Funkcja nie spelnia zalozen');
readln();
end.

 

I tutaj już cały dalszy kod NIE wchodzi w część programu.