Delphi

Bandau padaryti, kad dalinti iš 0 negalima

 

procedure TForm1.Button1Click(Sender: TObject);
begin
 a := StrToFloat(Edit1.Text);
 b := StrToFloat(Edit2.Text);


 if b = 0
   then
        Label2.Caption := 'negalima is 0'
   else
     c := a / b;
     Label2.Caption := 'Atksakymas: ' + FloatToStr(c);

end;

 

Bet nežinau vistiek neveikia, gal kažką ne taip darau?

Redagavo Spalio 24, 2010 Arvis

Gali nusipirkti knygą ir nesukti galvos. Štai šita knyga http://www.smaltija.lt/description.php?bid=2374308

Redagavo Rugpjūčio 26, 2010 Creativ3

Čia esu parašęs keletą pamokų, nuo pradžių.

Čia esu parašęs keletą pamokų, nuo pradžių.

 

Dėkui :)

Bandau padaryti, kad dalinti iš 0 negalima

 

procedure TForm1.Button1Click(Sender: TObject);
begin
 a := StrToFloat(Edit1.Text);
 b := StrToFloat(Edit2.Text);


 if b = 0
   then
        Label2.Caption := 'negalima is 0'
   else
     c := a / b;
     Label2.Caption := 'Atksakymas: ' + FloatToStr(c);

end;

 

Bet nežinau vistiek neveikia, gal kažką ne taip darau?

 

 

Bet nežinau vistiek neveikia, gal kažką ne taip darau?

 

procedure TForm1.Button1Click(Sender: TObject);
begin
 a := StrToFloat(Edit1.Text);
 b := StrToFloat(Edit2.Text);


 Try
     c := a / b;
     Label2.Caption := 'Atksakymas: ' + FloatToStr(c);
 Except
    Label2.Caption := 'negalima is 0';
 end;


end;

Vistiek klaidą meta, bet jei vietoj 0 parašau 1 tai jau veikia (jei dalini iš 1, tašo, kad negalima)

Ne visai gerai pamenu paskalio sintaksę bet ar neturėtų būti

if b = 0
   then
        Label2.Caption := 'negalima is 0'
   else
     begin
        c := a / b;
        Label2.Caption := 'Atksakymas: ' + FloatToStr(c);
     end;

Ne visai gerai pamenu paskalio sintaksę bet ar neturėtų būti

if b = 0
   then
        Label2.Caption := 'negalima is 0'
   else
     begin
        c := a / b;
        Label2.Caption := 'Atksakymas: ' + FloatToStr(c);
     end;

 

Oba veikia, ačiū, jau supratau kame šaknys buvo