Question

напишите программу в паскале, вариант 3

Answer 1

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);
end;

Answer 2

программа не работает в паскале

Answer 3

var
xn, e, m : Double;
xnn : Double;
begin
Write('Введите xn '); Read(xn);
Write('Введите e '); Read(e);
Write('Введите m '); Read(m);
repeat
xnn := xn;
xn := (1/3)*(2*xnn + (m/(xnn*xnn)));
writeln(xn);
until (Abs(xn-xnn)<e);
end.

Answer 4

спасибо