Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
15 / 8 / 2
Регистрация: 14.03.2011
Сообщений: 105
1

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

16.04.2011, 13:21. Просмотров 916. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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}
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.04.2011, 13:21
Ответы с готовыми решениями:

Нужно перевести код с Pascal в Vba
Решил в паскале, а с vba вообще не знаком ,нужна помощь срочно. Вот код- program String16;...

Нужно перевести код программы с Pascal (игра в карты)
Код программы на Pascal: uses crt; const kol:array of string=...

Перевести код с Pascal
Помогите перевести пожалуйста код с pascal на VBA Составить алгоритм и написать программу,...

Перевести код с Pascal
Помогите перевести в VBA. program ss; uses crt; const n=5; type stud=record...

1
Заблокирован
16.04.2011, 15:24 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Не проверял работу кода, т.к. задание сложное для меня (не разбираюсь в рядах):
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.04.2011, 15:24

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перевести код с Pascal
var mas : array of array of integer; n, m, i, j, min :integer; begin readln (n, m); ...

Перевести код с Pascal
есть код из паскаля который нужно перевести в VBA program aaa; Type mas=array of integer; Var...

Перевести код с Pascal
program lab37; var a:array of integer; i,n,l:integer; begin

Перевести код с Pascal
var a,b,sum:integer; begin randomize; a:=random(10); b:=random(10); ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.