Darmowe Forum

Tablica jest pewnÂą strukturÂą, ktĂłrÂą moÂżna znaleŸÌ praktycznie w kaÂżdym jĂŞzyku programowania. TablicĂŞ moÂżna sobie wyobraziĂŚ jako szafĂŞ z szufladami. Do kaÂżdej szuflady moÂżna wÂłoÂżyĂŚ okreÂślony typ zmiennej. Aby moÂżna byÂło dotrzeĂŚ do kaÂżdej  danej w szufladzie, szuflady sÂą ponumerowane. Numer szuflady pozwala jÂą Âłatwo odszukaĂŚ. KaÂżda tablica musi posiadaĂŚ nazwĂŞ i liczbĂŞ komĂłrek (czyli szuflad).

W przypadku Turbo Pascala deklaracja tablicy umieszczona jest w miejscu deklarowania zmiennych i wyglÂąda nastĂŞpujÂąco:

var  tabliczka: array[1..10] of integer;
nazwÂą tablicy jest tabliczka ktĂłra posiada rozmiar 10 i moÂżna w niej umieÂściĂŚ liczby typu integer.

Tablicê przedstawion¹ powy¿ej nazywamy tablic¹ jednowymiarow¹. Jest to tablica z jednym rzêdem szuflad. Je¿eli chcemy wpisaÌ wartoœÌ do tablicy nale¿y wpisaÌ np.:
tabliczka[4]:=x;
to do komĂłrki (szuflady) o numerze 4 tablicy o nazwie tabliczka zostanie wpisana liczba x;
JeÂżeli musimy przechowaĂŚ wiĂŞcej danych tworzymy tablice dwu i wiĂŞcej wymiarowych. PrzykÂład deklaracji tablicy dwu wymiarowej przedstawiono poniÂżej:

var  tabliczka: array[1..10] [1..10] of integer;

program storm;
uses crt,dos;
var
tab: array[1..5] of integer;

begin

 tab[1]:=5;
end.


program storm;
uses crt,dos;
var z:integer;
tab: array[1..5] of integer;

begin
 z:=0;
repeat
z:=z+1;
tab[z]:=z;

until z=5

end.


program storm;
uses crt,dos;
var z:integer;
tab: array[1..5] of integer;
begin
 z:=0;clrscr;
repeat
z:=z+1;
tab[z]:=z;
until z=5;
z:=0;
 repeat
z:=z+1;
writeln(tab[z]);
until z=5;
readkey;
end.

Zadanie 1. ProszĂŞ napisaĂŚ program ktĂłry do tablicy wpisze podane z klawiatury 5 imion i nastĂŞpnie wyÂświetli je na ekranie.

program tabl;
uses crt,dos;
var z: array[1..5] of string;
v:integer;
begin clrscr;
for v:=1 to 5 do
begin
write('Podaj ',v,' imie: ');readln(z[v]);
end;
readkey;
for v:=1 to 5 do
begin
writeln('Podales ',v,' imie: ',z[v]);
end;
readln;
end.

Zadanie 2. NapisaĂŚ program ktĂłry do tablicy jednowymiarowej A[1..10] wpisze losowe liczby Z ZAKRESU 0..100. NastĂŞpnie wyÂświetli je na ekranie.

program m1;
uses crt,dos;
var
a: array[1..10] of integer;
c,y:integer;
begin
randomize; clrscr;
for c:=1 to 10 do
begin
y:=random(100);
a[c]:=y;
end;
y:=0;
repeat
y:=y+1;
write(a[y]:3);
until y=10;
readkey;
end.

Zadanie 3. Do tablicy 8 elementowej wpisaĂŚ kolejne liczby rozpoczynajÂąc od liczby 3. NastĂŞpnie wyÂświetliĂŚ je na ekranie.

program rupert;
uses crt,dos;
var z,y:integer;
rr: array[1..8] of integer;
begin
  clrscr;
  for z:=1 to 8 do
  begin rr[z]:=z+2;end;
   for z:=1 to 8 do
  begin write(rr[z]:3);end;
   readkey;
end.

Zadanie 4. ProszĂŞ do tablicy dwuwymiarowej A[10,10] wpisaĂŚ losowe liczby z zakresu od 1 do 9  i wyÂświetliĂŚ na ekranie w 10 wierszach. Liczby podzielne przez 3 majÂą byĂŚ wyÂświetlane w kolorze ¿ó³tym pozostaÂłe liczby w kolorze biaÂłym.

program emigrant;
uses crt,dos;
var v: array [1..10,1..10] of integer;
a,b,c:integer;
begin
clrscr; randomize;
for a:=1 to 10 do
begin
for b:=1 to 10 do
v[a,b]:=(1+random(9));
end;

for a:=1 to 10 do
begin
for b:=1 to 10 do
begin
if ((v[a,b] mod 3)=0) then textcolor(yellow) else textcolor(white);
write(v[a,b]:3);        end;
writeln; writeln;
end;
readkey;
end.

Zadanie 5 . ProszĂŞ do tablicy 3x3 wpisaĂŚ litery a tak aby wyÂświetlenie tablicy powodowaÂło umieszczenie liter a tworzÂących znak"+".

program syminus;
uses crt, dos;
var n: array[1..3,1..3] of char;
c:char;
a,b:integer;
begin
clrscr;
for a:=1 to 3 do
for b:=1 to 3 do n[a,b]:=' ';

n[1,2]:='a'; n[2,1]:='a';n[2,2]:='a';n[2,3]:='a';
n[3,2]:='a';

for a:=1 to 3 do
begin
 writeln;
      for b:=1 to 3 do
      write(n[a,b]) ;
      end;

  readkey;

------------------------ nowa wersja --------------------------------------------------
wersja z krzyÂżykiem na Âśrodku ekranu

program syminus;
uses crt, dos;
var n: array[1..3,1..3] of char;
c:char;
a,b:integer;
begin
clrscr;
for a:=1 to 3 do
for b:=1 to 3 do n[a,b]:=' ';
 c:=chr(178);
n[1,2]:=c; n[2,1]:=c;n[2,2]:=c;n[2,3]:=c;
n[3,2]:=c;

for a:=1 to 3 do
begin
 writeln;
      for b:=1 to 3 do begin
     gotoxy(30+b,10+a); write(n[a,b]) ; end;
      end;

  readkey;

end.