Hoca Repeat-Until'e sokarsak donguyu her readkey char'ini hafizaya almak icin ayri bir dongu daha kurmamiz gerekecek. Degisken sayisi artacak :) .. sanki amk 50.000 satirlik program yaziyoruz degisken sayisini dikkate aliyorum :P... While Do dongusunu kullanarak daha kisa surede yazariz... Hatta ben 2dk yazayim... Bizim 1. siniftada gosterilmisti Pascal, bende ilk yazilima pascal ile baslamistim abi Pascal ile siir yazar gibi yaziyorsun cok zevkli ilk baslayanlar icin... syntax'i falan cok basit. Simdi yazarken daha basit birsey geldi aklima ama o zamanda readl pass in length ile uzunlugunu alsak for do ilede kisaca yapariz ama o zamanda sifrenin kac karakter oldugu biliniri guvenlik acigi :P... Turbo Pascal 7.0 ve Dev-Pas ile compile ettim hatasiz derlendi. o program zartzurt; uses crt; var x:char; sifre, pass:string; begin pass:=''; sifre:=''; Write ; Readln ; clrscr; Write ; x:= ; While x<>#13 dobegin Sifre:=Sifre+x; Write ; x:= ; end; Writeln ; if Sifre=Pass then Writeln else Writeln ; Readln; end. Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

Hoca Repeat-Until'e sokarsak donguyu her readkey char'ini hafizaya almak icin ayri bir dongu daha kurmamiz gerekecek. Degisken sayisi artacak :) .. sanki amk 50.000 satirlik program yaziyoruz degisken sayisini dikkate aliyorum :P... While Do dongusunu kullanarak daha kisa surede yazariz... Hatta ben 2dk yazayim... Bizim 1. siniftada gosterilmisti Pascal, bende ilk yazilima pascal ile baslamistim abi Pascal ile siir yazar gibi yaziyorsun cok zevkli ilk baslayanlar icin... syntax'i falan cok basit. Hoca sen mantığı yanlış anladın sanırım. Değişken sayısı artmıyor senin yaptığın programın repeat untilli olanı.

pascalda replace komutu varmıydı ya? TBT'ye Mescit istiyoruz.

Pascal'dan gına geldi ehehe Her türlü forum yazarı... <br> <br> TrueGamer <br> <br> Seraexperia FKT

gene pascal diyonuz bizde cobol var a. k. adam akıllı compiler yok ortada ama almanlar halen cobolla yazılım geliştiriyomuş bunu ğrenmiş oldum

stringler komutalrı içinde var replace.. abi le deme hala üniversitelerde veriyapıları dersinde tree yapıları, sıralama değiştirme arama algoritmalarında, linked list, double linked list, gibi yapıların tamamı pascal ve c ile ğretilmektedir.. Çünkü pascal dilnini yapılış amacı ğrencilere bilgisayaırı anlatmaktır... Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)

Hoca bir repeat until dngüsü kur. Readkey diye bir komut var klavyeden tek karakter okuyan ve ekrana yazdırmayan. Her adam tuşa bastığında bir karakter oku ve senin değişkene at. İşte her dngü dndüğünde tekrar bir karakter girilince eski değerle topla. Yıldız olayına gelirsek ekranda yazdıkların bu komutla gzükmeyeceği için. Her seferinde " " karakterini yazdırırsın. Olur biter :) Yani karakteri oku yıldız karakterini ekrana yazdır. Bir daha oku nceki değerle topla yıldızı yazdır... gidiyor. Entera basıncada dngüden çıksın. #13 ;)

Mantıklı :)readkeyde chr(13) de cıkış verirsin.. her bir seferindede aldığınnı string değişkene eklersin... hala pascal gsteriolarya deliriom... Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)

hoca yerinde olsam readkey yaparım ama belliki dev vermişler :) dngü kuracanda zor işin :) sırıtma la.

dinazor dili oldu hala derslerde veriyolar :)bu firex in dediğini qbasic de yapmıştım.. silme olayını eklemen lazım bide o kasıtırıyo malum yazdırılan karakteri geri almak zor iş :)

Abi olaya bak :) kafam nerede benim :D onumde universitede gecmis donemlere ait yazilim sorulari var, burada bir probleme kafam takildi :) ben onumdeki probleme kafa yoruyorum senin algoritmayi okudum.. tbt deki sorunun cozumunu yapiyorum.. senin repeat-until benim onumdeki problemde cozumu uzatiyor... bende karistiriyorum :) yoksa dedigin gibi benim yazdigim kodda while-do yu repeat-until olarak degistirip x=#13 yaptigimiz takdirde repeat-until ilede olur... Neyse ben su problemi cozemeyim forma yazacam zaten :d Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

Bir program için istiyorum bizden şifre isticek bu şifre girilirken şeklinde grüncek bilen varsa yardımcı olabilirmi?

Hımm.. valla pascalla uğraşmayalı cok oldu ama readlnle girileni okurken başka bir işlem nası yapabiliriz çıkaramadım :))Holye sormak lazım, belki vardır bi yolu.. Yada yazılmış bi proceduresi vardır... Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)