Merhaba arkadaşlar.q basicten ödev var.girdiğimiz bir sayıyı sağ tarafa yaslayarak üçgen yapmam gerekiyor.sunun gibi olmalı(shop bu) : (tabi yazılarda düzgün olucak shop yaptıgım için ters çıktı.)
suan alabildiğim çıktı ve kodlarım sunlar :
KOD(text) :
INPUT A$ CLS FOR X = 1 TO LEN(A$) LOCATE X, 1 PRINT MID$(A$, X, 81)
NEXT X
cevap bekliyorum arkadaşlar ilgilenen biri olursa sevinirim :)
Arkadaşlar yok mu ilgilecek birisi..
quote:
Orijinalden alıntı: kanunsuz_
Arkadaşlar yok mu ilgilecek birisi..
Tahmini olarak;
FOR ........... LOCATE X,81-LEN(A$)+X PRINT ......... NEXT