Перевод с Паскаль на 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5