Klavyeden girilen sayilar arasindan Ayni Girilen Sayiların Sayisini Bulma

CLS
INPUT "KAÇ TANE SAYI GİRİLECEK="; sayi
DIM B(sayi)
FOR I=1 TO sayi
INPUT "SAYI GİR="; B(I)
NEXT I
FOR I = 1 TO (sayi-1)
FOR J = (I+1) TO sayi
IF B(J)= B(I) THEN X = X + 1
NEXT J , I
PRINT "AYNI OLAN SAYI ADEDİ="; X
END

Klavyeden Girilen Bir Cümlede Belirtilen Karakteri Yeni Degeriyle Degistirip Yeniden Yazdiran Program

REM DEĞİŞTİRME
CLS : DIM K$ (255)
INPUT "CÜMLEYİ GİRİNİZ: ", C$: PRINT
INPUT "DEĞİŞTİRELECEK HARFİ GİRİNİZ: " , H$
INPUT "HARFİN YENİ DEĞERİNİ GİRİN : " , Y$
PRINT : FOR I = 1 TO LEN(C$)
K$(I) = MID$(C$,I,1)
IF K$(I) = H$ THEN K$(I) = Y$
NEXT I
PRINT "Yeni cümle : " ;
FOR I = 1 TO LEN(C$)
PRINT K$(I);
NEXT I
END