Pascal - Tablice wielowymiarowe


(Kempna) #1

cześć.

Muszę stworzyć program:

Baza danych w tabicy wielowymiarowej, Minimum 3 zmienne, Procedura wpisu i odczytu danych.

Wyszukanie w/g wybranej zmiennej.

Jeśli ktoś ma odrobinę wolnego czasu i mógłby mi pomóc to będę bardzo wdzięczna.

Pozdrawiam.

-- Dodane 01.02.2010 (Pn) 21:24 --

zrobilam cos takiego..

moze mu o to chodzic?

PROGRAM baza_d; 


USES CRT; 


TYPE 


tablicowy=ARRAY[1..100,1..100] OF INTEGER; 


VAR 


TAB:tablicowy; 

odp:CHAR; 

x,y,wiersz,kolumna,L,S:INTEGER; 


LABEL 


start,koniec; 


BEGIN 


CLRSCR; 


start: 

textcolor(white); 

WRITELN('Podaj liczbe wierszy oraz kolumn, ktore maja zostac wprowadzone do bazy'); 

textcolor(red+blink); 

WRITELN('max. 100'); 

READLN(wiersz,kolumna); 

RANDOMIZE; 


IF wiersz>100 THEN goto start; 

IF kolumna>100 THEN goto start; 


FOR x:=1 TO wiersz DO 

FOR y:=1 TO kolumna DO 


BEGIN 


tab[x,y]:=RANDOM(100); 

textcolor(yellow); 

WRITELN('tab[',x,',',y,']=',tab[x,y]); 


END; 


FOR x:=1 TO wiersz DO 


BEGIN 


FOR y:=1 TO kolumna DO 


BEGIN 


tab[x,y]:=RANDOM(100); 

WRITE(tab[x,y]:3); 


END; 


WRITELN; 


END; 

textcolor(white); 

WRITELN('Aby obliczyc sume w wierszu wcisnij W, aby w kolumnie - K'); 

READLN(odp); 


S:=0; 


CASE odp OF 


'w','W':BEGIN 


textcolor(white); 

WRITELN('Podaj numer wiersza, w ktorym ma zostac obliczona suma'); 

READLN(L); 


FOR x:=1 TO kolumna DO 


S:=S+tab[L,x]; 


textcolor(yellow); 

WRITELN('Suma w wierszu ',L,' wynosi ',S); 

READLN; 



END; 


'k','K':BEGIN 


textcolor(white); 

WRITELN('Podaj numer kolumny, w ktorej ma zostac obliczona suma'); 

READLN(L); 


FOR x:=1 TO wiersz DO 


S:=S+tab[x,L]; 

textcolor(yellow); 

WRITELN('Suma w kolumnie ',L,' wynosi ',S); 

READLN; 


END; 

END; 

END.