Programmation fortran

aissamo Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -

Bonjour à tous

Je travaille sur un programme fortran qui affiche des nombres comme : 531 et 423
je veux faire une condition selon le premier nombre
si le premier nombre et impair le programme va prendre une valeur
et si le premier nombre est pair donc je vais le donner une autre valeur
par exemple pour 531 le premier nombre est impair et pour 423 il est pair
est ce que quelqu'un a une idée s'il vous plait
et merci d'avance

4 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 

bonjour,

Je pense à deux pistes:

  1. créer une chaine de caractères à partir du nombre, et prendre le caractère correspondant au premier chiffre
  2. dans une boucle, faire une division entière du nombre par 10, et arrêter quand le nombre est inférieur à 10.
0
PierrotLeFou
 

Autant que je sache (ça fait des millions d'années que je n'ai pas codé en Fortran), il n'y a pas de modulo dans ce langage.
Je ferais quelque chose du genre:
if(nombre - nombre/2*2 .eq. 0) ... si c'est pair

Je viens de réaliser d'après la réponse de yg_be  1 259 que tu parles de "chiffre" plutôt que de "nombre".
Sa réponse est donc adéquate.
On teste d'abord si c'est inférieur à 10 avant de diviser par 10 ...

0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

Je pense qu'il cherche à déterminer si le premier chiffre (le plus significatif) est pair ou impair.

0
PierrotLeFou
 

Quand je parle de millions d'années, j'exagère à peine ...
Il n'y avait pas de  do while  à l'époque. On faisait ça avec un if et un goto à la fin.

0
aissamo Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 

J'ai résolu le problème, Merci à vous tous pour vos idée

0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

Peux-tu alors marquer la discussion comme résolue, après, peut-être, nous avoir montré comment tu as résolu cela?

0