računalnik sam napiše račune in ne ti

Račun -- "Izbere" ali "Sestavi"?

Mene pa zanima tole, kako dolociti Rand() da mora biti stevilo dolgo samo 1, 2 ali 3 Stevilke. Meni jih pise po 10 (1359846239) in potem sesteva in ostalo sam to je preveliko.

Primer:
Ali 3, ali 15, ali 33 vec kot 100 ne


Ja pa se tole, seveda mora tudi racunalnik izvrsiti sestevanje, odstevanje, mnozenje in deljenje, ne da je vsak racuna +, -, / , *. Se da tudi z RAnd(), in kako.

Hvala

rand()%100 ... ostanek pri deljenju s 100 ti vrne cifro manjšo od sto. mogoče je pametno da daš 10+rand()%90 da ti vrne cifro med 10 in 100...

Tole spodaj je še na Spectrumu delal :)
Dela v Qbasicu

5 CLS
10 INPUT "KAKO TI JE IME "; a$
20 INPUT "DO KOLIKO ŽELIŠ RAČUNATI "; a
23 PRINT " "
30 B = 1 + (FIX(RND * a))
40 C = 1 + (FIX(RND * 4))
50 D = 1 + (FIX(RND * a))
51 IF C = 1 THEN GOTO 60
52 IF C = 2 THEN GOTO 70
53 IF C = 3 THEN GOTO 80
54 IF C = 4 THEN GOTO 90
60 PRINT ; a$; " KOLIKO JE "; B; "+"; D: GOTO 65
65 E = B + D: GOTO 100
70 IF B - D < 0 THEN G = D: H = B: GOTO 74
71 G = B: H = D
74 PRINT ; a$; " KOLIKO JE "; G; "-"; H: GOTO 75
75 E = G - H: GOTO 100
80 PRINT ; a$; " KOLIKO JE "; B; "*"; D: GOTO 85
85 E = B * D: GOTO 100
90 PRINT ; a$; " KOLIKO JE "; (B * D); "/"; D: GOTO 95
95 E = B: GOTO 100
100 INPUT F
101 PRINT " "
110 IF E = F THEN PRINT a$; " BRAVO PRAVILNO SI ODGOVORIL": P = P + 1: GOTO 200
120 PRINT "NAROBE SI ODGOVORIL "; a$; " MALO BOLJ SE POTRUDI": N = N + 1: GOTO 200
200 PRINT ; "PRAVILNO:"; P; " NAROBE:"; N; " OCENA:"; INT(10 * ((P / (P + N) / 2) + .05))

995 INPUT V$
996 IF V$ = "N" OR V$ = "n" THEN STOP
1000 GOTO 30