Arkadaşlar Ödev Verdilerde ? yardımcı olurmusunuz..

YaHak' Alıntı:

kodu qbasic ile veriyorum, üzerinde biraz değişiklik yapmak gerekiyor çünkü win7 de qbasic Türkçe karakter desteği yok, dos komutlarıyla da uğraşmadım, ama Türkçe karakterler harici çalıştı (70000 kelimelik veri tabanı bende de mevcut depo.txt dediğim bu dosyadır)
(bu arada flood olayına karşı olanlara sesleniyorum, ard arda mesaj atıldığında konunun yukarı çıkmasını iptal edin olsun bitsin ne diye yaygara yapıyorsunuz? kodlarla oynamayı beceremiyorsanız ne diye forum sitesi yapıp uğraşıyorsunuz?, her başka sayfaya geçildiğinde avrat resimli reklamlar koymayı biliyorsanız bunu da bileceksiniz, hani internet özgürlüktü!, flood yasakmış(zooorrrt))


'kelimeler bulma programi
'sozcuk deposundaki kelimelerden
'girilen harflerle uretilebilecek
'olanlari ekrana yazar
CLS
CLEAR
DIM harfler(255), yedek(255)

PRINT "harfleri girip enter tusuna basiniz:"
al:
DO: a$ = INKEY$: LOOP UNTIL a$ <> ""
a = ASC(UCASE$(a$))
IF a > 40 THEN
PRINT a$;
say = say + 1
END IF
harfler(a) = harfler(a) + 1
IF a <> 13 THEN GOTO al
basla:
PRINT
OPEN "depo.txt" FOR INPUT AS #1

DO UNTIL EOF(1)
s = s + 1
FOR i = 1 TO 255: yedek(i) = harfler(i): NEXT
INPUT #1, a$
uz = LEN(UCASE$(a$))
FOR i = 1 TO uz
a = ASC(UCASE$(MID$(a$, i, 1)))
IF yedek(a) = 0 THEN GOTO yeni
yedek(a) = yedek(a) - 1
NEXT i
k=k+1
PRINT a$,
yeni:
LOOP
CLOSE
PRINT k;" adet kelime bulundu"
END


çalışma çıktısı örneği: (kelime deposunda alfabedeki harfler de var bunlar depodan çıkarılabilir)

Genişletmek için tıkla ...