Insertion Sort

Messaggioda galles90 » 11/03/2019, 14:08

Buongiorno,

in allegato è presente il codice sorgente dell'algoritmo, insertion sort "cioè ci sto provando, a farlo funzionare", ma non va, potreste indicarmi, dove è l'errore, vi ringrazio in anticipo.
Il linguaggio è il fortran.

Codice:
program main
integer:: i,j,n
real:: a(100),k,t
read*, n
do i=1,n
read*, a(i)
end do
do i=2,n
k=a(i)
j=i-1
if (a(i)>k) then
a(j+1)=a(j)
j=j-1
end if
a(j+1)=k
end do
do i=1,n
print*, a(i)
end do
end


Cordiali saluti.
Avatar utente
galles90
Senior Member
Senior Member
 
Messaggio: 682 di 1796
Iscritto il: 17/10/2016, 17:56
Località: Salerno

Re: Insertion Sort

Messaggioda Quinzio » 14/04/2019, 12:23

if (a(i)>k) then

a(j) ....
Quinzio
Cannot live without
Cannot live without
 
Messaggio: 4258 di 10487
Iscritto il: 24/08/2010, 06:50

Re: Insertion Sort

Messaggioda galles90 » 15/04/2019, 07:58

Grazie quinzio,

ho corretto, ora va.

Ciao
Avatar utente
galles90
Senior Member
Senior Member
 
Messaggio: 758 di 1796
Iscritto il: 17/10/2016, 17:56
Località: Salerno


Torna a Informatica

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite