Pascal, Missing operator or semicorn

[bimbo8]

Zdravím,
ve škole probíráme základy programování v jazyku pascal, a dostali jsme za úkol vytvořit program pro windows, který spočítá kvadratickou rovnici. Při kompilování mi to ale stále hází stejnou chybu, a to že missing operator or semicorn a nemůžu přijít na to kde. Mohli by jste mi poradit prosím ?

begin
a:=strtofloat(edtA.Text);
b:=strtofloat(edtB.Text);
c:=strtofloat(edtC.Text);
if a=0 then
begin
if b=0 then
lblX.Caption:=inttostr(0)
else
begin
x:=-c/b;
lblX.Caption:=floattostr(x);
end;
end
else
begin
d:=(b*b)-4*a*c;
if d>=0 then
begin
if d=0 then
begin
x:=-b/2a; // Chybu to ukazuje zde
lblX.Caption:=floattostr(x);
end
else
begin
x1:=(-b+sqrt(d))/2a; // Zde
x2:=(-b-sqrt(d))/2a; // Zde
lblX1.Caption:=floattostr(x1);
lblX2.Caption:=floattostr(x2);
end;
end;
end;

end;

[Reklama]

[CZechBoY]

nemusí být za tím lblX:Caption:=inttostr(0) středník?
pascal, delphi neznám tak nevim

[faraon]

Tomu 2a překladač nerozumí, neví že si matematici vymysleli takovou zkratku aby nemuseli psát ani tečku navíc. Musíš napsat 2*a, a ještě to navíc dát do závorek, nebo otočit smysl kvůli pořadí vyhodnocování:
-b/(2*a) je to samé jako -b/2/a

To máš FreePascal nebo Delphi?

A zdrojáky dávej do (Code), ať nemusíme to odsazení dolovat ze zdrojového kódu stránky