Перевод из Qbasic в C++

@softmob · Регистрация: 20.02.2010

Студворк — интернет-сервис помощи студентам

вот что пока вышло:

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
#include <iostream>
#include <math.h>
#include <string>
using namespace std;
void main()
{               
        char u[]="0123456789ABCDEF";
        char a[512];
        cout << "vvedite vvedite chislo: "; 
        cin >> a;
        int q=0,p=0;
        cout << "vvedite vvedite q: ";
        cin >> q;
        cout << "vvedite vvedite p: ";
        cin >> p;
        int len=strlen(a);
        len-=1;
        double r=0,z=0,j=0;
        while(len>=0)
    {
        for (int i=0; i<16;i++)
        {               
        if (toupper(a[len])==u[i]) j=i;
        }
        int g = pow(q,r);
        z += j * g;
        r += 1;
        len-=1;
        }
        int h=z;
    string x="";
        while (h>0)
    {
        char m= u[h%p];
    x+=m;
        h/=p;
        }
    reverse(x.begin(), x.end());
    cout << x;
        cout << endl;
        system("pause");
}

проверьте код, подскажите что исправить...
P.S. c++ ток на днях начал изучать

прога на qbasic:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
CLS: u$ = "0123456789ABCDEF"
INPUT "vvedite chislo"; a$: INPUT "vvedite q"; q: INPUT "vvedite p"; p
FOR i = LEN(a$) TO 1 STEP -1: j = INSTR(u$, UCASE$(MID$(a$, i, 1))) - 1
    z = z + j * q ^ r: r = r + 1
NEXT
DO
    c$ = MID$(u$, (z MOD p) + 1, 1) + c$: z = z \ p
LOOP UNTIL z = 0
PRINT STRING$(80, 196); c$

Добавлено через 22 минуты

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
#include <iostream>
#include <math.h>
#include <string>
using namespace std;
void main()
{               
        char u[]="0123456789ABCDEF";
        char a[512];
        cout << "vvedite vvedite chislo: "; 
        cin >> a;
        int q=0,p=0;
        cout << "vvedite vvedite q: ";
        cin >> q;
        cout << "vvedite vvedite p: ";
        cin >> p;
        int len=strlen(a);
        len-=1;
        double r=0,z=0,j=0;
        while(len>=0)
        {
        for (int i=0; i<16;i++)
        {               
        if (toupper(a[len])==u[i]) j=i;
        }
        int g = pow(q,r);
        z += j * g;
        r += 1;
        len-=1;
                }
        int h=z;
        string x="";
        while (h>0)
        {
        char m= u[h%p];
        x+=m;
        h/=p;
                }
        reverse(x.begin(), x.end());
    char k=196;     
    for (int i=0;i<80;i++)  cout << k;
        cout << x << endl << endl;
    system("pause");
}

Добавлено через 3 часа 10 минут
Можно ли с string работать по символьно?

@soon · 08.09.2011, 22:49

Сообщение от softmob

Можно ли с string работать по символьно?

Конечно.

C++
1
2
std::string str = "abcdef";
std::cout << str[0];

@OstapBender · 09.09.2011, 02:53

лучше написали бы что должна делать программа а то ничерта не ясно, а знатоков бейсика по видимому не много тут

тогда и проверить можно будет...
а то гадать, например, что вот это и зачем как-то не очень

C++
1
2
3
4
        int g = pow(q,r);
        z += j * g;
        r += 1;
        len-=1;

@softmob · 09.09.2011, 12:55 **[ТС]**

программа для перевода из одной системы счисления в другую. (основания от 2 до 16)

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
#include <iostream>
#include <math.h>
#include <string>
using namespace std;
void main()
{                
        string u="0123456789ABCDEF", a,x="";
        int q=0,p=0;
        double z=0, r=0,j=0;
        cout << "vvedite vvedite chislo: "; 
        cin >> a;      
        cout << "vvedite vvedite q: ";
        cin >> q;
        cout << "vvedite vvedite p: ";
        cin >> p;
        int len=a.length();
        len-=1;        
        while(len>=0)
        {
        for (int i=0; i<16;i++)
        {               
        if (toupper(a[len])==u[i]) j=i;
                }
        z += j * pow(q,r);
        r += 1;
        len-=1;
                }
        int h=z;
        while (h>0)
        {
        x+= u[h%p];
        h/=p;
                 }
        reverse(x.begin(), x.end());                  
        for (int i=0;i<80;i++)  {char k=196; cout << k;}
        cout << x << endl << endl;
        system("pause");
}

Добавлено через 3 часа 50 минут
Как правильно распечатать ascii символы? На char k=#символа; cout << k; ругается во время проверки...

@OstapBender · 09.09.2011, 15:05

ну скорей всего ругается на выход за границы знакового байта. сделай char беззнаковым (unsigned) тогда не будет.

@softmob · 09.09.2011, 17:36 **[ТС]**

спс, теперь не ругается... какие есть замечания по самому коду?

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
#include <iostream>
#include <math.h>
#include <string>
using namespace std;
void main()
{                
        string u="0123456789ABCDEF", a,x="";
        int q=0,p=0;
        double z=0, r=0,j=0;
        cout << "vvedite vvedite chislo: "; 
        cin >> a;      
        cout << "vvedite vvedite q: ";
        cin >> q;
        cout << "vvedite vvedite p: ";
        cin >> p;
        int len=a.length();
        len-=1;        
        while(len>=0)
        {
        for (int i=0; i<16;i++)
        {               
        if (toupper(a[len])==u[i]) j=i;
                }
        z += j * pow(q,r);
        r += 1;
        len-=1;
                }
        int h=(int)z;
        while (h>0)
        {
        x+= u[h%p];
        h/=p;
                 }
        reverse(x.begin(), x.end());  
        unsigned char k=196;               
        for (int i=0;i<80;i++)  { cout << k;}
        cout << x << endl << endl;
        system("pause");
}

@alexzak · 10.09.2011, 03:09

Сообщение от softmob

какие есть замечания по самому коду?

Посмотри, может тебе так больше понравится:

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
#include <iostream>
#include <ostream>
#include <string>
#include <algorithm>
#include <locale>
 
using namespace std;
 
template <typename T>
T input(string const & message, T const & def)
{
    T var(def);
    cout << message << ": ";
    cin >> var;
    return var;
}
 
int main()
{
    locale defloc;
    string u("0123456789ABCDEF");
 
    string a = input("vvedite chislo", string());
    int q = input("vvedite q", 0);
    int p = input("vvedite p", 0);
 
    int z = 0;
    for (size_t i = 0; i != a.size(); ++i)
    z += z * p + u.find(toupper(a[i], defloc));
 
    string c;
    for (; z > 0; z /= p)
    c += u[z % p];
    reverse(c.begin(), c.end());
 
    cout << string(80, '\xc4') << endl
         << c << endl;
}

@softmob · 10.09.2011, 21:20 **[ТС]**

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

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
#include <iostream>
#include <ostream>
#include <string>
#include <algorithm>
#include <locale>
 
using namespace std;
 
template <typename T>
T input(string const & message, T const & def)
{
    T var(def);
    cout << message << ": ";
    cin >> var;
    return var;
}
 
void main()
{
    locale defloc;
    string u("0123456789ABCDEF"); 
    string a = input("vvedite chislo", string());
    string c;
    int q = input("vvedite q", 0);
    int p = input("vvedite p", 0);  
    unsigned long long int f=1,z=0; 
   
    for (int len=a.size()-1; len>=0;len-=1)
    {
        z += f*u.find(toupper(a[len], defloc));
    f*=q;   
    }
      
        for (; z > 0; z /= p) c += u[z % p];
 
    reverse(c.begin(), c.end()); 
    cout << string(80, '\xc4') <<  c << endl;
    system("pause");
}

Добавлено через 9 часов 10 минут
доделал прогу, теперь переводит и дробные числа..

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
#include <iostream>
#include <ostream>
#include <string>
#include <algorithm>
#include <locale>
#include <math.h>
#include <sstream>
 
using namespace std;
 
template <typename T>
T input(string const & message, T const & def)
{
    T var(def);
    cout << message << ": ";
    cin >> var;
    return var;
}
 
void main()
{
    locale defloc;
    string u("0123456789ABCDEF"); 
    string a = input("vvedite chislo", string());
    string c,w;
    int q = input("vvedite q", 0);
    int p = input("vvedite p", 0);      
    unsigned long long int z=0; 
    if (a.find(',')!=-1) a[a.find(',')]='.';
    int k=a.find('.'), r = (a.size() - k-1),l=0;
    if (k==-1) 
        r=0;
    else
        {r*=-1;
        a=a.erase(k, 1);
        }
    long double d=0, f=pow((double)q,r);
    
        for (int len=a.size()-1; len>=0;len-=1)
        {
        if (r>=0)
        z += f*u.find(toupper(a[len], defloc));
        else
            d += f*u.find(toupper(a[len], defloc));
        f*=q;
            r+=1; 
        }   
        
    for (; z > 0; z /= p) c += u[z % p];
        
    do
    {
    l+=1;
    if ( l>20 ) break;
    d*=p;
    w+=u[(int)d];
    ostringstream ost;
        ost << d;
        string s_d = ost.str();
        s_d='0'+s_d.erase(0, s_d.find('.'));
    d=stod(s_d);
    }
    while((d>0)); 
           
    reverse(c.begin(), c.end()); 
    cout << string(80, '\xc4') <<  c << '.'<<w<< endl;
    system("pause");
}

@alexzak · 11.09.2011, 00:01

Сообщение от softmob

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

Молодец

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@OstapBender 594 / 532 / 76 Регистрация: 22.03.2011 Сообщений: 1,585
	09.09.2011, 15:05
	ну скорей всего ругается на выход за границы знакового байта. сделай char беззнаковым (unsigned) тогда не будет. 1