Exercicios - Aula 1

Prévia do material em texto

Exercícios págs. 28, 29, 32 e 34 da apostila de COBOL Level I 
Resolução 
 
 
1) Dadas as sentenças abaixo, coloque V ou F entre os parênteses, caso a 
mesma seja verdadeira ou falsa. 
 
A. (V) – O COBOL foi criado em 1959 pelo CODASYL, mas a primeira versão só 
saiu em 1960 com o nome COBOL 60. 
 
B. (V) – Grace Hopper criou a linguagem FLOW-MATIC, que junto com a 
linguagem CONTRAM de Bob Bemer, foram as principais linguagens que 
influenciaram o COBOL. 
 
C. (F) – O COBOL é uma linguagem de baixo nível (próxima a linguagem de 
máquina), parecida com o Assembly, de difícil aprendizagem e altamente 
complexa. 
 
D. (F) – COBOL é um acrônimo para Completely Over and Beyond Obvius Logic. 
 
E. (V) – No processamento BATCH, uma coleção de registros é processada, sem 
a intervenção do usuário, até que todos os registros terminem ou um erro de 
processamento ocorra. 
 
F. (F) – São exemplos de processamento Batch: Pagar uma conta de luz no 
caixa eletrônico, consultar o saldo de uma conta corrente via internet, entrevistar 
um candidato a uma vaga de emprego e escrever um e-mail solicitando a 2ª via 
de um boleto. 
 
2) Coloque entre parênteses qual parte do processamento BATCH essas tarefas 
são executadas: 
 
a) rotina-inicializar b) rotina-processar c) rotina-termino 
 
(b) – Processamento dos campos numéricos pelos operadores aritméticos 
(+, -, *, / ou **) 
 
(a) – Abertura dos arquivos de entrada e saída 
 
(c) – Fechamento dos arquivos de entrada e saída 
 
(c) – Exibição de mensagem avisando do término normal de processamento 
 
(a) – Inicialização das variáveis (Contadores e Acumuladores) 
 
(a) – Leitura do primeiro registro do arquivo de entrada 
 
(b) – Leitura do próximo registro do arquivo de entrada 
3) Coloque V ou F se as ações abaixo caracterizam (verdadeiro) ou não (falso) 
um processamento batch 
 
(V) – O professor corrigindo as avaliações de uma turma 
 
(V) – Um contador registrando no livro fiscal as notas fiscais emitidas por uma 
empresa no mês passado 
 
(F) – Pagar uma conta de telefone no caixa eletrônico de um banco 
 
(F) – Dar baixa no estoque de uma geladeira vendida na loja 
 
(V) – Separar do cadastro de clientes aqueles que não compram a mais de 30 
dias 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Exercício Texto -> Cobol 
 
0000-EEXXNN02. 
 PERFORM 1000-INICIALIZAR 
 PERFORM 2000-PROCESSAR UNTIL WS-FIM = “S” 
 PERFORM 3000-TERMINO 
 STOP RUN 
 . 
1000-INICIALIZAR. 
 MOVE 0 TO WS-CONT 
 MOVE 0 TO WS-CTLIDO 
 MOVE “N” TO WS-FIM 
 PERFORM 1500-LER-SYSIN 
 . 
1500-LER-SYSIN. 
 ACCEPT WS-TAB FROM SYSIN 
 IF WS-TAB = 0 
 MOVE “S” TO WS-FIM 
 ELSE 
 COMPUTE WS-CTLIDO = WS-CTLIDO + 1 
 END-IF 
 . 
2000-PROCESSAR. 
 PERFORM 2500-IMPRIME-TABUADA 
 UNTIL WS-CONT = 10 
 MOVE 0 TO WS-CONT 
 PERFORM 1500-LER-SYSIN 
 . 
2500-IMPRIME-TABUADA. 
 COMPUTE WS-CONT = WS-CONT + 1 
 COMPUTE WS-PROD = WS-TAB * WS-CONT 
 DISPLAY WS-TAB “ X “ WS-CONT “ = “ WS-PROD 
 . 
Exercício Cobol -> Texto 
Parágrafo 0000-EEXXNN03 
 Executar o parágrafo 1000-INICIALIZAR 
 Executar o parágrafo 2000-PROCESSAR 
 até que a variável WS-FIM seja “S” 
 Executar o parágrafo 3000-TÉRMINO 
 Parar o programa 
Parágrafo 1000-inicializar 
 Mover “N” para a variável WS-FIM 
 Mover zero para a variável WS-CTLIDO 
 Executar o parágrafo 1500-LER-SYSIN 
Parágrafo 1500-LER-SYSIN 
 Receber dado da SYSIN e armazenar na variável WS-NUM 
 Se a variável WS-NUM for igual a zero 
 Mover “S” para a variável WS-FIM 
 Senão 
 Incrementar de um a variável WS-CTLIDO 
 Fim-se 
Parágrafo 2000-PROCESSAR 
 Mover um para a variável WS-CONT 
 Mover zero para a variável WS-SOMA 
 Executar o parágrafo 2500-CALCULA 
até que a variável WS-CONT seja maior que a variável WS-NUM 
Exibir “A soma dos naturais até ” WS-NUM “ = “ WS-SOMA 
 Executar o parágrafo 1500-LER-SYSIN 
Parágrafo 2500-CALCULA 
 Somar a variável WS-CONT à variável WS-SOMA resultando em um novo valor 
 Incrementar de um a variável WS-CONT 
Parágrafo 3000-TERMINO 
 Exibir “Total de números lidos = “ WS-CTLIDO 
 Exibir “TÉRMICO NORMAL DO EEXXNN03”