Кто сможет перевести код из Visual Basic в C++? - VB
Формулировка задачи:
Листинг программы
- [Function SumSeq(X() As Integer) As Integer
- SumSeq = X(1)
- n% = UBound(X, 1)
- pPrev% = 1
- pNext% = 2
- Do
- If pNext% > n% Then Exit Function
- SumSeq = SumSeq + X(pNext%)
- k% = pNext%
- pNext% = pNext% + pPrev%
- pPrev% = k%
- Loop
- End Function
- Sub Test()
- Dim X(1 To 10) As Integer
- X(1) = 11
- X(2) = 22
- X(3) = 33
- X(4) = 44
- X(5) = 55
- X(6) = 66
- X(7) = 77
- X(8) = 88
- X(9) = 99
- X(10) = 111
- Debug.Print SumSeq(X) ' Печать 209 - верно
- End Sub
Решение задачи: «Кто сможет перевести код из Visual Basic в C++?»
textual
Листинг программы
- #include <cstdlib>
- #include <iostream>
- using namespace std;
- int SumSeq(int *X, int n)
- {
- int pPrev=1,pNext=2,k,s=X[1];
- while(1)
- {
- if (pNext > n) break;
- s+=X[pNext];
- k=pNext;
- pNext+=pPrev;
- pPrev=k;
- }
- return s;
- }
- int main(int argc, char *argv[])
- {
- int Z[]={0,11,22,33,44,55,66,77,88,99,111};
- int a;
- a=SumSeq(Z,sizeof(Z)/sizeof(int));
- cout << a << endl; // Вывод 209 - верно
- system("PAUSE");
- return EXIT_SUCCESS;
- }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д