Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
sanechka6
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 31
#1

Перевести с QBasic на С++ - C++

15.07.2013, 15:15. Просмотров 977. Ответов 2
Метки нет (Все метки)

Добрый день.Имеется рабочий код на QBasic,хочу переписать его на C++.Пока не получается,требуется ваша помощь.
PureBasic
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
CLS
INPUT "ширина общ", x
INPUT "шир1", a
INPUT "шир2  ", b
INPUT "шир3  ", c
INPUT "шир4  ", d
INPUT "шир5  ", e
 
INPUT "мин шир кромки ", y
INPUT "макс шир кромки ", ym
INPUT "максвозможн число резов ", n
 
PRINT
PRINT
'DIM a(n)
'DIM b(n)
'DIM c(n)
'DIM d(n)
'S = 0
'i = 0
'WHILE S <= x - y AND i < n
'a(i) = i * a
'S = S + a
'i = i + 1
'WEND
'AI = i - 4
'S = 0
'i = 0
'WHILE S <= x - y AND i < n
'b(i) = i * b
'S = S + b
'i = i + 1
'WEND
'BI = i - 2
'S = 0
'i = 0
'WHILE S <= x - y AND i < n
'c(i) = i * c
'S = S + c
'i = i + 1
'WEND
'CI = i - 1
'S = 0
'i = 0
'WHILE S <= x - y AND i < n
'd(i) = i * d
'S = S + d
'i = i + 1
'WEND
'DI = i - 1
'm = AI * BI * CI * DI
 
'DIM CROY(AI, BI, CI, DI)
PRINT "крой:"
PRINT
 
 
 
FOR i = 0 TO INT(x / a)
FOR j = 0 TO INT(x / b)
FOR k = 0 TO INT(x / c)
FOR l = 0 TO INT(x / d)
FOR m = 0 TO INT(x / e)
 
CROY = x - a * i - b * j - c * k - d * l - e * m
IF CROY >= y AND (i + j + k + l + m) < n AND CROY <= ym THEN PRINT i; "по"; a, j; "по"; b, k; "по"; c, l; "по"; d, m; "по"; e; " кромка "; CROY
NEXT m, l, k, j, i
END
Добавлено через 21 минуту
На данный момент вот что есть,не знаю так или не так:
C++
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
// wer.cpp : Defines the entry point for the console application.
//
 
#include "stdafx.h"
#include <iostream>
#include <cmath>
 
using namespace std;
 
int _tmain(int argc, _TCHAR* argv[])
{
 
 
    cout << "vvedite dannie: " << endl;
    int x;
    cout << "Shirina rulona";
    cin >> x;
    int a;
    cout << "shirina 1 ";
    cin >> a;
    int b;
    cout << "Shirina 2 ";
    cin >> b;
    int c;
    cout << "Shirina 3 ";
    cin >> c;
    int d;
    cout << "Shirina 4 ";
    cin >> d;
    int e;
    cout << "Shirina 5 ";
    cin >> e;
    int y;
    cout << "Min ";
    cin >> y;
    int ym;
    cout << "Max ";
    cin >> ym;
    int n;
    cout << "razrez";
    cin >> n;
    int *arr = new int[n];
    int *brr = new int[n];
    int *crr = new int[n];
    int *drr = new int[n];
    int s=0;
    int i=0;
    while ((s<=x - y) && (i < n))
    {
        arr[i] = i * a;
        s = s + a;
        i = i + 1;
    }
    int AI = i - 4;
    s = 0;
    i = 0;
    while ((s <= x - y) && (i < n))
    {
        brr[i] = i * b;
        s = s + b;
        i = i + 1;
    }
    int BI = i - 2;
    s = 0;
    i = 0;
    while ((s <= x - y) && (i < n))
    {
        crr[i] = i * c;
        s = s + c;
        i = i + 1;
    }
 
    int CI = i - 1;
    s = 0;
    i = 0;
 
    while ((s <= x - y) && (i < n)){
 
        drr[i] = i * d;
        s = s + d;
        i = i + 1;
    }
    int DI = i - 1;
 
    int m = AI * BI * CI * DI;
 
}
А вот дальше затрудняюсь....

Добавлено через 1 час 19 минут
ребяточень нуждаюсь в вашей помощи

Добавлено через 4 минуты
помогите вот в этом разобраться:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
DIM CROY(AI, BI, CI, DI)
 
FOR i = 0 TO INT(x / a)
FOR j = 0 TO INT(x / b)
FOR k = 0 TO INT(x / c)
FOR l = 0 TO INT(x / d)
FOR m = 0 TO INT(x / e)
 
IF CROY >= y AND (i + j + k + l + m) < n AND CROY <= ym THEN PRINT i; "по"; a, j; "по"; b, k; "по"; c, l; "по"; d, m; "по"; e; " кромка "; CROY
NEXT m, l, k, j, i
END
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.07.2013, 15:15     Перевести с QBasic на С++
Посмотрите здесь:

Перевод с QBasic в С/С++ - C++
Есть программа для QBasic, она нужна в С/С++ RANDOMIZE TIMER CLS DIM k(5) k(1) = 0 k(2) = 0 К(3) = 0 k(4) = 0

Перевод из Qbasic в C++ - C++
вот что пока вышло: #include &lt;iostream&gt; #include &lt;math.h&gt; #include &lt;string&gt; using namespace std; void main() { ...

Перевод программы из QBasic в C/C++ - C++
Перевод программы из QBasic в C/C++: CLS INPUT st$ stn$ = &quot;&quot; INPUT s11$ INPUT s12$ k1 = LEN(st$) k2 = LEN(s11$) i = 1 ...

Массивы,инициализация(qbasic'овские read,data) - C++
Недавно начал изучать С++. Маленький совет: книги не покупай, а скачивай через интернет.(если есть возможность конечно) Некоторые...

Перевести из с++ в си - C++
Переведите из c++ в си пожалуйста #include &lt;string&gt; #include &lt;sstream&gt; #include &lt;vector&gt; #include &lt;iostream&gt; using namespace std;...

Перевести с С на С++ - C++
#include &lt;iostream&gt; void inversion(double **A, int N) { double temp; double **E = new double *; for (int...

Перевести в С++ - C++
Помогите пожалуйста перевести на С++ function x(i: integer): real; begin x := i / (i + sqrt(i)) end; function y(k:...

Перевести из for в while - C++
Вот часть кода, с циклом for: for(x=1; x&lt;=50; x++) y+=1/(x*x); printf(&quot;%f&quot;, y); Нужно написать тот же код, при помощи while. ...

Перевести из Си в С++ - C++
#include &quot;stdafx.h&quot; #include &lt;stdio.h&gt; #include &lt;stdlib.h&gt; #include &lt;string.h&gt; int check (char str) { int i,length; ...

Перевести из с в с++ - C++
#include &lt;stdlib.h&gt; #include &lt;stdio.h&gt; #include &lt;locale.h&gt; int main() { setlocale(LC_ALL,&quot;r&quot;); int i,n; long int...

Перевести на С. - C++
Очень нужно перевести на СИ procedure TForm1.Button1Click(Sender: TObject); var a,b,x,i:integer; begin a:=strtoint(Edit1.text); ...

Перевести С++ --> C - C++
Добрый день, уважаемые программисты!!Очень прошу вас о помощи с переаедением программки с С++ на С...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
PAnT0P
1016 / 539 / 70
Регистрация: 26.03.2012
Сообщений: 980
18.07.2013, 08:54     Перевести с QBasic на С++ #2
Спроси на форуме С++
Dmitry_gdv
64 / 64 / 5
Регистрация: 18.03.2010
Сообщений: 352
22.07.2013, 09:28     Перевести с QBasic на С++ #3
Цитата Сообщение от sanechka6 Посмотреть сообщение
int _tmain(int argc, _TCHAR* argv[])
АААААААААААААААА !!!!!!!!!!!!
Какой ужас !!!!!!!!!
Это что такое ????????

C++
1
int main(int argc, char* argv[])
Как минимум
Ответ Создать тему
Опции темы

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