Besoin d'aide en FORTRAN (help mayday mayday mayday)

[invitedbef360d]

Bonjour,
je dois faire un programme qui met 20 valeurs aléatoires dans un tableau (tableau d'une seule colonne). et ecrire se tableau dans un fichier .TXT. Ensuite je dois faire un tri a bulles de ces valeurs pour les classer dans l'ordre croissant et le mettre dans un autre fichier.txt.
Donc j'y ai passé toute mon aprem et il me met une erreur, je ne comprend pas...

voici le code :

program tri
use dflib
implicit none 
integer, parameter	::n=20
real				::tab(n),A,B
integer				::i,k

open (10,file='tab.txt')
	do i=1,n
		call RANDOM (A)
		B=100*A
		write (10,*)B
		tab(i)=B				!*100 parce que random genere des valeurs de 0 a 1
	enddo
close (10)

Write(*,*)tab
call trier(tab)
end
 
subroutine trier(tab)
implicit none
integer i
real tab(20),temp
open (12,file='tab.txt')
read(12,*)tab
do i=1,20
	if (tab(i)>tab(i+1)) then
	temp=tab(i)
	tab(i)=tab(i+1)
	tab(i+1)=temp
	endif
enddo
close(12)
open(13,file='tri.txt')
write(13,*)tab
close(13)
end

aidez moi s'il vous plait. dites moi ce qu'il ne va pas

thibaut
-----

[Coincoin]

Salut,
Il te met quoi comme erreur ?

[invitedbef360d]

j'arrive à compiler (sans erreur ni warning) mais quand je l'execute, voici ce qu'il me met

[ReneG]

Salut,

dans ta routine Trier, l'index i ne doit courir que de 1 à 19.
Sinon ton tab(i+1) déborde du tableau.

René

[A voir en vidéo sur Futura]

[ReneG]

Re-salut,

je pense que de toutes façons ton algrithme a un petit problème:
il ne suffira pas de passer une seule fois au travers de ton tableau pour compléter le tri.

[invitedbef360d]

comment est ce que je peux faire pour que ça fonctionne bien parce que là, j'ai corrigé le 20 par le 19 mais il n'y toujours pas de triage. pourtant j'ai fait une boucle, alors pourquoi il ne trie pas?

[Gwyddon]

Il ne trie pas parce que tu ne passes qu'une seule fois dans le tableau, si tu regardes bien tu ne fais qu'échanger le suivant avec le précédent, mais en aucun cas tu auras trié. Par exemple, si le plus petit élément du tableau est en dernière position, après ton programme il se retrouvera en avant-dernière, et pas en 1ère comme il devrait.

Il faut que tu implantes une sous-boucle au coeur de ta boucle pour que ça marche (et c'est pourquoi le tri-bulle est si mauvais, c'est un tri en O(n²) )

[invitedbef360d]

Il ne trie pas parce que tu ne passes qu'une seule fois dans le tableau, si tu regardes bien tu ne fais qu'échanger le suivant avec le précédent, mais en aucun cas tu auras trié. Par exemple, si le plus petit élément du tableau est en dernière position, après ton programme il se retrouvera en avant-dernière, et pas en 1ère comme il devrait.

Il faut que tu implantes une sous-boucle au coeur de ta boucle pour que ça marche (et c'est pourquoi le tri-bulle est si mauvais, c'est un tri en O(n²) )

comme ça?

program tri
use dflib
implicit none 
integer, parameter	::n=20
real				::tab(n),A,B
integer				::i,k,j
open (10,file='tab.txt')
	do i=1,n
		call RANDOM (A)
		B=100*A
		write (10,*)B
		tab(i)=B				!*100 parce que random genere des valeurs de 0 a 1
	enddo
close (10)

Write(*,*)tab
call trier(tab)
end
 
subroutine trier(tab)
implicit none
integer i,j
real tab(20),temp
open (12,file='tab.txt')
read(12,*)tab
do j=1,20
	do i=1,19
		if (tab(i)>tab(i+1)) then
		temp=tab(i)
		tab(i)=tab(i+1)
		tab(i+1)=temp
		endif
	enddo
enddo
close(12)
open(13,file='tri.txt')
write(13,*)tab
close(13)
end

Mais il ne trie pas

[invitedbef360d]

qu'est ce qu'il ne va pas là dans mon algorithme?

[invite6de5f0ac]

qu'est ce qu'il ne va pas là dans mon algorithme?

Bonjour,

C'est ta boucle DO J=1, 20.
Il n'y a pas de raison pour que 20 passages suffisent à tout trier. Il vaut mieux mettre un flag, basculé à TRUE chaque fois qu'un échange a été nécessaire. Comma ça:

LOGICAL FLAG
DO
    FLAG = FALSE
    DO I=1, 19
        IF (TAB(I) > TAB(I+1)) THEN
            FLAG = TRUE
            * échanger TAB(I) et TAB(I+1)
        END IF
    END DO
WHILE (FLAG)

Désolé, je n'ai pas fait de FORTRAN depuis longtemps, ma syntaxe n'est probablement pas correcte, mais l'idée est là.

-- françois

[PHENIXian]

Salut

Dans ta double boucle tu te trompes d'indices
En gros ta boucle j pour le moment elle sert a rien

Bref tu peux faire comme ca :

comme ça?

program tri
use dflib
implicit none 
integer, parameter	::n=20
real				::tab(n),A,B
integer				::i,k,j
open (10,file='tab.txt')
	do i=1,n
		call RANDOM (A)
		B=100*A
		write (10,*)B
		tab(i)=B				!*100 parce que random genere des valeurs de 0 a 1
	enddo
close (10)

Write(*,*)tab
call trier(tab)
end
 
subroutine trier(tab)
implicit none
integer i,j
real tab(20),temp
open (12,file='tab.txt')
read(12,*)tab
do i=1,20
	do j=i,20
		if (tab(i).gt.tab(j)) then
		temp=tab(j)
		tab(j)=tab(i)
		tab(i)=temp
		endif
	enddo
enddo
close(12)
open(13,file='tri.txt')
write(13,*)tab
close(13)
end

Mais il ne trie pas

Ca devrait mieux marcher

[PHENIXian]

Pardon : j'espere que tu vois bien les modifs, mais dans ta boucle tu dois a vois des indices i ET j courants

Si tu ne vois pas bien comment ca marche le plus simple et de prendre une feuille de papier et de regarder comment ca marche pas a pas