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

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

Войти
Регистрация
Восстановить пароль
 
Temoffey
20 / 40 / 0
Регистрация: 21.11.2010
Сообщений: 96
#1

Перевод с QBasic в С/С++ - C++

04.02.2011, 11:12. Просмотров 407. Ответов 1
Метки нет (Все метки)

Есть программа для QBasic, она нужна в С/С++

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
RANDOMIZE TIMER
 
CLS 
DIM k(5) 
k(1) = 0 
k(2) = 0 
К(3) = 0 
k(4) = 0 
k(5) = 0 
 
FOR i = 1 ТО 500000 
a=RND/2 
FOR j = 1 ТО 5 STEP 1 
IF (а >= (j — 1) / 10) AND (а < j /10) THEN 
k(j) = k(j) + 1 
END IF 
NEXT j 
NEXT i 
FOR i — 1 ТО 5 
PRINT k(i) 
NEXT i
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.02.2011, 11:12
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод с QBasic в С/С++ (C++):

Перевод из 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 на С++ - C++
Добрый день.Имеется рабочий код на QBasic,хочу переписать его на C++.Пока не получается,требуется ваша помощь. CLS INPUT &quot;ширина...

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

Перевод из QBasic в VB.NET - QBasic
Здраствуйте, дали задание перевести программу на VB.net вот исходник (это часть кода): N=12: M=0 32 DIM MES(12),X(372) 33 DATA...

Перевод с qbasic на Pascal - Turbo Pascal
Здравствуйте! Я написал программу для qBasic. Помогите пожалуйста переписать её для Pascal. Заранее спасибо. CLS OPEN &quot;input.txt&quot;...

1
Dzhej-Dzhej
Заблокирован
04.02.2011, 12:09 #2
примерно так:
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
#include <iostream>
#include <time.h>
using namespace std;
 
int main()
{
    srand( (unsigned)time( NULL ) );
//CLS   
    int k[5];
    k[0] = 0; 
    k[1] = 0; 
    k[2] = 0; 
    k[3] = 0; 
    k[4] = 0; 
    for(int i = 0 ;i < 500000;i++)
    {
        double a=((rand()%10)/10.)/2. ;
        //cout <<a<<endl;
        for(int j = 0 ;j < 5; j++)
            if ((a >= j  / 10.) && (a < (j+1) /10.)) 
                k[j] += 1 ;
    }
    for(int i = 0 ;i < 5;i++)
        cout <<k[i]<<endl;
    system ("pause");
    return 0;
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.02.2011, 12:09
Привет! Вот еще темы с ответами:

Перевод с Borland Pascal на QBasic - QBasic
Переведите, пожалуйста, на Basic. Последовательность Хэмминга образуют натуральные числа, не имеющие других простых делителей, кроме 2, 3...

Перевод из Visual Basic в qBasic - Visual Basic
Sub My() Dim i As Integer, summ As Single, t As Single Dim x As Integer, f As Boolean t = CSng(InputBox(&quot;vvedite&quot;)) summ = 0 i...

Перевод кода из Fortran в QBasic - QBasic
Здравствуйте. Подскажите пожалуйста с переводом кода из Fortran. DO 5 I=1,N 5 Y1(I)=Z(I)*H IF (E_1) 6, 7,...

Перевод из Visual Basic в qBasic - QBasic
Добрый день! Хотел бы попросить помочь мне перевести программу из Visual Basic в qBasic. Или помочь найти конвертер...


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

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

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