procedure TForm1.FormCreate(Sender: TObject); var x, y : double; Erreur : boolean; begin x:=1; Erreur := False; Repeat Memo1.Lines.Add(FloatToStr(x)); try y := ln(x); x:=x/2; except Erreur := true; end; until Erreur; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question