Нужно перевести код с Pascal

@Assassinys · Регистрация: 14.03.2011

Pascal

Program SINUS;
     Const MaxIter = 500;
     Var  x, eps, y, c, xn, xk, dx : real;
             n : integer;
            done : boolean;
Begin
     Writeln('Введите xn xk dx и точность:');
     Readln(xn,xk, dx, eps);
     x:=xn;
     repeat
     done := true;
     c:=x;
     y:=c;
     n:=1;
     While abs( c ) > eps do
          begin
             c:=power(-1,n+1)/((2*n+1)*power(x,2*n+1));
             y:=y + c;
             inc(n);
             if n <= MaxIter then continue;
             Writeln('|Ряд расходится');
             Done := false; break
          end;
           y:=3.14/2+y;
     if done then Writeln('Аргумент:     ', x:10:6,
                          'Значение функции:', y:10:6,
                          'Вычислено с точностью ', eps:8:6, 'за', n, 'итераций');
     x:=x+dx;
     until x>=xk;
     readln
End. {SINUS}

@~~Busine2009~~ · 16.04.2011, 15:24

Не проверял работу кода, т.к. задание сложное для меня (не разбираюсь в рядах):

Visual Basic

Sub SINUS()
Const MaxIter = 500
Dim x As Single, eps As Single, y As Single, c As Single
Dim xn As Single, xk As Single, dx As Single
Dim n As Integer
Dim done As Boolean
Dim Накопитель As String
xn = InputBox("Введите xn")
xk = InputBox("Введите xk")
dx = InputBox("Введите dx")
xn = InputBox("Введите xn")
eps = InputBox("Введите eps")
Do
    done = True
    c = x
    y = c
    n = 1
    Do While Abs(c) > eps
        c = -1 ^ (n + 1) / ((2 * n + 1) * x ^ (2 * n + 1))
        y = y + c
        n = n + 1
        If n > MaxIter Then
            Накопитель = Накопитель & vbCr & "Ряд расходится при x: " & x
            done = False
            Exit Do
        End If
     Loop
    y = 3.14 / 2 + y
    If done = True Then
        Накопитель = Накопитель & vbCr & "Аргумент: " & x & ", " & _
        "Значение функции: " & y & "; " & _
        "Вычислено с точностью: " & eps & "; " & _
        "Итераций: " & n
    End If
    x = x + dx
Loop Until x >= xk
Накопитель
End Sub

Опции темы

Нужно перевести код с Pascal

Решение