Résultats de 1 à 2 sur 2

Sujet : sorties?

  1. #1

    sorties?

    voici le prog:

    K=3
    I=2
    Z=5
    X=7/(K-1)
    L=Z/2+2*K
    S=Z-I*K/3**2
    T=((K+1)*K/2)+Z/2
    write(*,*) X,L,S,T
    stop
    end

    la question est quelles valeurs obtient-on en sortie?

  2. #2
    Membre MP
    Inscrit
    août 2013
    Localisation
    12100
    Messages
    687
    Attention, ce programme tel qu\'il est écrit présenteun piège majeur.
    En effet, en Fortran, si on ne déclare pas les variables, les variables dont la première lettre est I à N sont des entiers, les autres sont des réels.
    C\'est pour cela que les résultats ci-dessous peuvent paraître surprenants.

    Code:
    PAGE                                                                     05-27-104
                                                                          18:47:10
         Line#  Source Line     Microsoft Fortran PowerStation Compiler. Version 4.0
         1  $pagesize:62
         2  $nostrict
         3  $nodebug
         4  c     -------------------
         5  c->   Programm d\'essais   
         6  c     -------------------
         7        program Kess
         8        K=3 
         9        I=2 
        10        Z=5 
        11        X=7/(K-1) 
        12        L=Z/2+2*K 
        13        S=Z-I*K/3**2 
        14        T=((K+1)*K/2)+Z/2 
        15        write(*,*) X,L,S,T 
        16        stop 
        17        end 
    
    MAIN  Local symbols
    Name                      Class              Type           Size
    I . . . . . . . . . . . . local              INTEGER*4         4
    K . . . . . . . . . . . . local              INTEGER*4         4
    L . . . . . . . . . . . . local              INTEGER*4         4
    S . . . . . . . . . . . . local              REAL*4            4
    T . . . . . . . . . . . . local              REAL*4            4
    X . . . . . . . . . . . . local              REAL*4            4
    Z . . . . . . . . . . . . local              REAL*4            4
    Global Symbols
    Name                      Class              Type           Size
    F90_ENDWRITE. . . . . . . extern             INTEGER*0       ***
    F90_WRITE . . . . . . . . extern             INTEGER*0       ***
    LWRITE_I. . . . . . . . . extern             INTEGER*0       ***
    LWRITE_R. . . . . . . . . extern             INTEGER*0       ***
    MAIN. . . . . . . . . . . FUNCT              ***             ***
    No errors detected      
    
     3.000000           8        5.000000        8.500000
    Stop - Program terminated.
    Bonne suite
    Moby
    moby

Informations du sujet

Utilisateur(s) parcourant ce sujet

il y a actuellement 1 utilisateur(s) parcourant ce sujet. (0 membre(s) et 1 visiteur(s))

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas éditer vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé