Özel Veri Tipleri: Sıralı Veri Tipi

**UnİQuE** · 06-17-2008, 05:52 PM

3- SIRALI VERİ TİPİ

Pascalda birbiri ardına gelen değerler

sayılar ve ingiliz klavyesindeki harfler dışında programcının sıralı olarak tanımladığı değişken tipidir.

Genel yazılım bicimi;
Type
sıralı tıp ismi = (veri listesi);

Beyaz eşya üreten fırmaların isimleri ile ilgili işlemler yapılmak istenildiğinde bu fırmaların isimlerini bir sıralı veri tipi olarak tanımlayabiliriz.

Tanımlanan bu sıralı veri tipi program içerisinde amaca uygun olarak kullanılabilir.

Type
firmalar = (Arcelik

Beko

Aeg

Profilo

Kenwood

Bosch

Siemens);
Var
Firma : firmalar;
Sıralı veri tipi

o tipin alabileceği tüm değerleri gösteren bir liste ile tanımlanır. Listedeki her bir değer diğeriyle virgülle ayrılır.

Yukarıdaki tanımlamada firma değişkenine firmalar listesinden herhangi bir değer atanabilir.
Mesela firma := Beko; Burada Beko değeri bir string değildir. Sıralı tanımlanmış bir veri listesinin 1. elemanıdır. Arcelik 0. eleman Siemens 6. elemandır.Sıralı tip olarak tanımlanan değişkenler program içerisinde aşağidaki gibi kullanılabilir.

for firma := Arcelik to Profilo do veya

if firma = Beko then writeln(‘Beko firmasının yıllık toplam satışları’);

Örnek 2: Yukarıdaki tanımlamalara uygun olarak firmaların 7 bölgede yapmış oldukları satiş mıktarları aşağıdaki gibi girilebilir.

uses crt;
Type
firmalar=(Arcelik

Beko

Aeg

Profilo

Kenwood

Bosch

S iemens);
var
firma : firmalar;
i

j

sira : integer;
bolge :array [0..6

1..7] of integer;
Begin
clrscr;
for firma:=Arcelik to Siemens do
for j:=1 to 7 do
begin
case ord(firma) of
0: writeln('Arcelik Firmasinin '

j

'. Bölgedeki satiş miktari');
1: writeln('Beko Firmasinin '

j

'. Bölgedeki satiş miktari');
2:writeln('Aeg Firmasinin '

j

'. Bölgedeki satiş miktari');
3:writeln('Profilo Firmasinin '

j

'. Bölgedeki satiş miktari');
4:writeln('Kenwood Firmasinin '

j

'. Bölgedeki satiş miktari');
5:writeln('Bosch Firmasinin '

j

'. Bölgedeki satiş miktari');
6:writeln('Siemens Firmasinin '

j

'. Bölgedeki satiş miktari');
end;
readln(bolge[ord(firma)

j]);
end;
readln;
end.

06-17-2008, 05:52 PM	#1 (permalink)
UnİQuE Kurmay Albay	Özel Veri Tipleri: Sıralı Veri Tipi 3- SIRALI VERİ TİPİ Pascalda birbiri ardına gelen değerler sayılar ve ingiliz klavyesindeki harfler dışında programcının sıralı olarak tanımladığı değişken tipidir. Genel yazılım bicimi; Type sıralı tıp ismi = (veri listesi); Beyaz eşya üreten fırmaların isimleri ile ilgili işlemler yapılmak istenildiğinde bu fırmaların isimlerini bir sıralı veri tipi olarak tanımlayabiliriz. Tanımlanan bu sıralı veri tipi program içerisinde amaca uygun olarak kullanılabilir. Type firmalar = (Arcelik Beko Aeg Profilo Kenwood Bosch Siemens); Var Firma : firmalar; Sıralı veri tipi o tipin alabileceği tüm değerleri gösteren bir liste ile tanımlanır. Listedeki her bir değer diğeriyle virgülle ayrılır. Yukarıdaki tanımlamada firma değişkenine firmalar listesinden herhangi bir değer atanabilir. Mesela firma := Beko; Burada Beko değeri bir string değildir. Sıralı tanımlanmış bir veri listesinin 1. elemanıdır. Arcelik 0. eleman Siemens 6. elemandır.Sıralı tip olarak tanımlanan değişkenler program içerisinde aşağidaki gibi kullanılabilir. for firma := Arcelik to Profilo do veya if firma = Beko then writeln(‘Beko firmasının yıllık toplam satışları’); Örnek 2: Yukarıdaki tanımlamalara uygun olarak firmaların 7 bölgede yapmış oldukları satiş mıktarları aşağıdaki gibi girilebilir. uses crt; Type firmalar=(ArcelikBekoAegProfiloKenwoodBoschS iemens); var firma : firmalar; ijsira : integer; bolge :array [0..61..7] of integer; Begin clrscr; for firma:=Arcelik to Siemens do for j:=1 to 7 do begin case ord(firma) of 0: writeln('Arcelik Firmasinin 'j'. Bölgedeki satiş miktari'); 1: writeln('Beko Firmasinin 'j'. Bölgedeki satiş miktari'); 2:writeln('Aeg Firmasinin 'j'. Bölgedeki satiş miktari'); 3:writeln('Profilo Firmasinin 'j'. Bölgedeki satiş miktari'); 4:writeln('Kenwood Firmasinin 'j'. Bölgedeki satiş miktari'); 5:writeln('Bosch Firmasinin 'j'. Bölgedeki satiş miktari'); 6:writeln('Siemens Firmasinin 'j'. Bölgedeki satiş miktari'); end; readln(bolge[ord(firma)j]); end; readln; end.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	UslanmaM	Cevaplar	Son Mesaj
Özel Veri Tipleri: Kayıt Veri Tipi	UnİQuE	Pascal	0	06-17-2008 06:01 PM
Özel Veri Tipleri: Sınırlı Veri Tipi	UnİQuE	Pascal	0	06-17-2008 05:57 PM
Özel Veri Tipleri: Küme Veri Tipi	UnİQuE	Pascal	0	06-17-2008 05:42 PM
Özel Veri Tipleri: Diziler	UnİQuE	Pascal	0	06-17-2008 05:40 PM
Özel Veri Tipleri	UnİQuE	Pascal	0	06-17-2008 05:39 PM

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)