Tek Boyutlu Diziler

Konu: Tek Boyutlu Diziler Salı Ağus. 05, 2008 10:25 pm

Tek Boyutlu Diziler

Tek boyutlu diziler aşağıda görülen genel formda ifade edilebilirler. Değişken = ARRAY [Başlangıç değeri..Bitiş Değeri] OF tip tanımı

Örnek 2: Aşağıda verilen program tek boyutlu bir dizinin elamanlarını sondan başa doğru tersine çevirmektedir.

uses crt;

type

range=1..10;

dizi=array[range] of integer;

var

vektor,tersvektor:dizi;

i:integer;

begin

for i:=1 to 10 do begin

write('vektorun ',i,'. elemanını giriniz =');readln(vektor[i]);end;

for i:=1 to 10 do

tersvektor[10-i+1]:=vektor[i];

{veya for i:=10 downto 1 do

tersvektor[i]:=vektor[10-i+1]; }

for i:=1 to 10 do

writeln(tersvektor[i]);

end.