Bonjour, je suis en train de suivre le cours de COBOL et j’en suis au premier exercice.
Le programme que j’ai fonctionne (il compile, s’exécute et fait la multiplication) mais la saisie des deux nombres à multiplier est buguée.
Le programme en question :
IDENTIFICATION DIVISION.
PROGRAM-ID. exo.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 a PIC 9(2)v9.
77 b PIC 9(2)v9.
77 result PIC 9(3)v9.
screen section.
1 pla-titre.
2 blank screen.
2 line 1 col 1 value 'Multipliation'.
1 pls-nombres.
2 line 4 col 2 value 'Nombre 1 : '.
2 PIC 9(2)v9 to a required.
2 line 5 col 2 value 'Nombre 2 : '.
2 PIC 9(2)v9 to b required.
1 pla-resultat.
2 line 7 col 2 PIC 9(2)v9 from a.
2 col 7 value 'x'.
2 col 9 PIC 9(2)v9 from b.
2 col 13 value '='.
2 col 15 PIC 9(3)v9 from result.
PROCEDURE DIVISION.
display pla-titre.
display pls-nombres.
accept pls-nombres.
compute result = a * b.
display pla-resultat.
END PROGRAM exo.
Lorsque l’on rentre un chiffre dans la première ou la deuxième case puis que l’on appuie sur Enter ou Tab, le chiffre rentré disparaît. C’est très désagréable, puisque au lieu d’avoir un maximum de 99,9×99,9 on a un maximum de 90,0×99,0.
+0
-0