[PASCAL] Help risoluzione matrice di stringhe

[repla]

Originariamente inviato da Qwertid

Ah si si mi ricordo di questo fatto! Io ero seduto in 4-5 fila sul lato sinistro nella parte più vicino al muro. Si passato.. Domani siamo tra mod. A e mod. B 85 persone a dover fare l'esame orale... Si farà notte Ciao!

a detta di coloro che già l'hanno fatto, passato lo scritto l'orale non è niente di che....
Preparati gli esercizi e gli eventuali errori che hai fatto + gli algoritmi di ordinamento.

Io spero di passarlo nell'appello del 19 luglio....

Ciao

[leadergl]

Originariamente inviato da repla

@Qwertid

esame di programmazione mod A.
prof. Burattini
Appello del 29 giugno

Ho indovinato?

c'ero anche io a quell'esame...con Burattini..ma nel mio compito non c'era quest'esercizio.

vi posso chiedere una cosa?

1) ma gli orali stavano oggi?
2) ma il progetto di laboratorio entro quando andava consegnato?

[repla]

Originariamente inviato da leadergl

c'ero anche io a quell'esame...con Burattini..ma nel mio compito non c'era quest'esercizio.

vi posso chiedere una cosa?

1) ma gli orali stavano oggi?
2) ma il progetto di laboratorio entro quando andava consegnato?

il progeto riguarda il mod.B gli orali del mod.A stanno il 6 quindi domani.

Ciao

[gokan]

Ragazzi, il forum non è una chat
Rischiate di farvi chiudere il tread

[repla]

Originariamente inviato da gokan

Ragazzi, il forum non è una chat
Rischiate di farvi chiudere il tread

questo è vero.
cmq io ora stacco e continuo a studiare.
Ci sentiamo

CIao a tutti

[leadergl]

Originariamente inviato da repla

il progeto riguarda il mod.B gli orali del mod.A stanno il 6 quindi domani.

Ciao

eh...io il MOD B devo fare...non sai entro quando andava consegnato...xkè io ero andato a tentare lo scritto del MOD B x vedere d che si trattava, quindi nn avevo fatto il progetto, poi ho visto che gli esercizi erano semplici...e l'ho un po preso a quel posto...xkè senza progetto....

solo che i risultati uscivano, mi pare, e mi chiedevo se ero in tempo a presentare il progetto k ho fatto in 3 giorni in pratica....

cmq confermo che passato lo scritto l'orale è una cretinata vi chiedono un algoritmo di ordinamento a piacere, magari nn il bubble sort, e le cose che avete sbagliato allo scritto.

poi complessita di tempo e spazio...tutto qui...




--------- edit ----------
riguardo l'argomento del thread...l'esercizio iniziale io avrei cercato di evitare i 4 cicli FOR....i prof spesso ci tengono ad evitare sprechi...e con 4 FOR la complessità di tempo aumenta nn poco...

avrei puntato sui classici 2 FOR per scorrere la matrice, anche perchè non c'è nulla da ordinare visto che è già ordinato, e tenermi traccia con variabili aggiuntive di dove si trovano le celle vuote....e scambiare queste con quelle piene successive....

[motogpdesmo16]

Originariamente inviato da Qwertid

Mettendo il controllo funziona!!! Però nel risultato al posto del blank mi esce la stringa "ZZZ" Significa che ne devo mettere un altro all'uscita? E dove in particolare? Dovunque la metta mi sballa tutto

magari non è molto elegante ma ora non mi viene in mente niente. Prima sostituisci i blank con "zzz" e poi, al termine dell'ordinamento effettui la sostituzione contraria: "zzz" con blank.
Quindi in definitiva avrai

a=for h=1 to m
             b=for k= 1 to n
                         if m(h,k)="" then m(h,k)="zzz"
chiudi i for
applichi l'algoritmo che ti ho postato nel primo reply
applichi l'alogritmo che ti ho appena postato invertendo la condizione

ripeto magari non è elegante ma non ho altre idee ora....

[motogpdesmo16]

Originariamente inviato da leadergl

..cut...

--------- edit ----------
riguardo l'argomento del thread...l'esercizio iniziale io avrei cercato di evitare i 4 cicli FOR....i prof spesso ci tengono ad evitare sprechi...e con 4 FOR la complessità di tempo aumenta nn poco...

avrei puntato sui classici 2 FOR per scorrere la matrice, anche perchè non c'è nulla da ordinare visto che è già ordinato, e tenermi traccia con variabili aggiuntive di dove si trovano le celle vuote....e scambiare queste con quelle piene successive....

Credo però che se ci sono una serie N di celle vuote e poi una parola, lo spreco per far scalare ogni volta di una posizione la cella piena sia maggiore rispetto all'ordinamento.
Riguardo l'algoritmo postato: se l'ordinamento lo effettuase cambiando il verso cioè mettesse ">" avrebbe come primo elemento la parola che inizia con "z" e come ultimo elemento il blank. Potrebbe poi riapplicare lo stesso algoritmo mettendo la condizione "<" AND che l'elemento sia <> da blank.

[leadergl]

Originariamente inviato da motogpdesmo16

Credo però che se ci sono una serie N di celle vuote e poi una parola, lo spreco per far scalare ogni volta di una posizione la cella piena sia maggiore rispetto all'ordinamento.
Riguardo l'algoritmo postato: se l'ordinamento lo effettuase cambiando il verso cioè mettesse ">" avrebbe come primo elemento la parola che inizia con "z" e come ultimo elemento il blank. Potrebbe poi riapplicare lo stesso algoritmo mettendo la condizione "<" AND che l'elemento sia <> da blank.

la matrice è ordinata...è solo che ci stanno degli spazi vuoti qua e la...

quindi:
1) scorri la matrice
2) appena trovi uno spazio vuoto ti memorizzi le sue coordinare in variabili di appoggio
3) appena trovi un elemento nn vuolo lo scambi con quello vuoto di cui hai trovato le coordinate...

vabbè è un po più contorto di così ma credo che almeno uno elimina i 4 FOR...

[Qwertid]

Innanzi tutto grazie dell'aiuto a tutti... Sto facendo un pò di studio teorico e un pò mi sto rivedendo gli esercizi Mi avete dato già ottimi spunti cercherò di metterli a frutto... Grazie veramente siete gentilissimi..

**** Per il collega di università ****: Solo per la cronaca il progetto andava consegnato massimo una settimana prima dell'orale di programmazione B

[leadergl]

Originariamente inviato da Qwertid

Innanzi tutto grazie dell'aiuto a tutti... Sto facendo un pò di studio teorico e un pò mi sto rivedendo gli esercizi Mi avete dato già ottimi spunti cercherò di metterli a frutto... Grazie veramente siete gentilissimi..

**** Per il collega di università ****: Solo per la cronaca il progetto andava consegnato massimo una settimana prima dell'orale di programmazione B

ti ringrazio per la notizia ...vorrà dire che lo ridò a luglio..

cmq riguardo il tuo esercizio si potrebbe anche fare in un altro modo...ad esempio con una matrice di appoggio....dai butto giù qualche riga...

procedure ordina;
var i,j,r,c:integer;
    b:array[1..n,1..m] of string;
begin

     r:=1;
     c:=1;
     for i:=1 to n do
     begin
          for j:=1 to m do
          begin
               if a[i,j]<>'' then
               begin
                    b[r,c]:=a[i,j];
                    if c=m then
                    begin
                       c:=1;
                       r:=r+1;
                    end else
                       c:=c+1;
               end;
          end;
     end;
     a:=b;
end;

...certo a rivederlo non mi piace troppo ma almeno nn ci sono 4 for...

[Qwertid]

Questo programma proprio non mi riesce.... Stavo tentando la strada della memorizzazione delle coordinate ma non va....

[gokan]

Tentare di memorizzare le coordinate in cui c'è un blank non è una buona strada perchè:
-non sai quanti blank ci possono essere in una matrice
-se ti metti a considerare matrici molto grandi diventa impossibile

Tanto vale usare "questi 4 cicli for" che tanto vi impauriscono

[leadergl]

Originariamente inviato da gokan

Tentare di memorizzare le coordinate in cui c'è un blank non è una buona strada perchè:
-non sai quanti blank ci possono essere in una matrice
-se ti metti a considerare matrici molto grandi diventa impossibile

Tanto vale usare "questi 4 cicli for" che tanto vi impauriscono

diciamo che il casino viene quando ci sono più "blank" consecutivi...li si diventa un po contorto...

[gokan]

Non so se usate il pascal borlandiano, quindi se in pratica usate Delphi come compilatore, se si, potete dar un'occhiata a queste funzioni che operano su stringhe, magari trovate qualcosa di utile:
http://www.delphibasics.co.uk/ByFunc...p?Main=Strings

[Qwertid]

Originariamente inviato da gokan

Non so se usate il pascal borlandiano, quindi se in pratica usate Delphi come compilatore, se si, potete dar un'occhiata a queste funzioni che operano su stringhe, magari trovate qualcosa di utile:
http://www.delphibasics.co.uk/ByFunc...p?Main=Strings

Grazie del link.. In effetti sono belle funzioni ma non credo di poterle usare perchè a lezione non le abbiamo mai utilizzate... Dovrò buttarmi sui 4 for allora... (è un parto, le doglie sono molto dolorose )

[Qwertid]

Facendo così funziona:

PROCEDURE ORDINA (VAR A: MATRICE; M,N: INTEGER);
VAR
I,J,R,C: INTEGER;
AUX: STRING[5];
BEGIN
For i:=1 to M do
BEGIN
FOR J:=1 TO N DO
BEGIN
FOR R:=1 TO M DO
BEGIN
FOR C:=1 TO N DO
BEGIN
IF A[R,C]=' ' THEN A[R,C]:='ZZZ';
if A[r,c]>A[i,j] then
BEGIN
aux:=A[r,c];
A[r,c]:=A[i,j];
A[i,j]:=aux;
END;
END;
END;
END;
END;

FOR I:=1 TO M DO
BEGIN
FOR J:=1 TO N DO
IF A[I,J]='ZZZ' THEN A[I,J]:=' ';
END;

writeln; writeln;
writeln('MATRICE A INSERITA');
for i:=1 to M do begin
writeln;
for j:=1 to N do
write(A[i, j]:8);
end;
END;

Che ne pensate? (anche se da voi viene)

[Qwertid]

In più per renderlo un pò più bellino ho fatto una procedura scambia...

[Qwertid]

Ragazzi 30!

Mi ha chiesto di quell'esercizio... ha detto che si faceva con solo 2 for... E per semplificarmi all'orale mi ha detto considera il caso che sia un vettore e non una matrice.. Molto più umano

[leadergl]

Originariamente inviato da Qwertid

Ragazzi 30!

Mi ha chiesto di quell'esercizio... ha detto che si faceva con solo 2 for... E per semplificarmi all'orale mi ha detto considera il caso che sia un vettore e non una matrice.. Molto più umano

quello che pensavo stamattina

Quando ordiniamo un vettore possiamo ad esempio fare due cicli for così:

For i:=1 to Totala-1 do
begin
   for j:=(i+1) to Totale do

se applichiamo lo stesso concetto alla matrice facendo finta che siano tutti sulla stessa riga