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.

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. Prosty matrix na tablicy. W programie do tablicy dopisywany jest pierwszy wiersz. Tablica jest nastĂŞpnie wyÂświetlana cyklicznie. powoduje to zÂłudzenie przesuwania siĂŞ na ekranie wierszy do doÂłu. Wprowadzenie spacji umoÂżliwia przerwanie ciÂągu znakĂłw.

program misi;
uses crt,dos;
var x,y,z:byte;
tab3:array[1..39,1..20] of byte;
tab4:array[1..39,1..20] of byte;
tab5:array[1..39,1..20] of byte;
tab6:array[1..39,1..20] of byte;
begin
 randomize; clrscr;

 for y:=1 to 20 do begin
     for x:=1 to 39 do begin
                         tab3[x,y]:=48+random(11);end;
     end;

for y:=1 to 20 do begin  writeln;
     for x:=1 to 39 do begin tab5[x,y]:=tab3[x,y];
if tab3[x,y]=58 then write( chr(32):2) else write( chr(tab3[x,y]):2);
end;end;


  repeat delay(100);clrscr;
for y:=1 to 20 do begin
     for x:=1 to 39 do begin
     if y=1 then begin tab4[x,y]:=48+random(12);tab6[x,y]:=random(10);end
     else begin tab4[x,y]:=tab3[x,y-1];tab6[x,y]:=tab5[x,y-1];end;
     end;
     end;

for y:=1 to 20 do begin
     for x:=1 to 39 do begin tab3[x,y]:=tab4[x,y];
                   gotoxy(2*x,y);textcolor(green);

if (tab3[x,y]=58) or(tab3[x,y]=59)  then write( chr(32)) else write( chr(tab3[x,y]));
end;end;
 until keypressed;
  readkey;
end.

Zadanie 3. ProszĂŞ napisaĂŚ program w ktĂłrym zostanÂą zadeklarowane dwie tablice 10x10. Do kaÂżdej tablicy naleÂży wpisaĂŚ same 0. NastĂŞpnie wyÂświetliĂŚ je na ekranie.


----------------------------------Nowe -----------------------------------------
program tab_3;
uses crt,dos;
var
tab1: array[1..10,1..10] of byte;
tab2: array[1..10,1..10] of byte;
x,y: byte;
begin
clrscr;
for x:=1 to 10 do begin
for y:=1 to 10 do begin
tab1[x,y]:=0;
tab2[x,y]:=0; end;end;

gotoxy(5,5); write('Tablica 1');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab1[x,y]) end;end;

gotoxy(20,5); write('Tablica 2');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(20+x,5+y);
write(tab2[x,y]) end;end;


readkey;
end.

Zadanie 4. UtworzyĂŚ dwie tablice 10x10. Do kaÂżdej z tablic wpisaĂŚ liczby 0. WyÂświetlaĂŚ naprzemiennie jednÂą tablicĂŞ w kolorze czerwonym drugÂą w biaÂłym.

program tab_3;
uses crt,dos;
var
tab1: array[1..10,1..10] of byte;
tab2: array[1..10,1..10] of byte;
x,y: byte;
begin
clrscr;
for x:=1 to 10 do begin
for y:=1 to 10 do begin
tab1[x,y]:=0;
tab2[x,y]:=0; end;end;

repeat clrscr; textcolor(white);
gotoxy(5,5); write('Tablica 1');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab1[x,y]) end;end; delay(200);
clrscr; textcolor(red);
gotoxy(20,5); write('Tablica 2');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(20+x,5+y);
write(tab2[x,y]) end;end; delay(200);
until keypressed;

readkey;
end.

Zadanie 5. Dwie tabelki z poprzedniego zadania, sÂą caÂły czas widoczne tylko zmieniajÂą siĂŞ naprzemiennie ich kolory.

program tab_5;
uses crt,dos;
var
tab1: array[1..10,1..10] of byte;
tab2: array[1..10,1..10] of byte;
x,y,a: byte;
begin
clrscr;
for x:=1 to 10 do begin
for y:=1 to 10 do begin
tab1[x,y]:=0;
tab2[x,y]:=0; end;end;
a:=0;
repeat
 if a=0 then textcolor(white) else textcolor(red) ;
gotoxy(5,5); write('Tablica 1');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab1[x,y]) end;end;
if a=0 then textcolor(red) else textcolor(white) ;
gotoxy(20,5); write('Tablica 2');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(20+x,5+y);
write(tab2[x,y]) end;end; delay(200); a:=(a+1)mod 2;
until keypressed;

readkey;
end.
--------------------------------NOWE --------------------------------
program tab_3;
uses crt,dos;
var
tab1: array[1..10,1..10] of byte;
tab2: array[1..10,1..10] of byte;
x,y,a: byte;
begin
clrscr;
for x:=1 to 10 do begin
for y:=1 to 10 do begin
tab1[x,y]:=0;
tab2[x,y]:=0; end;end;
a:=0;
repeat  if a=0 then textcolor(white) else textcolor(red) ;
gotoxy(5,5); write('Tablica 1');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab1[x,y]) end;end;   delay(100);
if a=0 then textcolor(red) else textcolor(white) ;
gotoxy(5,5); write('Tablica 2');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab2[x,y]) end;end; delay(100); a:=(a+1)mod 2;
until keypressed;

readkey;
end.

Zadanie 6. Program z zadania 5 przerobiĂŚ tak, aby do tablic wpisywany byÂł znak o kodzie ASCII wynoszÂącym 178.

program tab_6;
uses crt,dos;
var
tab1: array[1..10,1..10] of char;
tab2: array[1..10,1..10] of char;
x,y,a: byte;
begin
clrscr;
for x:=1 to 10 do begin
for y:=1 to 10 do begin
tab1[x,y]:=chr(178);
tab2[x,y]:=chr(178); end;end;
a:=0;
repeat  if a=0 then textcolor(white) else textcolor(red) ;
gotoxy(5,5); write('Tablica 1');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab1[x,y]) end;end;   delay(100);
if a=0 then textcolor(red) else textcolor(white) ;
gotoxy(5,5); write('Tablica 2');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab2[x,y]) end;end; delay(100); a:=(a+1)mod 2;
until keypressed;

readkey;
end.

Zadanie 7. Program wykorzystuj¹cy tablice jako macierz znakow¹. Napisany program wyœwietla du¿¹ cyfrê 2.

program tab_6;
uses crt,dos;
var
tab1: array[1..10,1..10] of char;
tab2: array[1..10,1..10] of char;
x,y,a: byte;
begin
clrscr;
for x:=1 to 10 do begin
for y:=1 to 10 do begin
tab1[x,y]:=' ';
tab2[x,y]:=' '; end;end;
tab1[3,4]:=chr(178);tab1[4,3]:=chr(178);tab1[5,3]:=chr(178);tab1[6,3]:=chr(178);
tab1[7,4]:=chr(178);tab1[7,5]:=chr(178);tab1[7,6]:=chr(178);tab1[6,7]:=chr(178);
tab1[5,8]:=chr(178);tab1[4,9]:=chr(178);tab1[3,10]:=chr(178);tab1[4,10]:=chr(178);
tab1[4,10]:=chr(178);tab1[5,10]:=chr(178);tab1[6,10]:=chr(178);tab1[7,10]:=chr(178);

a:=0;
repeat  textcolor(white);
gotoxy(5,5); write('Tablica 1');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab1[x,y]) end;end;   delay(300);

gotoxy(5,5); write('Tablica 2');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab2[x,y]) end;end; delay(300);
until keypressed;

readkey;
end.

Zadanie 8. WyÂświetlane sÂą naprzemiennie duÂże cyfry 1 i 2.

program tab_6_2;
uses crt,dos;
var
tab1: array[1..10,1..10] of char;
tab2: array[1..10,1..10] of char;
x,y,a: byte;
begin
clrscr;
for x:=1 to 10 do begin
for y:=1 to 10 do begin
tab1[x,y]:=' ';
tab2[x,y]:=' '; end;end;
tab1[3,4]:=chr(178);tab1[4,3]:=chr(178);tab1[5,3]:=chr(178);tab1[6,3]:=chr(178);
tab1[7,4]:=chr(178);tab1[7,5]:=chr(178);tab1[7,6]:=chr(178);tab1[6,7]:=chr(178);
tab1[5,8]:=chr(178);tab1[4,9]:=chr(178);tab1[3,10]:=chr(178);tab1[4,10]:=chr(178);
tab1[4,10]:=chr(178);tab1[5,10]:=chr(178);tab1[6,10]:=chr(178);tab1[7,10]:=chr(178);

tab2[3,6]:=chr(178);tab2[4,5]:=chr(178);tab2[5,4]:=chr(178);tab2[6,3]:=chr(178);
tab2[6,4]:=chr(178);tab2[6,5]:=chr(178);tab2[6,6]:=chr(178);tab2[6,7]:=chr(178);
tab2[6,8]:=chr(178);tab2[6,9]:=chr(178);tab2[6,10]:=chr(178);
tab2[7,4]:=chr(178);tab2[7,5]:=chr(178);tab2[7,6]:=chr(178);tab2[7,7]:=chr(178);
tab2[7,8]:=chr(178);tab2[7,9]:=chr(178);tab2[7,10]:=chr(178);tab2[7,3]:=chr(178);
a:=0;
repeat  textcolor(white);
gotoxy(5,5); write('Tablica 1');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab1[x,y]) end;end;   delay(500);

gotoxy(5,5); write('Tablica 2');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab2[x,y]) end;end; delay(500);
until keypressed;

readkey;
end.

Zadanie 9. Modyfikacja liczby 2.

program tab_6;
uses crt,dos;
var
tab1: array[1..10,1..10] of char;
tab2: array[1..10,1..10] of char;
x,y,a: byte;
begin
clrscr;
for x:=1 to 10 do begin
for y:=1 to 10 do begin
tab1[x,y]:=' ';
tab2[x,y]:=' '; end;end;
tab1[3,4]:=chr(178);tab1[4,3]:=chr(178);tab1[5,3]:=chr(178);tab1[6,3]:=chr(178);
tab1[7,4]:=chr(178);tab1[7,5]:=chr(178);tab1[7,6]:=chr(178);tab1[6,7]:=chr(178);
tab1[5,8]:=chr(178);tab1[4,9]:=chr(178);tab1[3,10]:=chr(178);tab1[4,10]:=chr(178);
tab1[4,10]:=chr(178);tab1[5,10]:=chr(178);tab1[6,10]:=chr(178);tab1[7,10]:=chr(178);

tab2[3,6]:=chr(178);tab2[4,5]:=chr(178);tab2[5,4]:=chr(178);tab2[6,3]:=chr(178);
tab2[6,4]:=chr(178);tab2[6,5]:=chr(178);tab2[6,6]:=chr(178);tab2[6,7]:=chr(178);
tab2[6,8]:=chr(178);tab2[6,9]:=chr(178);tab2[6,10]:=chr(178);
tab2[7,4]:=chr(178);tab2[7,5]:=chr(178);tab2[7,6]:=chr(178);tab2[7,7]:=chr(178);
tab2[7,8]:=chr(178);tab2[7,9]:=chr(178);tab2[7,10]:=chr(178);tab2[7,3]:=chr(178);
a:=0;
repeat  textcolor(white);
gotoxy(5,5); write('Tablica 1');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(15-x,5+y);
write(tab1[x,y]) end;end;   delay(500);

for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(x+5,5+y);
write(tab1[x,y]) end;end;   delay(500);

for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(x+5,18-y);
write(tab1[x,y]) end;end;   delay(500);


gotoxy(5,5); write('Tablica 2');
for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(5+x,5+y);
write(tab2[x,y]) end;end; delay(500);

for x:=1 to 10 do begin
for y:=1 to 10 do begin
gotoxy(15-x,5+y);
write(tab2[x,y]) end;end; delay(500);


until keypressed;

readkey;
end.

Zadanie X. NapisaĂŚ program ktĂłry do tablicy o nazwie A  wpisze 10 liczb od 1 do 10. NastĂŞpnie do tablicy B przepisze liczby z tablicy A powiĂŞkszone o 3.
-------------------------RozwiÂązanie -----------------------------------
program X1;
uses crt,dos;
var A:array[1..10] of byte;
B:array[1..10] of byte;
z:byte;

begin

for z:=1 to 10 do
begin  A[z]:=z; end;


for z:=1 to 10 do
begin B[z]:=A[z]+3; end;
end.
----------------------------------Koniec----------------------------------------
Zadanie XX. NapisaĂŚ program ktĂłry do tablic imie , nazwisko wczyta podane z klawiatury 7 imion i nazwisk. NastĂŞpnie poprosi o podanie liczby i po jej podaniu wyÂświetli imie i nazwisko ukryte w odpowiedniej komĂłrce tabel : imie, nazwisko.
 ---------------------------------PoczÂątek ------------------------------------------------
program XX1;
uses crt,dos;
var imie:array[1..7] of string;
nazwisko :array[1..7] of string;
z:byte;

begin clrscr;
for x:=1 to 7 do begin

write('Podaj ',z,' imie: ');readln(imie[z]);
write('Podaj ',z,' nazwisko: ');readln(nazwisko[z]);
end;
write('Podaj liczbe: ');readln(z);
write(imie[z],'  ',nazwisko[z]);

 readkey;
end.
-----------------------------Koniec-------------------------------------------

Zadanie 10. NapisaĂŚ program w ktĂłrym zadeklarowano tablicĂŞ A, B o wymiarach 10x10.
Do tablicy A proszê wpisaÌ literê A na g³ównej przek¹tnej, do tablicy B litery A w dwóch przek¹tnych. Pozosta³e miejsca maj¹ zostaÌ zape³nione znakiem 0 (zero).
-------------------------------------RozwiÂązanie---------------------------------------------------
program tablica;
uses crt,dos;
var x,y,z:byte;
A: array[1..10,1..10] of char;
B: array[1..10,1..10] of char;
begin  clrscr;
for x:=1 to 10 do begin
for y:=1 to 10 do begin
if (x=y) then A[x,y]:='A' else A[x,y]:='0';
if (x=y) or (x=11-y) then B[x,y]:='A' else B[x,y]:='0';
end;end;

for x:=1 to 10 do begin  writeln;
for y:=1 to 10 do begin
write(A[x,y]:2);
end;end;
readkey;
clrscr;
for x:=1 to 10 do begin  writeln;
for y:=1 to 10 do begin
write(B[x,y]:2);
end;end;
readkey;
end.

Zadanie 11,  z dwiema literkami.

program e;
uses crt, dos;
var x,y:byte;
A: array[1..10,1..10] of byte;
B: array[1..10,1..10] of byte;
begin clrscr;
 for x:=1 to 10 do begin
 for y:=1 to 10 do begin A[x,y]:=0;end;end;
 A[2,2]:=1;  A[3,2]:=1;  A[4,2]:=1;
 A[5,2]:=1;  A[5,3]:=1;  A[5,4]:=1;
 A[4,5]:=1;  A[3,6]:=1;  A[2,7]:=1;
 A[3,7]:=1;  A[4,7]:=1;  A[5,7]:=1;
 for x:=1 to 10 do begin
 for y:=1 to 10 do begin B[x,y]:=0;end;end;
 B[4,1]:=1;  B[5,1]:=1;  B[6,1]:=1;B[7,1]:=1;
 B[4,2]:=1;  B[4,3]:=1;  B[4,4]:=1;
 B[5,4]:=1;  B[6,4]:=1;  B[7,4]:=1;
 B[8,5]:=1;  B[8,6]:=1;  B[8,7]:=1;
 B[8,8]:=1;  B[7,9]:=1;  B[6,10]:=1;
  B[5,10]:=1;  B[4,10]:=1;

 for y:=1 to 10 do begin writeln;
 for x:=1 to 10 do begin if A[x,y]=1
 then begin gotoxy(35+x,y+10);write(chr(178));end;
 end;end;

 readkey; clrscr;
 for y:=1 to 10 do begin writeln;
 for x:=1 to 10 do begin if B[x,y]=1
 then begin gotoxy(35+x,y+10);write(chr(178));end;
 end;end;

 readkey;
end.

program e;
uses crt, dos;
var x,y:byte;
A: array[1..10,1..10] of byte;
B: array[1..10,1..10] of byte;
begin clrscr;
 for x:=1 to 10 do begin
 for y:=1 to 10 do begin A[x,y]:=0;end;end;
 A[2,2]:=1;  A[3,2]:=1;  A[4,2]:=1;
 A[5,2]:=1;  A[5,3]:=1;  A[5,4]:=1;
 A[4,5]:=1;  A[3,6]:=1;  A[2,7]:=1;
 A[3,7]:=1;  A[4,7]:=1;  A[5,7]:=1;
 for x:=1 to 10 do begin
 for y:=1 to 10 do begin B[x,y]:=0;end;end;
 B[4,1]:=1;  B[5,1]:=1;  B[6,1]:=1;B[7,1]:=1;
 B[4,2]:=1;  B[4,3]:=1;  B[4,4]:=1;
 B[5,4]:=1;  B[6,4]:=1;  B[7,4]:=1;
 B[8,5]:=1;  B[8,6]:=1;  B[8,7]:=1;
 B[8,8]:=1;  B[7,9]:=1;  B[6,10]:=1;
  B[5,10]:=1;  B[4,10]:=1;
 repeat clrscr;
 for y:=1 to 10 do begin
 for x:=1 to 10 do begin if A[x,y]=1
 then begin gotoxy(35+x,y+10);write(chr(178));end;
 end;end;

 delay(100);clrscr;
 for y:=1 to 10 do begin
 for x:=1 to 10 do begin if B[x,y]=1
 then begin gotoxy(35+x,y+10);write(chr(178));end;
 end;end; delay(100);
  until keypressed;
 readkey;
end.

program rysiu;
uses crt,dos;
var n: array[1..8,1..8] of byte;
h:array[1..8,1..8] of byte;
begin
end.
--------------------------------- Wersja rozwojowa-------------------------------------------
program rysiu;
uses crt,dos;
var n: array[1..8,1..8] of byte;
h:array[1..8,1..8] of byte;
x,y: byte;
begin
for y:=1 to 8 do begin n[1,y]:=1;n[6,y]:=1;
h[1,y]:=1;h[5,y]:=1;end;
n[2,2]:=1;n[3,3]:=1;n[4,4]:=1; n[4,5]:=1;n[4,6]:=1;n[5,7]:=1;
for x:=1 to 5 do h[x,4]:=1;

repeat
for y:=1 to 8 do begin
for x:=1 to 8 do begin
gotoxy(10+x,1+y); if(n[x,y]=1) then write(chr(178))
else write(chr(32));end;end; delay(200); clrscr;

for y:=1 to 8 do begin
for x:=1 to 8 do begin
gotoxy(50+x,1+y); if(h[x,y]=1) then write(chr(178))
else write(chr(32));end;end; delay(200); clrscr;

until keypressed;
readkey;
end.

Sprawdzian 31.01.2011. Dla Malwiny, rĂłwnieÂż

program a;
uses crt,dos;
var x,y:byte;
a1:array[1..10,1..10] of byte;

begin clrscr;
for x:=1 to 10 do begin
for y:=1 to 10 do begin
a1[x,y]:=x; {gotoxy(2*x,2*y); write(a1[x,y]);delay(300);}
end;end;

for x:=1 to 10 do begin writeln; writeln;
for y:=1 to 10 do begin
write(a1[y,x]:3);
end;end;
readkey;
end.
----------------------------- wersja z literami ---------------------------------
program a;
uses crt,dos;
var x,y:byte;
a1:array[1..10,1..10] of char;

begin clrscr;
for x:=1 to 10 do begin
for y:=1 to 10 do begin
a1[x,y]:=chr(x+64); {gotoxy(2*x,2*y); write(a1[x,y]);delay(300);}
end;end;

for x:=1 to  10 do begin writeln; writeln;
for y:=1 to 10 do begin
write(a1[y,x]:3);
end;end;

Zadanie 7.02.2011. NapisaĂŚ program ktĂłry do tablicy 3X3 wpisze naprzemiennie liczby 1 i 0.

program patryk1;
uses crt, dos;
var t: array[1..3,1..3] of byte;
x,y,z: byte;
begin clrscr; x:=0;y:=0;z:=0;
repeat y:=y+1;
repeat x:=x+1;
if z=0 then z:=1 else z:=0;
t[x,y]:=z;
until x=3;
x:=0;

until y=3;
for x:=1 to 3 do begin
for y:=1 to 3 do write(t[x,y]:3);
writeln;end;

readkey;
end.
---------------------------------------- wersja na pĂŞtli for --------------------------------
program patryk1;
uses crt, dos;
var t: array[1..3,1..3] of byte;
x,y,z: byte;
begin clrscr; z:=0;
 for x:=1 to 3 do
 begin
 for y:=1 to 3 do
 begin
 if z=0 then z:=1 else z:=0;
 t[x,y]:=z;
 end;
 end;

for x:=1 to 3 do begin
for y:=1 to 3 do write(t[x,y]:3);
writeln;end;

readkey;

end.

Zadanie 7.02.2011-nr 2. Napisz program ktĂłry do tablicy 20 elementowej wpisze losowe liczby od -100 do 100, nastĂŞpnie wyszuka element najmniejszy i okreÂśli jego pozycje w tablicy.

program marta;
uses crt,dos;
var t:array[1..20] of integer;
a,y:integer;
min:integer; {zmienna przechowujca najmniejsza liczbe}

begin
randomize;clrscr; min:=200;

for a:=1 to 20 do
begin
t[a]:=-100+ random(200); write(t[a]:4);
if t[a]<min then begin min:=t[a];y:=a; end;
end;

Zadanie 7.02.2011. -nr 3. NapisaĂŚ program, ktĂłry do tablicy 10 elementowej wpisze losowe liczby od 1 do 20 nastĂŞpnie wybierze i wypisze z tablicy 1 liczby podzielne przez 2.
Dodatkowo:JeÂśli nie znajdzie  - wyÂświetli komunikat.


program a;
uses crt,dos;
var t: array[1..10] of integer;
a,y:integer;
begin
clrscr; randomize;
for a:=1 to 10 do begin
t[a]:=1+random(19);  write(t[a]:3);  end;
writeln;
for a:=1 to 10 do
begin
if (t[a] mod 2)=0 then write(t[a]:3) else write(' ':3) end;


 readkey;
end.
---------------------------------------- full wypas ----------------------------------
program a;
uses crt,dos;
var t: array[1..10] of integer;
a,y,licznik:integer;
begin
clrscr; randomize;licznik:=0;
for a:=1 to 10 do begin
t[a]:=1+random(19);  write(t[a]:3);  end;
writeln;
for a:=1 to 10 do
begin
if (t[a] mod 2)=0 then begin write(t[a]:3); inc(licznik); end else write(' ':3) end;
if licznik=0 then write('brak liczb parzystych');
readkey;
end.

Zadanie 7.02.2011 -nr 4. Skonstruj program ktĂłry bĂŞdzie wyÂświetlaÂł (w tablicy 20 elementowej) sume wszystkich liczb nieparzystych i parzystych oraz poda ilosĂŚ liczb parzystych i nieparzystych.

program a;
uses crt,dos;
var t: array[1..20] of integer;
a,y,npar, par:integer;
begin
clrscr; randomize;npar:=0;par:=0;
for a:=1 to 20 do begin
t[a]:=1+random(19);  write(t[a]:3);  end;
writeln;
for a:=1 to 20 do
begin
if (t[a] mod 2)=0 then  inc(par) else inc(npar);end;
writeln;writeln('Liczba liczb parzystych= ',par);
writeln('Liczba liczb nieparzystych= ',npar);

 readkey;
end.

Zadanie 7.02.2011 -nr 5.  Do tablicy 10 elementowej wpisze losowe liczby podzielne przez 3, z przedziaÂłu 6..100.

program a1;
uses crt,dos;
var t: array[1..10] of byte;
a,l: byte;
begin
l:=0; randomize; clrscr;
repeat
a:=6+random(94);
if (a mod 3)=0 then begin inc(l);t[l]:=a;end;
until l=10;

for a:=1 to 10 do write(t[a]:4);
readkey;
end.

Zadanie 7.02.2011 -nr 6. Do tablicy 5X5 wpisz losowe liczby z przedziaÂłu od 1 do 10. WyÂświetl tablicĂŞ na ekranie.

program patryk1;
uses crt, dos;
var t: array[1..5,1..5] of byte;
x,y,z: byte;
begin clrscr; z:=0;randomize;
 for x:=1 to 5 do
 begin
 for y:=1 to 5 do
 begin
t[x,y] :=1+random(10);

 end;
 end;

writeln;
for x:=1 to 5 do begin
for y:=1 to 5 do write(t[x,y]:3);
writeln;writeln;end;

readkey;

end.

Zadanie 7.02.2011 -nr 7. Do tablicy 5X5 wpisz losowe liczby z przedziaÂłu od 1 do 10. WyÂświetl tablicĂŞ na ekranie.

program patryk1;
uses crt, dos;
var t: array[1..5,1..5] of byte;
x,y,z: byte;
begin clrscr; z:=0;
 for x:=1 to 5 do
 begin
 for y:=1 to 5 do
 begin z:=z+1;
t[x,y] :=z;

 end;
 end;

writeln;
for x:=1 to 5 do begin
for y:=1 to 5 do write(t[x,y]:3);
writeln;writeln;end;

readkey;

Zadanie 8. Specjalnie dla p. Kamila D.
ProszĂŞ napisaĂŚ program ktĂłry do tablicy 10 elementowej wpisze liczby podzielne przez 7 z zakresu 1..125. NastĂŞpnie wyszuka w tablicy najmniejszÂą i najwiĂŞkszÂą.

Zadanie 9. Specjalnie dla p. Malwiny.  Do tablicy A 10 elementowej wpisaĂŚ losowe liczby z zakresu 1..60. Do drugiej tablicy B wpisaĂŚ liczby z tablicy A w porzÂądku rosnÂącym.