65 lines
2.0 KiB
COBOL
65 lines
2.0 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. multpl.
|
|
AUTHOR. OD.
|
|
*----------------------------------------------------------------*
|
|
* PROGRAMME *
|
|
* VERIFICATION NOMBRE MULTIPLE D'UN AUTRE +1 *
|
|
*----------------------------------------------------------------*
|
|
|
|
ENVIRONMENT DIVISION.
|
|
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
*--------------------------*
|
|
* DEFINITION DES VARIABLES *
|
|
*--------------------------*
|
|
* Nombre de départ
|
|
77 NBR-DPRT PICTURE 99 VALUE ZERO.
|
|
* Nombre à tester
|
|
77 NBR-TEST PICTURE 99 VALUE ZERO.
|
|
* Resultat dans la division euclidienne
|
|
77 DV-ECLDN PICTURE 99 VALUE ZERO.
|
|
* Reste dans la division euclidienne par 2
|
|
77 RST PICTURE 9 VALUE ZERO.
|
|
* Nombre impair ou pas ? (simulation d'un booléen)
|
|
77 NBR PICTURE 99 VALUE ZERO.
|
|
88 MLTPL VALUE 1.
|
|
* Résultat
|
|
77 RSLTT PICTURE X(30).
|
|
|
|
PROCEDURE DIVISION.
|
|
*--------------------*
|
|
* DEBUT DU PROGRAMME *
|
|
*--------------------*
|
|
|
|
PROGRAMME SECTION.
|
|
|
|
DEBUT.
|
|
PERFORM SAISIE.
|
|
CORPS.
|
|
PERFORM PARITE.
|
|
FIN.
|
|
DISPLAY RSLTT.
|
|
STOP RUN.
|
|
|
|
SAISIR SECTION.
|
|
SAISIE.
|
|
DISPLAY "Saisissez un chiffre de base : "
|
|
WITH NO ADVANCING.
|
|
ACCEPT NBR-DPRT.
|
|
DISPLAY "Saisissez le chiffre suivant : "
|
|
WITH NO ADVANCING.
|
|
ACCEPT NBR-TEST.
|
|
PERFORM VERIF.
|
|
VERIF.
|
|
DIVIDE NBR-TEST BY NBR-DPRT GIVING DV-ECLDN REMAINDER RST.
|
|
DISPLAY "RESTE : " RST.
|
|
IF (RST EQUAL TO 1) THEN
|
|
MOVE 1 TO NBR.
|
|
PARITE.
|
|
IF (MLTPL) THEN
|
|
MOVE "Le nombre est un multiple incrémentÃde un"
|
|
TO RSLTT
|
|
ELSE MOVE "Le nombre n'est pas un multiple incrÃment
|
|
- "Ã de un." TO RSLTT.
|