|
 |
DERSLER |
Pascal
Giriş
If Then else
Case of
For-do
PASCAL
Pascal programlama dili 1968 yılında Niklaus Wirth tarafından
geliştirilmiş yüksek seviyeli bir programlama dilidir.Turbo Pascal program yazmak
için turbo.exe, turbo.tpl dosyalarına gereksinim vardır.Bu dosyalardan başka yardım
almak için turbo.tpu,grafik komutlarını kullanmak için graph.tpu, *.bgi,*.chr dosyalarına
ihtiyaç vardır.
Turbo Pascal' da program içerisinde kullanılan değiken tipleri kullanılmalıdır.Kullanılan
tipler:
Tam sayı tipleri (integer), gerçek (real) sayı tipi, String sayı tipi
,Karater sayi tipi (Char) Boolean tipi, Dizi (Array) tipi, Kayıt (Record) tipleri,
set tipler ve Dosya tipleri. iki sayının toplamını veren bir örnek yapalım. Örnek:
uses crt;
var
a,b,toplam : integer ;
Begin
clrscr;
Write('Bir sayı Giriniz: ');
Readln(a);
Write('İkinci sayıyı Giriniz: ');
Readln(b);
toplam:=a+b;
writeln("toplam=",toplam);
readln(toplam);
end.
Programın başındaki uses crt; ifadesi uses kütüphanesini belirtiyor,
var ile program başlıyor ve değikenlerimizi tanımlayalım a,b:integer; begin başla
clrscr; komutuyla ekranı temizleyelim.Write komutuyla sayı girmemizi sağlayalım.readln
girilen sayıyı okutalım. toplam:=a+b; ifadesi ile girilen a ve b sayılarının toplamını
toplam adlı değişkene atalım writeln("toplam=",toplam); ifadesi ile toplam değerini
ekrana yazdıralım ve end. ifadesi ile programın bitirelim...Aşağıda IF THEN ELSE
,CASE OF, FOR-DO komutları hakkında bilgi örnekler verilmiştir.
IF THEN ELSE
Verilen şartın doğru veya yanlış olması durumun istenen işi
yapmak ve buna göre program akışını değiştirmek için kullanılır. Yazılımı:
IF Şart THEN komutlar Else komutlar
Girilen sayının pozitif yada negatif olduğunu bulan bir program yapalım.Örnek
uses crt;
a:integer;
begin
clrscr;
Write('sayi giriniz:'); Readln(a);
if a>0 then Writeln('pozitif')
else
if a<0 then Writeln('negatif')
else
if a=0 then Writeln('Sıfır');
Readln;
end.
Bu örnekte if a>0 then Writeln('pozitif') eğer a sayısı 0'
dan büyükse pozitif yazdır.Değilse if a<0 then Writeln('negatif') eğer a sayısı
0' dan küçükse negatif yazdır.Değilse if a=0 then Writeln('Sıfır'); Girilen sayı
0 ise sıfır yazdır demek istedik....
CASE OF
Verilen ifadenin aldığı değere göre program akışını değiştirmek
veya isnen işlemleri yapması için kullanılır. Yazılımı:
CASE ifade OF
sabit1: komutlar
sabit2: komutlar
:
:
sabitn:komutlar
1 ile 5 arasında girilen sayıların yazı karşılığını veren programı yapalım. Örnek:
uses crt;
a:integer;
Begin
Clrscr;
Write('Bir sayı girin (1-5)....:'); Readln(a);
Case a of
1: Writeln(' Bir');
2: Writeln(' İki');
3: Writeln(' Üç');
4: Writeln(' Dört');
5: Writeln(' Beş');
Else Writeln('girilen sayi 1-5 arasında değil.');
End;
Readln
End.
FOR -DO
Belirtilen işlem veya işlemleri istenilen sayıda tekrarlamak
istenen iki aralıkta değerler elde etmel için kullanılır. Yazılımı:
For değişken:=başlangıç değeri To bitiş değeri Do
Ekrana 34 defa İSTANBUL yazısını yazan programı yapalım.Örnek:
uses crt;
var
ad:Byte;
Begin
Clrscr;
For ad:=1 to 34 do writeln('İSTANBUL');
Readln;
end.
For ile döngü başladık ad adlı değişkenimize başlangıç değeri
olan 1 yazılmıştır. to 37 ifadesiylede bitiş değerimizi belirtik ve writeln('İSTANBUL');
ifadesiylede ne yapacağını yazdık......
<< Geri
|