| Autore |
 Discussione  |
|
|
tremenda
Utente assiduo
Regione: Puglia
Prov.: Ba
Cittā: Bari
|
 Inserito il - 10/01/2005 : 17:39:01
|
Ki mi trova l'errore in questo pezzo di codice???E' l'algoritmo x la fusione!
Non riesco a capire xkč nn mi funziona!
procedure copy(var b:vet; var c:vet2; j,n:integer; var k:integer);
var i:integer;
begin
for i:=j to n do
begin
c[k]:=b[i];
k:=k+1;
end;
end;
procedure shortmerge(var a,b:vet; var c:vet2; m:integer; var j,k:integer);
var i:integer;
begin
while i<=m do
begin
if a[i]<=b[j] then
begin
c[k]:=a[i];
i:=i+1;
end
else
begin
c[k]:=b[j];
j:=j+1;
end;
k:=k+1;
end;
end;
procedure mergecopy(var a,b:vet; var c:vet2; m,n:integer);
var i,j,k:integer;
begin
i:=1;
j:=1;
k:=1;
if a[m]<=b[i] then
begin
copy(a,c,i,m,k);
copy(b,c,j,n,k);
end
else
begin
shortmerge(a,b,c,m,j,k);
copy(b,c,j,n,k);
end;
end;
procedure merge(var a,b:vet; var c:vet2; m,n:integer);
begin
if a[m]<=b[n] then
mergecopy(a,b,c,m,n)
else
mergecopy(b,a,c,n,m);
end;
Grazie a ki mi aiuterā prima di mercoledė!
|
"And I feel that love is dead I'm loving angels instead..."
|
|
|
fabbattista
utente SEMPRE giovane
Regione: Puglia
Prov.: Bari
Cittā: Bari
|
 Inserito il - 10/01/2005 : 18:29:21
|
Ma ke errore ti da?
Una cosa ke sembra scorretta č che manca la inizializzazione della variabile i nella procedura shortmerge...... |
 |
|
|
Cathāll
Utente di ALTO livello - Moderatore Fantacalcio
Regione: Puglia
Cittā: Corato
|
Inserito il - 10/01/2005 : 19:57:01
|
Citazione:
Messaggio inserito da tremenda
Grazie a ki mi aiuterā prima di mercoledė!
Sarā che sotto-ASD ho proprio una repulsione per tutto ciō che č sotto forma di Codice, ma francamente senza indentazione si capisce proprio poco. |
Cataldo - http://cathall.blogspot.com - http://www.flickr.com/photos/cataldo-it/
 |
|
|
|
paioner
Nuovo Utente
Regione: Puglia
Prov.: Bari
|
Inserito il - 10/01/2005 : 23:28:50
|
Ti consiglio di commentare sampre il codice . . .
Io ho fatto Programmazione da tempo
quindi non ricordo perfettamente l'algoritmo.
Almeno scrivi cosa dovrebbero fare le diverse procedure
e cosa sono i vari parametri in input . . .
in modo che anche altri possano aiutarti,
e non solo quelli che sanno a cosa ti riferisci.
Suppongo che la funzione principale sia
procedure merge(var a,b:vet; var c:vet2; m,n:integer);
Inoltre che tipo di errore hai?
E' in fase di compilazione? Esecuzione?
Oppure il programma fa una cosa sbagliata?
Non č che il programma vuole in input due vettori ordinati
e tu dai un input sbagliato?
E' la prima cosa che mi č venuta in mente e che posso dirti
con i "dati" a disposizione. 
Inoltre, postando ankio una porzione di codice identata con spazi
ho notato che gli spazi iniziali sono automaticamente ignorati.
per migliorare la leggibilitā, riporto di seguito lo stesso codice
identato con " - " in modo che anche gli altri non si scoraggino
e cerchino di darti una soluzione (sempre che tu non l'abbia giā trovata)
Se darai ulteriori informazioni sarō lieto di aiutarti.
procedure copy(var b:vet; var c:vet2; j,n:integer; var k:integer);
var i:integer;
begin
-- for i:=j to n do
-- -- begin
-- -- c[k]:=b[i];
-- -- k:=k+1;
-- -- end;
end;
procedure shortmerge(var a,b:vet; var c:vet2; m:integer; var j,k:integer);
var i:integer;
begin
-- while i<=m do
-- -- begin
-- -- if a[i]<=b[j] then
-- -- -- begin
-- -- -- c[k]:=a[i];
-- -- -- i:=i+1;
-- -- -- end
-- -- else
-- -- -- begin
-- -- -- c[k]:=b[j];
-- -- -- j:=j+1;
-- -- -- end;
-- -- k:=k+1;
-- -- end;
end;
procedure mergecopy(var a,b:vet; var c:vet2; m,n:integer);
var i,j,k:integer;
begin
-- i:=1;
-- j:=1;
-- k:=1;
-- if a[m]<=b[i] then
-- -- begin
-- -- copy(a,c,i,m,k);
-- -- copy(b,c,j,n,k);
-- -- end
-- else
-- -- begin
-- -- shortmerge(a,b,c,m,j,k);
-- -- copy(b,c,j,n,k);
-- -- end;
end;
procedure merge(var a,b:vet; var c:vet2; m,n:integer);
begin
-- if a[m]<=b[n] then mergecopy(a,b,c,m,n)
-- else mergecopy(b,a,c,n,m);
end; |
|
|
|
paioner
Nuovo Utente
Regione: Puglia
Prov.: Bari
|
Inserito il - 10/01/2005 : 23:32:38
|
Citazione:
Messaggio inserito da fabbattista
Ma ke errore ti da?
Una cosa ke sembra scorretta č che manca la inizializzazione della variabile i nella procedura shortmerge......
Potrebbe essere un motivo,
manca anche nella procedure copy. . .
Non so che ambiente di sviluppo utilizzi, ma sono molto utili tool di debug per scovare errori di funzionamento |
|
|
|
tremenda
Utente assiduo
Regione: Puglia
Prov.: Ba
Cittā: Bari
|
Inserito il - 11/01/2005 : 09:41:51
|
Il mio algoritmo č indentato solo ke copiandolo si sono annullati gli spazi!
L'errore č in esecuzione cioč quando fonde nel nuovo vettore copia gli elementi del primo e dopo mette 0 a tutti quelli del secondo! |
"And I feel that love is dead I'm loving angels instead..."
|
|
|
| |
Discussione |
|
|
|
Caccia all'errore...
