Если не ошибаюсь способов 2
Procedure TForm1.Button1Click(Sender: TObject);
var
xn, e, m : Extended;
xnn : Extended;
begin
Memo1.Clear;
xn := StrToFloat(Edit1.Text);
e := StrToFloat(Edit2.Text);
m := StrToFloat(Edit3.Text);
repeat
xnn := xn;
xn := (1/3)*(2*xnn + (m/(xnn*xnn)));
Memo1.Lines.Append('xn = '+floattostr(xn));
until (Abs(xn-xnn)<e);
<span>end;
</span>
Маска 1 выберет файлы:
<span>chifera.dat
</span>chifera.doc
ferrum.doc
oferta.doc
tocoferol.doc
2:
<span>chifera.doc
deLafer.doc
oferta.doc
tokoferol.doc </span>
3:
<span>chifera.doc
oferta.doc
tokoferol.doc
4:</span><span>
chifera.doc
Значит, </span>по 3 маске будет отобрано 3 файла