Çevrimdışı

Elimde 100 e yakın sayı var, bunları 6 lı 7 li kombinasyonlar halinde toplamak için lazım bu kod. Her sayı için a1=1 a2=2 a3= 8 a4=21 ... gibi devam ediyor.

Alıntı:

alias F12 { set %karakter $gettok(%deneme,%son,32) set %karaktersayi $len(%karakter) if (%karaktersayi == 3) { k3 } if (%karaktersayi == 4) { k4 } if (%karaktersayi == 5) { k5 } } else { .halt } ;::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::: alias k3 { set %degistir $gettok(%deneme,%son,32) set %karaktersayi $len(%degistir) set %artir $right(%degistir,1) inc %artir +1 set %yeniveri % $+ a $+ %artir set %deneme $puttok(%deneme,%yeniveri,17,32) write 1.txt %deneme .F12 } ;::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::: alias k4 { set %degistir $gettok(%deneme,%son,32) set %artir $right(%degistir,2) inc %artir +1 set %yeniveri % $+ a $+ %artir set %deneme $puttok(%deneme,%yeniveri,17,32) write 1.txt %deneme .F12 } alias k5 { if (%artir < 111) { set %degistir $gettok(%deneme,%son,32) set %artir $right(%degistir,3) inc %artir +1 set %yeniveri % $+ a $+ %artir set %deneme $puttok(%deneme,%yeniveri,%son,32) write 1.txt %deneme .F12 } } %deneme a1 + a2 + a3 + a4 + a5 %son 9

Bu yazdiğım kodla %deneme verisindeki a6 kısmı a111 e kadar değişiyor. Sonra işlem bitiyor. Benim istediğim bu işlem bittikten sonra %deneme verisindeki a5 verisinin değişmesini sağlamak diğerleri sabit kalacak a6 ya yaptığım işlemin aynısını yani. Böyle böyle a1 e kadar değişimleri otomatik olarak yapmak.