Pascal Programlama Dili

bu şekilde yapılır. Bir örnekle açıklayalım:

Program deneme;
uses wincrt;
Type
ogrenci_tipi=Record
isim:string[40];
not1, not2, not3:byte; orta:real;
end;
Var
ogrenci:ogrenci_tipi;
Begin
clrscr;
writeln('Isminizi giriniz.');
readln(ogrenci.isim);
writeln('1. Sinav notunuzu griniz');
readln(ogrenci.not1);
writeln('2. Sinav notunuzu giriniz');
readln(ogrenci.not2);
writeln('3. Sinav notunuzu giriniz');
readln(ogrenci.not3);
clrscr;
ogrenci.orta:=(ogrenci.not1+ogrenci.not2+ogrenci.not3)/3;
writeln('Ortalamaniz: ', ogrenci.orta:6:2);
readln;
end.

Set(Küme) Tipleri

Aynı tipteki karakterlerle kümeler oluşturabiliriz. Mesela 0 ile 9 rakamlarından oluşan bir kümeye A'yı dahil edemeyiz çünkü "A" bir harftir. Kümenin elemanları birbirinden virgülle ayrılır. Harflerde ise harfleri apostrofla ayırıp ayrıca virgül koymalıyız. Örnek
[0,1,2,3,4,5,6,7,8,9]
['A','B','C'] gibi... Eğer birbirini takip eden sıralı diziler ise virgül koymadan arasına iki nokta ".." koyarak da kullanabiliriz.
[0..9]
['A'..'Z','a'..'z']Yukarıdaki örneklerle bu örnekler arasında hiçbir fark yoktur. Kümeler böyle bunları type blogunda şöyle tanımlarız:
Type
harfler=Set of ['A'..'Z','a'..'z'];
rakamlar=Set of [0..9];
cevaplar=Set of ['EVET','HAYIR'];

Bir örnek yapalım anlamadığınız yerler olabilir;
Program Kumeler;
Uses wincrt;
Label
ilk;
var
tus:char;
Begin
ilk:
tus:=readkey;
Clrscr;
if tus in ['0'..'9'] then begin
writeln('Bastiginiz Rakam: ',tus);
goto ilk;
end else begin
clrscr;
writeln('Bastiginiz tus: ',tus ,'. Bu bir rakam degil. ');
end;
readln;
End.

Gotoxy

Bu komut yazacağımız yazıyı ekranın istediğimiz yerine yazdırmaya yarar. x kolon sayısı y ise satır sayısıdır. Genellikle 80 kolon ve 24 satır vardır. Bu komutu ona göre kullanmalıyız yoksa istediiğimiz görüntüye ulaşamayız. Kullanımı kolaydır.
Gotoxy(30,15);
writeln('Yazi');
şeklindedir.

Program gotoxy;
uses wincrt;
begin
gotoxy(25,14);
writeln('www.tahribat.com');
readln;
end.

If...then...elseYazımızın başında dediğimiz gibi bir şarta bağlı olarak yaptıracağımız işler bu komutlarla yapılıyor işte. Kullanımı da gayet basittir.
If şartlar then
begin
yapılacaklar
end else
begin
şartlar yanlışsa yapılacaklar
end;
end.

Bir örnekle gösterelim;
Program yas_programi;
uses wincrt;
var
yas:integer;
begin
clrscr;
writeln('Yasinizi giriniz:');
readln(yas);
clrscr;
If yas>25 then{begin ve end'i şartın sonucunda birden fazla satırlı işlem yaptırmak istiyorsak kulalnacağız. gerek yok ve önemli olan elseden önceki satırın sonunda ";" kullanmamamızdır.}
writeln('Buyukmussun')
else
writeln('Kucukmussun');
end.