Program w Pascalu.

[zochaaaa]

Bardzo prosiłabym o program na funkcję kwadratową w Pascalu. Męczę się z tym już jakiś dłuższy czas i nie mogę zrobić.

[bartek118]

Kod: Zaznacz cały

program funkcja;
var
a,b,c:real;
d:real;
begin
readln(a);
readln(b);
readln(c);
d:=b*b-4*a*c;
if(d<0) then writeln("Brak rozwiazan")
else if(d=0) then
begin
writeln("Jedno rozwiazanie");
writeln(-b/(2*a) )
end else begin
writeln("Dwa rozwiazania");
writeln( (-b+sqrt(d))/(2*a) );
writeln( (-b-sqrt(d))/(2*a) );
end;
readln
end.

[zochaaaa]

dziękuję;)-- 28 lut 2010, o 21:10 --potrzebny mi także programik na funkcje liniowa ;(

[bartek118]

Kod: Zaznacz cały

program liniowa;
var
a,b:real;
begin
readln(a);
readln(b);
if(a=b) and (a=0) then
writeln("Nieskonczenie wiele rozwiazan")
else
if a=0 then writeln("Brak rozwiazan")
else
writeln(-b/a);
readln
end.

[zochaaaa]

dziękuję!!!-- 7 mar 2010, o 16:20 --Witam ! Potrzebuję program w pascalu na wyliczanie potębi liczby a^{x} za pomocą pętli for.