Konu: Algoritma dersi (Bilgisayar Programcılığı)

[(Gizli Üye)]

tamam yaptım direk exe oluştu comp yapınca giriyor yapıyorum oluyor çok teşekkür ederim . Turbo pascalda acmayı denedim acmadı neden ki

[(Gizli Üye)]

Ben turbo pascal'da yazdım zaten. .pas dosyası olması lazım açması için.

[(Gizli Üye)]

Aşağıda satırlarda ne iş yapıldığını yazıyorum. Bu şekilde pascal'a alma çalışmaz

Uses Crt;
Var TANIMLAMA
f: text; Dosyadan okuma için tanım.
ad, soyad, aranacak: string[20]; Karakter seti için tanım.
tno:integer; Bunlar tamsayı.
secim:integer;
eh:char; Tek karakter.
begin Başla demek.
secim:=0;
repeat Burada döngü başlar until'de biter.
clrscr;
writeln('1-giris'); Yazma işlemi.
writeln('2-liste');
writeln('3-arama');
writeln('4-cikis');
writeln('seciminiz');
readln(secim);Okuma işlemi.
if secim=1 then
begin
clrscr;Ekranı temizler.
eh:='e';
assign(f,'liste.txt'); Dosya açar.
rewrite(f);Dosyayı temizler.
repeat
clrscr;
writeln('Ad giriniz');
readln(ad);
writeln('Soyadi giriniz');
readln(soyad);
writeln('tno giriniz');
readln(tno);
writeln(f,ad);
writeln(f,soyad);
writeln(f,tno);
writeln('devam m e/h');
readln(eh);
until eh='h'; repeat'in bitişi.
close(f); Dosyayı kapatır.
end;
if secim=2 then
begin
clrscr;
assign(f,'liste.txt');
reset(f);Dosyayı temizlemeden en başına gider.
repeat
readln(f,ad);
readln(f,soyad);
readln(f,tno);
writeln(ad,' ',soyad,' ',tno);
until eof(f); Dosya sonunu kontrol eder.
close(f);
readln;
end;
if secim=3 then
begin
clrscr;
assign(f,'liste.txt');
reset(f);
writeln('Aranacak ismi girin');
readln(aranacak);
repeat
readln(f,ad);
readln(f,soyad);
readln(f,tno);
if ad=aranacak then writeln(ad,' ',soyad,' ',tno);
until eof(f);
close(f);
readln;
end;
until (secim=4);
clrscr;
end.Bitirir. nokta ile biterse genel bitiş. ; ile biterse ara bitiş demektir.

[(Gizli Üye)]

Aşağıda satırlarda ne iş yapıldığını yazıyorum. Bu şekilde pascal'a alma çalışmaz

hakan abi sana ne kadar teşekkür etsem azdır Çok teşekkür ederim Allah Senden Razı olsun Ne muradın varsa versin ... Sınavdan 100 almamak için başka bir nedenim kalmadı . Sadece bu dersten kalıyordum ohh geçicem bundan da ...

[(Gizli Üye)]

Hangi bölümdesin?

[(Gizli Üye)]

Bilgisayar programcılığı   yarın hocayla yüzleşicem bakalım Hayırlısı ile

[(Gizli Üye)]

E bu senin temel dersin. Bunu iyi öğren.

[(Gizli Üye)]

evet öyle de hocadan yana biraz sıkıntım var yoksa eğlenceli bir ders.

[(Gizli Üye)]

Sana tavsiyem biraz ilerledikçe IOI ve Tübitak Bilgisayar yarışması sorularını bulup algoritma geliştirmeye çalış. Çok şey kazanırsın.

[(Gizli Üye)]

inşallah hakan abi artık ekmeğimiz buradan olacak inşallah hayırlısı ile . senin yazdığın kodların her birinin ne işe yaradığını ezberledim şimdi . Tekrar tekrar bütün kodu yazıyorum elim alışsın diye soyut olarak anlamıyorum o yüzden inşallah pascala geçeçegim zaman anlayacagım güzel şekilde

Dediğin şeylerede bakıcam

[(Gizli Üye)]

Bunu ne yapip edip anlaman lazim. Hakan sana ilk yardimi yapmis ama bundan sonrasi sana kalmis.
Hele hele o bölümde okuyorsan ne yapip ögrenmen lazim.

[(Gizli Üye)]

Bunu ne yapip edip anlaman lazim. Hakan sana ilk yardimi yapmis ama bundan sonrasi sana kalmis.
Hele hele o bölümde okuyorsan ne yapip ögrenmen lazim.

Murat abin doğru söylüyor. Temeldir bunlar.

[(Gizli Üye)]

Hocaya gösterdim tamam yaptıysan yaptın dedi bir not bile vermedi ya bu pascal için kötü başlangıç

[(Gizli Üye)]

Belki indentation (içten yazma) kullanarak programı daha okunaklı hale getirebiliriz. O zaman kavramak daha kolay olabilir. Azıcık düzenledim:

{Pascal'da açıklama satırları küme parantezleri içine yazılır. Bu şekilde kodun içine yazılan açıklamalar, derleyici tarafından görmezden gelinir}
Program arama; {Program başlığı: at kafadan bir isim}
Uses Crt; {bazı ekran komutlarını kullanabilmek için bunu programın başına ekliyoruz}
Var {DEĞİŞKENLER BÖLÜMÜ}
  f: text; {Dosyadan okuma için tanım.}
  ad, soyad, aranacak: string[20]; {Karakter seti için tanım.}
  tno:integer; {Bunlar tamsayı.}
  secim:integer;
  eh:char; {Tek karakter.}

begin {ASIL PROGRAM BLOĞU}
  secim:=0; {Secim'in ilk değeri 0}
  repeat {menü döngüsü}
    clrscr;
    writeln('1-giris'); {Yazma işlemi.}
    writeln('2-liste');
    writeln('3-arama');
    writeln('4-cikis');
    writeln('seciminiz');
    readln(secim); {Klavyeden okuma işlemi.}
    if secim=1 then
      begin {Program bloğu begin ile başlar}
        clrscr; {Ekranı temizle}
        eh:='e';
        assign(f,'liste.txt'); {Dosya açar.}
        rewrite(f); {Dosyayı temizler.}
        repeat
          clrscr;
          writeln('Ad giriniz');
          readln(ad);
          writeln('Soyadi giriniz');
          readln(soyad);
          writeln('tno giriniz');
          readln(tno);
          writeln(f,ad);
          writeln(f,soyad);
          writeln(f,tno);
          writeln('devam mı e/h');
          readln(eh);
        until eh='h'; {repeat'in bitişi.}
        close(f); {Dosyayı kapatır.}
      end; {Program bloğu end ile biter}
    if secim=2 then
      begin
        clrscr;
        assign(f,'liste.txt');
        reset(f); {Dosyayı temizlemeden en başına gider.}
        repeat
          readln(f,ad);
          readln(f,soyad);
          readln(f,tno);
          writeln(ad,' ',soyad,' ',tno);
        until eof(f); {Dosya sonunu kontrol eder.}
        close(f);
        readln;
      end;
    if secim=3 then
      begin
        clrscr;
        assign(f,'liste.txt');
        reset(f);
        writeln('Aranacak ismi girin');
        readln(aranacak);
        repeat
          readln(f,ad);
          readln(f,soyad);
          readln(f,tno);
          if ad=aranacak then writeln(ad,' ',soyad,' ',tno);
        until eof(f);
        close(f);
        readln;
      end;
  until (secim=4); {Menü döngüsünden çıkış koşulu}
  clrscr;
end.  {Programı Bitirir.}

Ezberlemekle olmaz. Kimsenin o kadar hafızası yoktur. Dikkat edersen bir takım iç içe yapılar var. Begin- end arasında kalan program bloğu temel yapıdır ve birden fazla komutun tek bir komut gibi yazılmasını sağlar. Bunun dışında bu örnekte if yapısı (if then else denir genelde, şart tümcesidir) ve repeat until (sondan kontrollü döngü yapısı) var. Bunların ne işe yaradığını öğrenmelisin.
Selamlar