Forum Programosy • Równanie kwadratowe w pascalu

Strona 1 z 1

Równanie kwadratowe w pascalu

Wysłany: 18 Paź 2009, 13:37

przez Mały22222

Witam serdecznie
Mam taki problem. Na informatyke musze pocwiczyc sobie rownanie kwadratowe w pascalu. i napisalem programik ale w 20 wersie 29 kolumnie wywala mi blad przy kompilacji"type mismatch" bardzo bym prosił o skorygowaniu blędu i napisac co gdzie zle wpisalem oto kod:

program kwadratowe;
uses CRT;
var
a,b,c,delta,x1:x2:x0:integer;

BEGIN
clrscr;
writeln('program rozwiązuje rownanie kwadratowe');
writeln('wporwadz a');
readln(a);
writeln('wprowadz b');
readln(b);
writeln('wprowadz c');
readln(c);
delta:=(b*b-4*a*c);
if delta>o then
begin
x1:=(-b-sqrt(delta)/2*a); <------ tu wląsnie mi wyskakuje ten błąd!
x2:=(-b+sqrt(delta)/2*a);
writeln('wartość x1 wynosi' ,x1);
writeln('wartość x2 wynosi' ,x2);
end;
if delta=0 then
begin
x0:=(-b/2*a);
writeln(wartość x0 wynosi' ,x0);
end;
if delta<0 then
writeln('brak rozwiązan');

readln;
END.

z góry bardzo dziękuje

Równanie kwadratowe w pascalu

Wysłany: 18 Paź 2009, 16:34

przez marcin19

Mały22222 napisał(a):delta>o

większe od litery o czy cifry 0?

Mały22222 napisał(a):x1:=(-b-sqrt(delta)/2*a); <------ tu wląsnie mi wyskakuje ten błąd!

tę linię napisz tak:

x1:=(b-sqrt(delta)/2*a);

a przed nią daj:

b:=b-2*b

Równanie kwadratowe w pascalu

Wysłany: 18 Paź 2009, 16:55

przez Mały22222

taj jets oczywiscie wieksze od 0

poprawilem tą linijke jk napsialęs i dalej ten błąd type mismatch:(

Równanie kwadratowe w pascalu

Wysłany: 18 Paź 2009, 19:01

przez lilith

zmień wyniki czyli x1 i x2 na real. przecież jak dasz pierwiastek z 8 to nie wyjdzie tobie liczba całkowita potem. zawsze najpierw zastanów się jakie liczby używasz, żeby potem wydumać jaki typ danych musisz wykorzystać. integer jest dla 1,5,9,-2,6,0,... ułamki, pierwiastki logarytmy to liczby zmiennoprzecinkowe więc musi być real.

noi te dwukropki w miejscu gdzie deklarujesz iksy.... przecinki powinny oddzielać te zmienne

i w linijce po tym jak obliczasz x0 masz writeln i zdanie i nei masz początkowego apostrofa

Kod: Zaznacz wszystko: program kwadratowe; uses CRT; var a,b,c,delta:integer; x0,x1,x2:real; BEGIN clrscr; writeln('program rozwiązuje rownanie kwadratowe'); writeln('wporwadz a'); readln(a); writeln('wprowadz b'); readln(b); writeln('wprowadz c'); readln(c); delta:=(b*b-4*a*c); if delta>0 then begin x1:=(-b-sqrt(delta)/2*a); x2:=(-b+sqrt(delta)/2*a); writeln('wartość x1 wynosi' ,x1); writeln('wartość x2 wynosi' ,x2); end; if delta=0 then begin x0:=(-b/2*a); writeln('wartość x0 wynosi' ,x0); end; if delta<0 then writeln('brak rozwiązan'); readln; END.

Równanie kwadratowe w pascalu

Wysłany: 18 Paź 2009, 21:01

przez Mały22222

ok dzięki juz teraz w miare działą

jeszcze musialem troche pododawac nawiasów bo zle wyniki wychodizły i jednym jesciu else wstawic i narazie smiga. dzieki