pascal programlama Arşivi
Pascal – Ekran Komutları
- Clrscr ve Gotoxy Komutları
Ekran komutları ekrandaki görüntü tasarımı için kullanılan komutlardır. Bu komutların program içinde kullanılabilmesi için, program başlığı satırından sonra USES komutunda CRT unit isminin yazılması gereklidir. Aksi halde, ekran komutlarıyla ilgili yazılan komutlar Pascal derleyicisi tarafından tanınmayacaktır.
Clrscr : "Clrscr" CRT üniti içinde yer alan bir alt programdır. Ekranda daha önce yazılı olan ifadeleri silerek ekranın temizlenmesi amacıyla kullanılır.
GotoXY : Kursörü ekranın istenilen sütun ve satırına taşımak için kullanılır. Kullanımı;
GotoXy(Sütun,Satır); şeklindedir. Normal bir ekran üzerinde 80 sütun ve 25 satır vardır.
Örnek 1:
uses crt;
var
j:word;
begin clrscr;
for j:=1 to 20 do
begin
gotoxy(j,j);write('Gazi Üniversitesi');
gotoxy(50-j,j);write('Gazi Üniversitesi');
end;end.
- Window Komutu
Window : Ekranda pencere oluşturmak için kullanılan bir komuttur. Kullanımı;
Window(X1,Y1, X 2,Y2);
X1 
encerenin sol sütun numarası (1-80)
Y1 encerenin sol satır numarası (1-25)
X2 encerenin sağ sütun numarası (1-80)
Y2 encerenin sağ satır numarası (1-25)
Delay : Programın belirtilen süre kadar bekletilmesini sağlar. Delay (1000) komutu, programın 1 sn bekletilmesini sağlamaktadır. Bu komut sadece Turbo/Borland Pascalda kullanılabilir.
Örnek 4:
uses crt;
begin
window(20,5,60,20);
repeat
delay(5); write('G.Ü.E.S.E.F');
untıl keypressed;
end.
- Zemine Renk Verme
Textbackground : Ekrana yazdırılacak yazının zemin rengini ayarlamak için kullanılır. Bu komut sadece Turbo/Borland Pascalda kullanılabilir. Kullanımı; Textbackground(renk kodu);
Örnek 6:
uses crt;
begin
textcolor(green);textbackground(black);
writeln('merhaba');
textcolor(lightred+blink);textbackground(lightgray);
writeln('günaydın!');
textcolor(14); textbackground(blue);
writeln('nasılsın');
normvideo;
end.
Sound/Nosound : Sound, verilen frekansta ses üretmek için kullanılır. Nosound, sound ile üretilen sesi ortadan kaldırmak için kullanılır.
Örnek 7:
uses crt;
begin
sound(220);
delay(200);
nosound;
end.
Pascal – Giriş – Çıkış Komutları
- Read - Readln Deyimleri
Yazım İçin Format Belirleme :Writeln deyimi ile yapılan bilgi çıkışlarını düzenlemek için yazım formatları kullanılır. Yazdırılmak istenilen değerin tipine bağlı olarak iki farklı yazım formatı kullanılır.
1. Yazım Formatı (M:n) :Bu yazım formatına göre yazdırılmak istenilen M değeri n karakterlik alanda sağa dayalı olarak yazılır. M değerini oluşturan dijit veya karakterin uzunluğu n sayısından küçük ise, aradaki fark kadar sol tarafta boşluk bırakılır. M değerinin uzunluğu n sayısına eşit veya büyük ise yazdırma işlemi format belirtilmemiş gibi gerçekleştirilir.
Örnek 1:
uses crt;
const
i:integer=567;
b:boolean=true;
c:char='b';
h:string[10]='nasılsınız';
begin
writeln('123456789');writeln;
writeln(i:9);writeln(b:9);
writeln(c:9);writeln(h:9);
writeln(i:2);writeln(h:5);
end.
- Write - Writeln Deyimleri
Write-Writeln :
Pascal programlama dilinde yazma işlemi için WRITE ve WRITELN komutları kullanılmaktadır. Bu komutların genel kullanım yapısı şu şekildedir;
Write(A1,A2,A3,...,An)
Writeln(A1,A2,A3,...,An)
İki kullanım şekli arasındaki fark, Read ile Readln arasındaki fark gibidir.
Var
s,a,n:integer;
begin Programın çalıştırılmasıyla elde edilen sonuç; 395 olacaktır.
s:=3;a:=9;n:=5;
Write(s); Write(a); Write(n);
end.
3
Aynı değişkenleri Writeln ile yazdırdığımızda; 9
5 olur.
- Formatlı Yazdırma
Yazım İçin Format Belirleme :Writeln deyimi ile yapılan bilgi çıkışlarını düzenlemek için yazım formatları kullanılır. Yazdırılmak istenilen değerin tipine bağlı olarak iki farklı yazım formatı kullanılır.
1. Yazım Formatı (M:n) :Bu yazım formatına göre yazdırılmak istenilen M değeri n karakterlik alanda sağa dayalı olarak yazılır. M değerini oluşturan dijit veya karakterin uzunluğu n sayısından küçük ise, aradaki fark kadar sol tarafta boşluk bırakılır. M değerinin uzunluğu n sayısına eşit veya büyük ise yazdırma işlemi format belirtilmemiş gibi gerçekleştirilir.
Örnek 1:
uses crt;
const
i:integer=567;
b:boolean=true;
c:char='b';
h:string[10]='nasılsınız';
begin
writeln('123456789');writeln;
writeln(i:9);writeln(b:9);
writeln(c:9);writeln(h:9);
writeln(i:2);writeln(h:5);
end.
