Interprétation d'une condition if?

Version imprimable

22/03/2018, 15h21
Grim971

Interprétation d'une condition if?
Bonsoir,

Je cherche a réécrire un programme Fortran en VBA mais je bute sur le bout de code suivant :
Code:

1 2 3 4 5 IF(ABS(BIGA)-ABS(A(IJ))) 20,30,30 20 BIGA = A(IJ) IMAX = I 30 CONTINUE
Quelqu'un pourrait-il me l'interpréter afin que je comprenne?

Merci
22/03/2018, 16h15
Sylvain Bergeron
C'est un IF-arithmétique et ça date de Fortran 1 (1956). Il y a une expression numérique et branchement à 3 étiquettes possibles, selon que le résultat de l'expression est négatif, nul, ou positif. Dans ton cas, ça se traduit par :
Code:

1 2 3 4 5 if(abs(BIGA)-abs(A(IJ)) < 0 ) then BIGA = A(IJ) IMAX = I endif
22/03/2018, 16h18
Grim971

Merci pour ta réponse : simple et efficace.

Je ne l'avais trouvé dans aucun cours.
22/03/2018, 16h33
Sylvain Bergeron

Tu ne l'as trouvé dans aucun cours ?

Le if arithmétique est la seule forme de if avant l'invention des if logiques en Fortran IV (1962). Ils sont officiellement classés obsolètes depuis Fortran 90. Comme ils sont un ingrédient essentiel de la programmation spaghetti, ce n'est pas très surprenant qu'ils soient difficiles à trouver dans des cours, dont l'objectif est d'enseigner de bonnes pratiques.

Dans Wikipedia, on trouve : « (...) le branchement conditionnel était le « IF-arithmétique » à trois adresses : IF (A-B) 10, 20, 30 indiquait de sauter aux instructions d'étiquette 10, 20 ou 30 selon que A-B était négatif, nul ou positif. ». La page anglaise de Wikipedia est plus complète et fait une bonne rétrospective du arithmetic if.