Перевод с Паскаль на VBA
Формулировка задачи:
Само задание :
Найти наименьший номер члена последовательности, для которого выполняется условие |an — an-1| < ε. Вывести на экран этот номер и все элементы аi, где i = 1, 2,..., п.
Помогите перевести с паскаль на VBA:
program z3_56;
uses crt;
var n:integer;
a1,an,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e);
n:=2;a1:=2;an:=2+1/a1;
While abs(an-a1)>=e do
begin
writeln(a1:5:6);
n:=n+1;
a1:=an;
an:=2+1/a1;
end;
writeln(a1:5:6);
writeln(an:5:6);
writeln('n=',n);
Readkey;
end.
Решение задачи: «Перевод с Паскаль на VBA»
textual
Листинг программы
Function MinI(N As Long, Eps As Double) As Long Dim arr(), i As Long ReDim arr(1 To N) arr(1) = 2 For i = 2 To N arr(i) = 2 + 1 / arr(i - 1) If MinI = 0 Then If Abs(arr(i) - arr(i - 1)) < Eps Then MinI = i Next MsgBox Join(arr, ", ") End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д