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

@Temoffey · Регистрация: 21.11.2010

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

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

PureBasic

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

@~~Dzhej-Dzhej~~ · 04.02.2011, 12:09

примерно так:

C++

#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;
}

	04.02.2011, 12:09

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

Решение