IDENTIFICATION DIVISION.
PROGRAM-ID. "PROG7501".
AUTHOR. JOAOC.
DATE-WRITTEN. 07/03/2011.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 NOMEEMP PIC X(10).
77 RESPMARK PIC X(10).
77 NASCMARK PIC 9(10) VALUE 0.
77 PREFCLUB PIC 9(01) VALUE 0.
77 VOTOS PIC 9(04) VALUE 0.
77 VOTOBENF PIC 9(04) VALUE 0.
77 VOTOBENF2 PIC 9(04) VALUE 0.
77 VOTOBENF3 PIC 9(04) VALUE 0.
77 VOTOSPORT PIC 9(04) VALUE 0.
77 VOTOSPORT2 PIC 9(04) VALUE 0.
77 VOTOSPORT3 PIC 9(04) VALUE 0.
77 VOTOPORTO PIC 9(04) VALUE 0.
77 VOTOPORTO2 PIC 9(04) VALUE 0.
77 VOTOPORTO3 PIC 9(04) VALUE 0.
77 SEMAFORO PIC 9(04) VALUE 0.
77 TECLA PIC X(01).
PROCEDURE DIVISION.
INICIO.
COMPUTE SEMAFORO = 0.
PERFORM CICLO UNTIL SEMAFORO = 1.
STOP RUN.
CICLO.
COMPUTE VOTOS = 0.
PERFORM INQUERITO UNTIL VOTOS = 6.
IF VOTOBENF > VOTOSPORT AND VOTOBENF > VOTOPORTO
THEN
COMPUTE SEMAFORO = 1
ELSE
DISPLAY "VAMOS REPETIR O INQUERITO" LINE 28 POSITION 45.
DISPLAY "Prima uma Tecla !" LINE 29 POSITION 30.
ACCEPT TECLA
COMPUTE VOTOBENF = 0
COMPUTE VOTOSPORT = 0
COMPUTE VOTOPORTO = 0
COMPUTE VOTOS = 0.
INQUERITO.
DISPLAY " " LINE 1 POSITION 1 ERASE EOS.
DISPLAY " QUAL O NOME DA EMPRESA ? " LINE 4 POSITION 26.
ACCEPT NOMEEMP LINE 6 POSITION 26.
DISPLAY " QUAL O RESPONSAVEL DE MARKETING ? "
LINE 8 POSITION 26.
ACCEPT RESPMARK LINE 10 POSITION 26.
DISPLAY " QUAL A DATA DE NASCIMENTO DO RESPONSAVEL ?"
LINE 12 POSITION 26.
DISPLAY "DD-MM-AA" LINE 14 POSITION 26.
ACCEPT NASCMARK LINE 16 POSITION 26.
DISPLAY " QUAL A PREFERENCIA CLUBISTA ?"
LINE 18 POSITION 26.
DISPLAY " 1 - BENFICA 2 - SPORTING 3 - PORTO "
LINE 20 POSITION 26.
ACCEPT PREFCLUB LINE 22 POSITION 26.
IF PREFCLUB = 1
THEN
COMPUTE VOTOBENF = VOTOBENF + 1.
IF PREFCLUB = 2
THEN
COMPUTE VOTOSPORT = VOTOSPORT + 1.
IF PREFCLUB = 3
THEN
COMPUTE VOTOPORTO = VOTOPORTO + 1.
COMPUTE VOTOS = VOTOS + 1.
DISPLAY " " LINE 1 POSITION 1 ERASE EOS.
DISPLAY "Perc-BENFICA = " LINE 20 POSITION 25.
MULTIPLY VOTOBENF BY 100 GIVING VOTOBENF2.
DIVIDE VOTOBENF2 BY VOTOS GIVING VOTOBENF3.
DISPLAY VOTOBENF3 LINE 20 POSITION 40.
DISPLAY "Porcento-Vitorias" LINE 20 POSITION 47.
DISPLAY "Perc-SPORTING = " LINE 22 POSITION 25.
MULTIPLY VOTOSPORT BY 100 GIVING VOTOSPORT2.
DIVIDE VOTOSPORT2 BY VOTOS GIVING VOTOSPORT3.
DISPLAY VOTOSPORT3 LINE 22 POSITION 40.
DISPLAY "Porcento-Vitorias" LINE 22 POSITION 47.
DISPLAY "Perc-PORTO = " LINE 24 POSITION 25.
MULTIPLY VOTOPORTO BY 100 GIVING VOTOPORTO2.
DIVIDE VOTOPORTO2 BY VOTOS GIVING VOTOPORTO3.
DISPLAY VOTOPORTO3 LINE 24 POSITION 40.
DISPLAY "Porcento-Vitorias" LINE 24 POSITION 47.
