Tablica jako przykład typu strukturalnego
Tablica jest złożoną strukturą danych, składającą się
z określonej liczby elementów tego samego typu.
Może to być typ prosty, łańcuchowy lub strukturalny.
Deklaracja tablicy w języku Pascal ma postać:
var zmienna:array [1..n] of typ elementów tablicy;
gdzie zmienna - oznacza nazwę zmiennej tablicowej
n -rozmiar tablicy, przy czym liczba elementów tablicy
musi być wcześniej określona (np. const n=10;)
var A:array [1..4] of byte;
const n=4;
var B:array [1..n] of real;
Do elementów tablicy odwołujemy się przez zmienną
indeksowaną, np. zmienna [i], zmienna[1], zmienna[2],
...
Przykłady deklaracji tablic
Deklaracja tablicy składającej się z 50 liczb rzeczywistych:
const n=50;
var a:array [-5..n] of real;
Do elementów tablicy odwołujemy się
przez zmienne a[1], a[2],...
Deklaracja tablicy składającej się z 20 znaków:
var zn:array [1..20] of char;
Do elementów tablicy odwołujemy się przez zn[1], zn[2],...
inne przykłady
var T:array ['a'..'z'] of integer;
do elementów tablicy odwołujemy się przez: T['a'], T['b'],...
Tablica dwuwymiarowa
var T:array [1..10,1..15] of integer;
Z ilu elementów składa się ta tablica? .....
Odwołanie do elementów tablicy T[i,j],T[1,1],T[2,3]
Aby rozpocząć działania na elementach tablicy,
trzeba wczytać ich wartości do zmiennych indeksowanych.
program suma_elementow_tablicy;
uses crt;
var T1:array [1..10] od integer;
i:byte;
begin
clrscr;
for i:=1 to 10 do readln(T[i]);
for i:=1 to 10 do su:=su+T[i];
writeln('su = ',su);
readkey;
end.
program suma_tablic;
uses crt;
var T1:array [1..5] of integer;
T2:array [1..5] of integer;
T3:array [1..5] of integer;
i:integer;
begin
clrscr;
for i:=1 to 5 do read(T1[i]);
for i:=1 to 5 do read(T2[i]);
writeln;
for i:=1 to 5 do write(T1[i],' ');
writeln;
for i:=1 to 5 do write(T2[i],' ');
writeln;
for i:=1 to 5 do T3[i]:=T1[i]+T2[i];
for i:=1 to 5 do write(T3[i],' ');
readkey;
end.