Pascalda Basit Bir Ödev
-
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 (eğer) 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.Böyle bişey yaptım devamını getiremiyorum.
-
Yukarı!
-
if sehirno<0 or sehirno>81 then writeln('sehir numarası yanlis');
bi denermisin bunu kardeş
-
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.
var
plaka:byte;
begin
Write("Plaka giriniz");
Readln(Plaka);
if yapisi(plakayi kontrol ettir gecerliligini)
case plaka of
1: Writeline("ADANA");
2: Writeline("ADIYAMAN);
...
81:Writeline("xxx");
end;
***
saka maka delphi ile (object pascal) 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 :)
-
öle computerwolf ama hacı ne biliyim delphiyide bitirdiler. ilk örendiğim dildi pascak :$
-
program ilplakalari;
var
plaka:byte;
begin
Write('Plaka giriniz :');
Readln(Plaka);
IF (plaka<0) or (plaka>81) Then WriteLn('Yanlis plaka numarasi girdiniz');
case plaka of
1:Write('ADANA');
2:Write('ADIYAMAN');
81:Write('xxx');
end;
readln;
end.----
buyur hoca bu kodlar calisir. if yapisini kaldirip case of un else ile de programi su sekildede kisalta bilirsin
program ilplakalari;
var
plaka:byte;
begin
Write('Plaka giriniz :');
Readln(Plaka);
case plaka of
1:Write('ADANA');
2:Write('ADIYAMAN');
81:Write('xxx');else
Write('Yanlis Plaka Girdiniz');end;
readln;
end -
eet computerwolf e katılıyorum en kestirme ve mantıklı yolu o
-
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?
-
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 :)
-
Dizi mantığıyla çift taraflı ve tek taraflı yazmak pek de sorun olmayacaktır. hemde böyle 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