Programmation en fortran d'un tableau
Fermé
tsukuba
Messages postés
5
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 février 2013
-
1 févr. 2013 à 06:41
Char Snipeur Messages postés 9688 Date d'inscription vendredi 23 avril 2004 Statut Contributeur Dernière intervention 2 octobre 2020 - 5 févr. 2013 à 11:37
Char Snipeur Messages postés 9688 Date d'inscription vendredi 23 avril 2004 Statut Contributeur Dernière intervention 2 octobre 2020 - 5 févr. 2013 à 11:37
A voir également:
- Tableau fortran
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Afficher un tableau en c - Forum C
- Fortran 90 download - Forum Programmation
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
6 réponses
Char Snipeur
Messages postés
9688
Date d'inscription
vendredi 23 avril 2004
Statut
Contributeur
Dernière intervention
2 octobre 2020
1 329
1 févr. 2013 à 08:16
1 févr. 2013 à 08:16
Salut.Il suffit de faire deux boucle for imbriqués et de dimensionner correctement ton tableau. Soit plus précis dans l'étape ou tu bloques.
tsukuba
Messages postés
5
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 février 2013
1 févr. 2013 à 14:52
1 févr. 2013 à 14:52
merci pour votre aide.
tsukuba
Messages postés
5
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 février 2013
5 févr. 2013 à 03:54
5 févr. 2013 à 03:54
Bonjour ,
j'ai écrit ce programme, mais il y des erreurs, est ce que vous pouvez m'aider à corriger ce programme .
program Temp
implicit none
real::table(i,j)
integer::i,j
real::time
integer::wl
integer::alt
for i=1,23250 do
read(*,*) time(i),wl(i),(table(i,j),j=1,27)
for j=1,27 do
alt(j)=j*1.0
write(*,*) time(i),alt(j),table(i,j)
continue
continue
enddo
enddo
endprogram Temp
merci pour votre aide
j'ai écrit ce programme, mais il y des erreurs, est ce que vous pouvez m'aider à corriger ce programme .
program Temp
implicit none
real::table(i,j)
integer::i,j
real::time
integer::wl
integer::alt
for i=1,23250 do
read(*,*) time(i),wl(i),(table(i,j),j=1,27)
for j=1,27 do
alt(j)=j*1.0
write(*,*) time(i),alt(j),table(i,j)
continue
continue
enddo
enddo
endprogram Temp
merci pour votre aide
Char Snipeur
Messages postés
9688
Date d'inscription
vendredi 23 avril 2004
Statut
Contributeur
Dernière intervention
2 octobre 2020
1 329
5 févr. 2013 à 08:18
5 févr. 2013 à 08:18
program Temp implicit none real::table(i,j) i et j ne sont pas défini, il faut dimensionner correctement ton tableau integer::i,j real::time integer::wl integer::alt for i=1,23250 do read(*,*) time(i),wl(i),(table(i,j),j=1,27) time et wl ne sont pas des tableaux, je ne connais pas cette notation pour table. for j=1,27 do alt(j)=j*1.0 alt n'est pas un tableau. pourquoi multiplier par 1.0 alors que tu n'as que des entiers. write(*,*) time(i),alt(j),table(i,j) continue je crois que le continue est inutile, voire néfaste si tu as des enddo continue enddo enddo endprogram Temp
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tsukuba
Messages postés
5
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 février 2013
5 févr. 2013 à 09:20
5 févr. 2013 à 09:20
bonjour,
merci pour les remarques précieuses. c'est ma première fois en programmation. je trouve un peu de difficultés .
j'ai corrigé le programme comme suit:
program test
implicit none
real,dimension (23250,31)::table
real::time
integer::i
integer::j
integer::wl
i=1 , 23250
read(*,*)(table(i,j),j=1,31)
write(*,*)time(i+1),wl(j),table(i,j)
endprogram test
le message d'erreur qui s'affiche est " Error: Syntax error, found ',' when expecting one of: <END-OF-STATEMENT> ;
i=1 , 23250
---------^
Error executing df.exe.
c'est quoi ce message.
je vous remercie infiniment pour votre aide
merci pour les remarques précieuses. c'est ma première fois en programmation. je trouve un peu de difficultés .
j'ai corrigé le programme comme suit:
program test
implicit none
real,dimension (23250,31)::table
real::time
integer::i
integer::j
integer::wl
i=1 , 23250
read(*,*)(table(i,j),j=1,31)
write(*,*)time(i+1),wl(j),table(i,j)
endprogram test
le message d'erreur qui s'affiche est " Error: Syntax error, found ',' when expecting one of: <END-OF-STATEMENT> ;
i=1 , 23250
---------^
Error executing df.exe.
c'est quoi ce message.
je vous remercie infiniment pour votre aide
Char Snipeur
Messages postés
9688
Date d'inscription
vendredi 23 avril 2004
Statut
Contributeur
Dernière intervention
2 octobre 2020
1 329
5 févr. 2013 à 11:37
5 févr. 2013 à 11:37
il manque un mot clef comme "for" ou "do" pour la boucle.
Je ne connais pas trop fortran90, donc, pour le reste, je ne sais pas trop.
En particulier, tu es sur de read(*,*)(table(i,j),j=1,31) ?
Je ne connais pas trop fortran90, donc, pour le reste, je ne sais pas trop.
En particulier, tu es sur de read(*,*)(table(i,j),j=1,31) ?