Darmowe Forum

Turbo Pascal => Podstawy Turbo Pascal => Wątek zaczęty przez: admin Grudzień 13, 2010, 11:44:24



Tytuł: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Grudzień 13, 2010, 11:44:24
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Grudzień 13, 2010, 12:06:08
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Grudzień 20, 2010, 11:01:38
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 03, 2011, 09:35:08
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 03, 2011, 10:41:51
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 03, 2011, 11:04:28
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 03, 2011, 11:34:04
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 03, 2011, 12:33:45
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 03, 2011, 12:54:38
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 03, 2011, 13:13:15
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 10, 2011, 09:11:29
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-------------------------------------------


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 17, 2011, 08:50:27
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 17, 2011, 12:34:43
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.



Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 17, 2011, 13:06:27
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 24, 2011, 08:33:44
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Styczeń 31, 2011, 10:24:37
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;


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Luty 07, 2011, 08:36:35
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Luty 07, 2011, 08:57:39
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;


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Luty 07, 2011, 09:01:23
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Luty 07, 2011, 09:09:19
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Luty 07, 2011, 09:14:58
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Luty 07, 2011, 09:22:10
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.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Luty 07, 2011, 10:36:43
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;


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Luty 28, 2011, 12:09:05
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ą.


Tytuł: Odp: Tablice - czyli jak przechować dane
Wiadomość wysłana przez: admin Luty 28, 2011, 12:16:37
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.


Polityka cookies
Darmowe Fora | Darmowe Forum

realbestplaymta aplikacja2013 puppy-years bezludna-wyspa polskiserwerfreeplay