Programmation fortran

aissamo Messages postés 2 Statut Membre -  
yg_be Messages postés 23437 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

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     

    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
  2. 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
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       

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

      0
  3. 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
  4. aissamo Messages postés 2 Statut Membre
     

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

    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       

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

      0