Números Primos
Cobol
Publicado el 29 de Noviembre del 2018 por Dario (19 códigos)
5.037 visualizaciones desde el 29 de Noviembre del 2018
En esta ocasión les dejo un código en COBOL que dice si un numero es primo o no.
IDENTIFICATION DIVISION.
PROGRAM-ID. PRIMOS.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ITERADOR PIC 9999 VALUE 2.
01 COCIENTE PIC 999.
01 NUMERO PIC 9999.
01 RESIDUO PIC 99.
01 CONTADOR PIC 99 VALUE 0.
PROCEDURE DIVISION.
INICIO-PROGRAMA.
PERFORM INGRESO-NUMERO.
PERFORM ES-PRIMO UNTIL ITERADOR > NUMERO.
PERFORM MOSTRAR-PRIMO.
FIN-PROGRAMA.
STOP RUN.
INGRESO-NUMERO.
DISPLAY "DIGITE UN NUMERO (2-1000): ".
ACCEPT NUMERO.
ES-PRIMO.
DIVIDE NUMERO BY ITERADOR GIVING COCIENTE
REMAINDER RESIDUO.
IF RESIDUO = 0
ADD 1 TO CONTADOR
END-IF.
ADD 1 TO ITERADOR.
MOSTRAR-PRIMO.
IF CONTADOR = 1
DISPLAY NUMERO " ES PRIMO"
END-IF.
Comentarios sobre la versión: 1.0 (0)
No hay comentarios