pascal - matica reťazcov

majka090 · Napísal **majka090**: 14.12.2008 20:30

mohol by mi niekto pomôcť zo semestrálkou, vôbec to neviem
Matica reťazcov III. Vygenerujte maticu 10 krát 10 tvorenú prvkami reťazec dĺžky 5 znakov tvorenú len z reťazcov písmen. Ponúknite používateľovi nasledovné voľby v menu :
Uvedenú maticu reťazcov usporiadajte podľa pravidiel pre usporiadavanie reťazcov od najmenšieho po najväčší a to v rámci celej matice. Uvedenú usporiadnú maticu vypíšte.
Výpis matice tak, že všetky zadané veľké písmená zmeníte na malé a opačne
Výpis len tých prvkov matice, ktoré sa začínajú na spoluhlásku
Výpis len tých prvkov matice, ktorých posledným znakom je spoluhláska
nepotrebujem vypracovať, len nejaké zakladné body ako to mám robiť

p360t · Napísal **p360t**: 14.12.2008 21:05

Na to že je to semestrálka sa možno trochu neskoro pýtaš. Každopádne, podľa pravidiel hotové riešenia do školy nedávame. Preto skús sama začať a spýtaj sa na konkrétny problém, nie na celé zadanie.

Skús začať tak, že budeš ignorovať to menu, len sprav všetky potrebné dátové štruktúry a procedúry pre jednotlivé úlohy.

Pri konštrukcii sa treba trochu zamyslieť, možno by sa oplatilo spraviť malý trik. Podľa zadania úloh zatiaľ vôbec nepotrebuješ mať maticu 10x10, úplne ti stačí 100 prvkové jednorozmerné pole Stringov. Len pri výpise ich budeš vypisovať po riadkoch v desiatkach (a teda navonok sa to bude tváriť ako pole 10x10). To ti pomôže pri konštrukcií procedúr pre jednotlivé úlohy. Jednorozmerné 100 prvkové pole sa zoradí jednoduchšie ako dvojrozmerné 10x10 a trochu sa zjednodušia prechody cez všetky prvky (namiesto dvoch vnorených cyklov stačí jeden).

majka090 · Napísal autor témy **majka090**: 03.01.2009 15:59

dakujem za radu, i keď mi to asi aj tak nepomôže

juho · Napísal **juho**: 04.01.2009 14:27

sak nepise ze chce konecn produkt len navod
no tak

Kód:

pole:array[1..10,1..10] of string;

maenu vytvoris pomocou cyklov, writelnov a readlnov a caseov ak budes chciet a string je pole znakov takze k jednotlivym pismenam sa bude pristupovat ako k trojrozmernemu polu

Kód:

pole[1][1][1]

je prve pismeno prveho riadku a stlpca a pouzivas funkcie ci procedury Upcase, length atakdalej...

majka090 · Napísal autor témy **majka090**: 04.01.2009 16:00

menu by som aj zvladla, možno aj to ostatne, lenže neviem vygenerovať maticu 10x10 tvorenu reťazcami dlhých 5 znakov tvorenú len z pismen

neutronmind · Napísal **neutronmind**: 04.01.2009 16:10

Staci, ked budes v cykle kazdemu znaku priradovat nejaku nahodne vygenerovanu hodnotu, pomocou random() - pouzi funkciu na prevod cisel na zodpovedajuci znak (funkciu chr()).

majka090 · Napísal autor témy **majka090**: 04.01.2009 16:20

začala som asi takto
procedure vygeneruj maticu (var M:matica)
var i, j:integer

begin
randomize
for i:=1 to 10 do
for j:= 1 to 10 do
begin
for k:= 1 to 5 do

a ďalej neviem

neutronmind · Napísal **neutronmind**: 04.01.2009 22:15

No nejako takto (hadam je to dobre, netestoval som)

Kód:

procedure vygeneruj_maticu(var M:matica) 
var i, j, k, x:integer 

begin 
randomize; 
for i:=1 to 10 do 
   for j:=1 to 10 do 
      for k:=1 to 5 do 
          matica[i,j,k]:=chr(random(26)+1);
end.

Aj ked si myslim, ze by nebolo zle spravit jednorozmerne pole 100 retazcov, ako spominal p360t...

majka090 · Napísal autor témy **majka090**: 05.01.2009 14:40

no tu maticu som uz vygenerovala
trocha inak ale ide to
a robim to cez to 100 prvokove pole viem aj upravit velke pismena na male
len neviem ako usporiadat tu maticu viem ze tam budem potrebovat ord(znak)
no neviem...

neutronmind · Napísal **neutronmind**: 05.01.2009 14:57

V Pascale moze retazce porovnavat normalne ako aj cisla (teda pomocou >, <, <=, >=, =), takze staci, ked pouzijes nejaky triediaci algoritmus - napr. BubbleSort, QuickSort, atd. bez akychkolvek uprav.

majka090 · Napísal autor témy **majka090**: 05.01.2009 14:59

lenze mi sme sa nic take neucili

neutronmind · Napísal **neutronmind**: 05.01.2009 15:07

Napisem ti BubbleSort, ten je imho lahsie pochopitelny ako ine, rychlejsie algoritmy, ak by bolo treba, mozem ti poslat aj rychlejsi.

Kód:

procedure utried(var M:matica, DLZKA:integer)
var
    i, j:integer;
    pom: string[5];

begin
    for i:=1 to DLZKA-1 do
        for j:=i+1 to DLZKA do
            if M[i]>M[j]
                begin
                    pom:=M[i];
                    M[i]:=M[j];
                    M[j]:=pom;
                end;
end.

DLZKA - v tvojom pripade je 100
M - je samotne pole retazcov

Dufam, ze tam nie su chyby, netestoval som... :rolleyes:

majka090 · Napísal autor témy **majka090**: 05.01.2009 17:05

pri tom druhom begin mi vypisuje chybu

ado21 · Napísal **ado21**: 05.01.2009 19:37

mozem sa opytat na typ skoly?

neutronmind · Napísal **neutronmind**: 05.01.2009 21:20

Pred tym begin malo byt este then.

Nasiel som tam vsak aj zopar dalsich chyb :rolleyes:

. Tu je to opravene...

Kód:

procedure utried(DLZKA:integer; var M: matica);
var 
    i, j:integer; 
    pom: string[5]; 

begin 
    for i:=1 to DLZKA-1 do 
        for j:=i+1 to DLZKA do 
            if M[i]>M[j] then
                begin 
                    pom:=M[i]; 
                    M[i]:=M[j]; 
                    M[j]:=pom; 
                end; 
end;

majka090 · Napísal autor témy **majka090**: 06.01.2009 15:33

to then som si vsimla, ale stalemi to v tom riadku if M[i]>M[j] then vypisuje
operand tzpes do not match operator, a neviem preco,
a inak dakujem za pomoc

neutronmind · Napísal **neutronmind**: 06.01.2009 19:22

Nie je zac.

No moze byt, ze je nejaka chyba v deklaracii typu "matica". Podla mna by ani nebolo treba vytvarat takyto typ, ale stacilo by tam dat array of string[5].

pascal - matica reťazcov

Podobné témy