Basit manada bir akış örneği şekilde gözüküyor.Kısaca özetlemek gerekirse start'la programın başladığını göstermiş, dışarıdan a,b değişkenlerini okumuş.Yani kullanıcı a,b değişkenlerinin değerini girmiş.Buradan sonra c değişkenine bu a ile b'nin toplamını atamış.Daha sonra c'yi ekrana yazdırmış ve programı stop'la bitirmiş.
-
Bu programı pascal dilinde kodlarsak;
-
Program toplam (input,output); {input,output artık gerekli olan bir terim değil ama yazalım.Burada programın ismini koyduk}
uses crt; {crt kütüphanesini çağırdık aşağıda kullandığımız clrscr komutu için gerekli bu kütüphane.}
var {variable yani değişkenlerin tanımlandığı bölüm}
a,b,c:integer; {a,b,c tamsayı ise yani 1,2,3 gibi değerlerse integer olarak tanımlanır, integer zaten türkçe manasıyla tamsayı demektir.}
Begin {programımız ana metninin başladığı yerdir}
Clrscr; {ekranı temizlemek için kullandık.program çalışmadan önce ms-dos ekranında yukarılarda birşeyler yazıyorsa temiz bir sayfa açmış olduk:) }
Writeln('iki sayi giriniz'); {Bu komutla ekrana iki tırnak arasındaki metni yazarız ve de bir sonraki satıra geçeriz.Eğer write ile yazsaydık alt satıra geçmezdi.}
Readln(a,b); {dışarıdan iki sayı okuyacağız.Readln yazdığımız için 1.sayı ardından enter, 2.sayı ardından enter şeklinde girilir.Ama read yazsaydık 1.sayı boşluk 2. sayı enter diyerek girebilecektik. }
c:=a+b; {dışarıdan okuduğumuz a,b değişkenlerini toplayıp c'ye atıyoruz.Atama soldaki değişkene yapılır.}
writeln(c); {c değişkenini ekrana yazdırıyoruz ve alt satıra geçiyoruz}
readln; {programı exe dosyasından açtığımız durumlarda işlemlerden sonra hemen kapanmasın biz bir tuşa basana kadar beklesin diye bu komutu koyuyoruz.Program bittikten sonra ekranı kapatmak için bizi bekliyor :) }
End. {programımızı sonlandırıyoruz ve noktamızı koyuyoruz.}
Program kodunu akışla beraber vermek istedim ama burada noktalı virgülleri itinayla koymak gerektiğine, :='de iki noktayı yanlışlıkla koymadığıma = işlemi operatörünün böyle olduğuna v.s.'ye değinmedim ama onları ve diğerlerini de daha sonra belirteceğim..{belirttin zaten demeyelim var biraz daha :)) }
Hiç yorum yok:
Yorum Gönder