eet computerwolf e katılıyorum en kestirme ve mantıklı yolu o

program ilplakalari;varplaka:byte;beginWrite ;Readln ; IF (plaka<0) or (plaka>81) Then WriteLn ; case plaka of1:Write ;2:Write ;81:Write ;end; readln;end. buyur hoca bu kodlar calisir. if yapisini kaldirip case of un else ile de programi su sekildede kisalta bilirsin program ilplakalari;varplaka:byte;beginWrite ;Readln ; case plaka of1:Write ;2:Write ;81:Write ;elseWrite ;end; readln;end Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

Ya adam isimle aratmak isterse mesela burdur diyecek plakası çıksın diyecek yani çift taraflı onu nasıl ayarlayabilirz bunu biliyordum ama çift taraflı değerlilk nasıl veririz yani hem byte hem string olarak? echo "imzanız zel karakter içermemelidir";

Dizi mantığıyla çift taraflı ve tek taraflı yazmak pek de sorun olmayacaktır. hemde byle basit bir programcık içinde dizilerin kullanımını kolay kavrayabilirsin. dizi mantığını çzmen için güzel bir rnek bence.. dizi nedir dersen eğer bende derim ki işte ipucu at bakalım balık gelecekmil :) rn: google+diziler+pascal Paslanmış bir uygulama geliştirici.. #AnalistŞart

Birsuru yontem var hoca, ister veri yapilari kismina kayarsan text bazli dosyalama bile yaparsin iyice gelistirebilirsin. Istersen dizi elemanlarini katarsin isin icine indexlerinde arama yaptirirsin isim olarak. Yontem cok. Ancak bunu tutup ucbirim uygulamalarinda kasmaya gerek yok :) Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

Ya beyler benim pascalda basit bir dev yapmam lazım. Olay şu. Şehirin plaka numarasını giricek adam sonra = Şehir adı olarak ekrana yazı gelicek. Ama bide şyle olacak. If yada else kullanıcam. Mesela adamın girdiği sayı If 0 dan kücük 81 den büyük ise ekrana " Lütfen 81 ile 0 arasında bir plaka kodu giriniz " yazıcak. Ben biraz yaptım ama tam anlamıyorum. Byle bişey yaptım devamını getiremiyorum.

Kullanicidan plaka isteyince "plaka" isimli bir degiskene ata. if yapisi kullanarak plakanin 1 - 81 arasinda olup olmadigini kontrol ettir. OR kullanirsan fazla if kullanma ile cebellesmessin.2 karar vermeyi tek if icine alirsin. Sonra senin icin kolaylik olur hepsini if ile yazma, "case" yapisini kullanarak girilen plaka degerine gore il adlarini yazdir. varplaka:byte;beginWrite ;Readln ; if yapisi case plaka of 1: Writeline ;2: Writeline ;...81:Writeline ;end; saka maka delphi ile kod yazmayi ozlemisim lan :) C# falan gec kod yazarken en cok zevk aldigim dildi pascal :) syntax i temiz, ne bilim ilk goz agirsi ondan herhalde :) Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

le computerwolf ama hacı ne biliyim delphiyide bitirdiler. ilk rendiğim dildi pascak :$

Yukarı! !!!

if sehirno<0 or sehirno>81 then writeln ;bi denermisin bunu kardeş