Gdzie zrobiłem błąd ?

30.04.2010

20:26

[1]

unclesam [ Generaďż˝ ]

Gdzie zrobiłem błąd ?

Otóż napisałem już to :

‹Napisz program, który wczyta z klawiatury 3 liczby rzeczywiste (a,b,c) będące
współczynnikami funkcji kwadratowej y=ax2+bx+c. Następnie program obliczy i
wyświetli :
a) współrzędne (p,q) wierzchołka paraboli (p=-b/2a, q=-delta/4a,
delta=b^2-4ac)

b) współrzędne przecięcia paraboli z osią Y (O,c)

c) postać kanoniczną funkcji kwadratowej (y=a(x-p)^2+q)›

program funkcja;

var
a,b,c,delta,p,q:real;

begin
writeln('Podaj 3 liczby rzeczywiste będące współczynnikami funkcji kwadratowej.');
write('Podaj a : ');
readln(a);
write('Podaj b : ');
readln(b);
write('Podaj c : ');
readln(c);
p:=-b/(2*a);
delta:=sqr(b)-4*a*c;
q:=-delta/(4*a);
writeln;
writeln('Współrzędne wierzchołka paraboli wynoszą :(',p:5:2,' i ',q:5:2,')');
writeln('Współrzędne przecięcia paraboli z osią Y :(0,',c:4:1,')');
writeln('Postać kanoniczna funkcji kwadratowej : y=',a:4:1,'(x-',p:5:3,')^2 + ',q:5:3);
readln;
end.

Podałem 3 liczby z funkcji y=-3x^2+x-6 i przy postaci kanonicznej na końcu obliczyło -5.917, na kartce mam wyliczone -6 i 1/12. Gdzie popełniłem błąd ?

30.04.2010

20:31

[2]

Arxel [ Kostka Rubika ]

delta:=sqr(b)-4*a*c;

Zaprogramowałeś pierwiastek, nie potęgę ;)

30.04.2010

22:49

[9]

Arxel [ Kostka Rubika ]

Na pewno..?

Z jakiegoś forum, odnośnie potęgowania w Turbo Pascalu:
Jeżeli chcemy obliczyć y=a^b,to musimy przekształcić: y=exp(b*ln(a))

Możesz również spróbować dać po prostu b*b..

No to wybacz.. Pascala nigdy się nie uczyłem.. ;)

[11] - owned, hehe.. ;)