Tablice - czyli jak przechować dane

[admin]

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;

[admin]

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.

[admin]

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;

[admin]

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.

[admin]

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.

[admin]

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.

[admin]

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.

[admin]

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;

[admin]

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ą.

[admin]

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.