Programowanie W Delphi (Help)

[pewi]

Potrzebuje pomocy osoby znajacej sie na prgoramowaniu w Delphi

 

prosze o kontakt na gg...-- 6967031

[pewi]

Prosze o spr tego zapisu

zielony-poprawny zapis

niebieski- mam co do niego watpliwosci

czerwony- errors

 

procedure TFormularz.PrzeliczClick(Sender: TObject);

var delta,x,a,b,c : Extended;

kod : Integer;

liczba : String;

begin

wynik.Caption:='';

a:=StrToFloat(ed_a.text);

b:=StrToFloat(ed_b.text);

c:=StrToFloat(ed_c.text);

delta:=b*b-4*a*c;

if delta<0 then wynik.Caption:='Brak rozwiązań rzeczywistych'

else if delta=0 then

Begin

x:=-b/2/a;

Str(x:1:4,liczba);

Wynik.Caption:='Pierwiastek podwójny: x0 = '+liczba

End

else

Begin

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

Str(x:1:4,liczba);

Wynik.Caption:='x1 = '+liczba;

x:=(-b+sqrt(delta))/2/a;

Str(x:1:4,liczba);

Wynik.Caption:=Wynik.Caption+' x2 = '+liczba

End

 

or if a=0 then

Begin

x:=-c/b;

Str(x:1:4,liczba);

Wynik.Caption:=Wynik.Caption+' x= '+liczba

End

end;

 

procedure TFormularz.Button1Click(Sender: TObject);

begin

Close

end;

 

end.