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

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

Восстановить пароль Регистрация
 
Temoffey
 Аватар для Temoffey
20 / 40 / 0
Регистрация: 21.11.2010
Сообщений: 96
04.02.2011, 11:12     Перевод с QBasic в С/С++ #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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.02.2011, 11:12     Перевод с QBasic в С/С++
Посмотрите здесь:

Массивы,инициализация(qbasic'овские read,data) C++
Перевод программы из QBasic в C/C++ C++
C++ перевод из qbasic в с++
Перевод из 2 в 10 сс C++
Перевод C++
Перевод с С на С++ C++
C++ Перевод C#->C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Dzhej-Dzhej
Заблокирован
04.02.2011, 12:09     Перевод с QBasic в С/С++ #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;
}
Yandex
Объявления
04.02.2011, 12:09     Перевод с QBasic в С/С++
Ответ Создать тему
Опции темы

Текущее время: 12:01. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru