रैंडम स्ट्रिंग्स के लिए चुनें कमोडोर 64 बुनियादी

Question

में मैं अपने कार्यक्रम के बारे में इस चर घोषणाओं है:

X="MAGENTA" 
Y="CYAN" 
Z="TAN" 
A="KHAKI" 

अब क्या मैं चाहता हूँ बेतरतीब ढंग से इनमें से किसी एक है और यह PRINT चयन करने के लिए है। लेकिन यह कैसे करें?

Answer 1

मेरे बुनियादी सुंदर जंग लगी है, लेकिन आप अभी की तरह कुछ का उपयोग करने के लिए सक्षम होना चाहिए:

10 X$ = "MAGENTA" 
20 Y$ = "CYAN" 
30 Z$ = "TAN" 
40 A$ = "KHAKI" 
50 N = INT(RND(1) * 4) 
60 IF N = 0 THEN PRINT X$ 
70 IF N = 1 THEN PRINT Y$ 
80 IF N = 2 THEN PRINT Z$ 
90 IF N = 3 THEN PRINT A$ 

या, कोड को फिर से उपयोग के लिए एक सबरूटीन में डालने:

10 X$ = "MAGENTA" 
    20 Y$ = "CYAN" 
    30 Z$ = "TAN" 
    40 A$ = "KHAKI" 
    50 GOSUB 1000 
    60 PRINT RC$ 
    70 END 

1000 TV = INT(RND(1) * 4) 
1010 IF TV = 0 THEN RC$ = X$ 
1020 IF TV = 1 THEN RC$ = Y$ 
1030 IF TV = 2 THEN RC$ = Z$ 
1040 IF TV = 3 THEN RC$ = A$ 
1050 RETURN 

बेशक

, आपको शायद उस तरह की चीज के लिए सरणी का उपयोग करना चाहिए ताकि आप इसका उपयोग कर सकें:

10 DIM A$(3) 
10 A$(0) = "MAGENTA" 
20 A$(1) = "CYAN" 
30 A$(2) = "TAN" 
40 A$(3) = "KHAKI" 
50 PRINT A$(INT(RND(1)*4))