- Kullanıcının girdiği metni tersten yazdırın.
- Kullanıcının girdiği 10 kişi adını alfabetik sırayla ekrana yazdırın.
- Kullanıcının girdiği 10 sayıyı toplayıp yazdırın
- Kullanıcının girdiği 10 sayının ortalamasını yazdırın.
- 1-100 arası sayıların toplamını yazdırın.
- 1-100 arası sayıların çift olanlarının toplamını yazdırın.
- 1-100 arası sayıların 4'e tam bölünenleri yazdırın.
- Kullanıcının girdiği isimlerden benzersiz olanları listeleyin.
- Kullanıcının girdiği metindeki sesli harfleri yazdırın.
- Kullanıcının girdiği metni hecelerine ayırarak yazdırın.
Soruların cevaplarını yorum olarak yazabilirsiniz.
Ayrıca burada olmayan soruları yorum olarak yazabilirsiniz.
Cls
YanıtlaSilinput"ters yazilacak metni giriniz.. :", m$
Print
Print
Print" metnin tersi.. :"
FOR i=1 TO len(m$)
Print mid$(m$, len(m$) +1-i,1),
NEXT i
INPUT "Ters yazılacak metni giriniz : ", m$
SilFOR i = LEN(m$) TO 1 STEP -1
PRINT MID$(m$, i, 1);
NEXT