KLAVYEDEN COKLU VERiNiN GiRiLMESi VE N*N TiPiNDE BiR A MATRiSiNE YERLEžTiRiLMESi

5 CLS
10 INPUT "Kare Matrisin Tipini Giriniz: ", N
20 DIM A(N,N) : PRINT
30 FOR X = 1 TO N
40 FOR Y = 1 TO N
50 PRINT "A("; X; ","; Y; ") = "; : INPUT "", A(X, Y)
70 NEXT Y, X
END

KLAVYEDEN KÜÇÜK HARFLERLE GİRİLEN BİR CÜMLENİN HARFLERİNİ RASTGELE BÜYÜKLÜKTE YENİDEN YAZDIRAN PROGRAM

10 REM RASTGELE BÜYÜKLÜK

20 RANDOMIZE TIMER : CLS

30 INPUT "CÜMLE: ", C$: PRINT

40 FOR I = 1 TO LEN(C$)

50 H$ = MID$(C$, I, 1)

60 X= INT(RND*10)

70 IF X MOD 2 = 1 THEN H$ = CHR$(ASC(H$) - 32)

80 PRINT H$;

90 NEXT I

100 END