Evo ti program u Basic-u koji je prepisan iz casopisa Racunari br. 27 daleke 96 godine. Nemam sada vremena da ga prevedem u VB. Pokusaj da ga prevedes u VB. Ako je problem uradicu to kasnije.
Code:
' PERMUT.BAS
' PERMUT.EXE
' Uradjen: 21.05.1990.
' Verzija: 09.09.1996.
10 REM PERMUTACIJE BEZ PONAVLJANJA
20 REM
30 REM Racunari 27
40 REM
50 REM
60 REM
70 REM
80 DIM EL$(50), IZLAZ(50), POM(50)
85 OPEN "PERMUT.TXT" FOR APPEND AS #1
87 COLOR 7, 0, 0
90 CLS
100 PRINT " PERMUTACIJE BEZ PONAVLJANJA"
140 PRINT
160 PRINT : PRINT
180 REM PERMUTACIJE BEZ PONAVLJANJA
190 GOSUB 980
200 K = N
210 GOSUB 1030
220 GOSUB 1070
222 CLS
224 T$ = TIME$
226 LOCATE 22, 55: PRINT "POCETAK RADA: "; T$
230 FOR I = 1 TO K
240 IZLAZ(I) = I
250 POM(I) = 0
260 NEXT I
270 B = 0: T$ = TIME$
280 KN = N
290 IF N <> 2 THEN 330
300 GOSUB 1250: GOSUB 1320
310 GOSUB 1250: GOSUB 1320
320 GOTO 390
330 N = N - 1
340 GOSUB 290
350 GOSUB 1320
360 POM(N) = POM(N) + 1
370 IF POM(N) = N AND N = KN THEN 1380
380 IF POM(N) = N THEN POM(N) = 0 ELSE GOTO 330
390 N = N + 1
400 RETURN
980 INPUT "Koliko elemenata"; N
990 RETURN
1030 INPUT "Zelite li ispis "; ODG$
1040 ODG$ = LEFT$(ODG$, 1)
1050 ISPIS = NOT (ODG$ = "n" OR ODG$ = "N")
1060 RETURN
1070 PRINT
1080 PRINT
1090 FOR I = 1 TO N
1100 IF ISPIS THEN 1130
1110 EL$(I) = CHR$(I + ASC("a") - 1)
1120 GOTO 1170
1130 PRINT "Unesi "; I; ". element ili Enter";
1140 INPUT EL$(I)
1150 IF EL$(I) = "" THEN EL$(I) = CHR$(I + ASC("A") - 1)
1160 EL$(I) = LEFT$(EL$(I), 1)
1170 NEXT I
1180 PRINT
1190 RETURN
1250 B = B + 1
1260 IF NOT ISPIS THEN 1310
1265 REC$ = ""
1270 FOR L = 1 TO K
1280 'PRINT EL$(IZLAZ(L));
1285 REC$ = REC$ + EL$(IZLAZ(L))
1290 NEXT L
1300 'PRINT " ";
1305 PRINT #1, REC$
1310 RETURN
1320 R = IZLAZ(KN - N + 1)
1330 FOR I = KN - N + 1 TO KN - 1
1340 IZLAZ(I) = IZLAZ(I + 1)
1350 NEXT I
1360 IZLAZ(KN) = R
1370 RETURN
1380 PRINT #1, ""
1390 PRINT #1, "UKUPNO: "; B
1400 PRINT #1, ""
1410 PRINT #1, "POCETAK RADA: "; T$
1420 PRINT #1, " KRAJ RADA: "; TIME$
1425 PRINT #1, ""
1430 CLOSE
1450 LOCATE 23, 65: PRINT " KRAJ RADA: "; TIME$
1460 END
rgdrajko