8.1.. Pamćenje brojeva
Opis rješenja: Na ekranu se ispisuje slučajno generisani broj. Treba te ga zapamtiti a zatim otkucati na tastaturi.
Opis programa:
Listing programa:
1 REM PAMCENJE BROJEVA
10 REM glavni program
20 GOSUB 300: REM pocetne vrijednosti
30 GOSUB 100: REM izbor broja i provjera odgovora
40 GOSUB 200: REM dalje/kraj
50 GOTO 30
100 REM PROVJERA ODGOVORA
RANDOMIZE TIMER: REM Omogucuje nove brojeve pri svakom startanju programu
110 I = INT(90 * RND) + 10: PRINT "Zapamti broj "; I
120 FOR J = 1 TO 10000
FOR J2 = 1 TO 10000: NEXT J2: REM kasnjenje
NEXT J: REM kasnjenje
CLS: PRINT "Broj je bio prikazan na kratko, pokusaj da se sjetis koji je to broj"
130 FOR J = 1 TO 6
140 INPUT "BROJ "; C
150 IF C = I THEN BP = BP + 1: PRINT "TACNO": GOTO 180
160 NEXT J
170 BG = BG + 1: PRINT "POGRESNO ispravan broj je: "; I
180 PRINT "Od "; BP + BG; " pokusaja ", BP; ' je tacno" ,BG;" je pogresno"
190 RETURN
200 REM DALJE/KRAJ
210 PRINT "Dalje (/N) ";
220 INPUT A$
230 IF A$ = "N" THEN GOTO 990
240 RETURN
300 REM pocetne vrijednosti
CLS
PRINT TAB(10); "PAMCENJE BROJEVA"
320 PRINT TAB(10);
330 FOR J = 1 TO 16
PRINT "*";
NEXT J
340 PRINT
350 BP = 0: BG = 0
360 RETURN
990 END
Ispis na ekranu:
Daljnj i rad: Trocifreni i četverocifreni broј dobijamo promjenom u liniji 110 vrljednostі, vriјeмe prikaza je regulisano u liniji 120.
Probajte napisati program u kojem:
- igra vaše igrača,
- treba zapamtiti viša brојеvа.
 |
 |
 |
 |
 |
