Równanie kwadratowe w pascalu

[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

[marcin19]

delta>o

większe od litery o czy cifry 0?

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

[Mały22222]

taj jets oczywiscie wieksze od 0

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

[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.

Autor postu otrzymał pochwałę

[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