PORTUGOL

FLUXOGRAMA 1 – VERIFICAR SE 2 NUMEROS SÃO IGUAIS

ALGORITMO CORRESPONDENTE

iniciointeiro ainteiro ba <- 0b <- 0ler aler bse a = b entao

escrever "a e b são iguais"senao

se a > b entaoescrever "a é o maior"

senaoescrever "b é o maior"

fimsefimse

fim

FLUXOGRAMA 2 – ÁREA DO QUADRADO

ALGORITMO CORRESPONDENTE

iniciointeiro linteiro al <- 0a <- 0escrever "Introduza largura de um lado do quadrado "ler la <- (l*l)escrever a," é a área do quadrado"

fim

FLUXOGRAMA 3 – SOMA DE NUMEROS PARES ATE 200

ALGORITMO CORRESPONDENTE

iniciointeiro somainteiro numparsoma <- 0numpar <- 0soma <- 0numpar <- 100repete

escrever numparsoma <- soma + numparnumpar <- numpar + 2

ate numpar > 200escrever "O resultado é: " , soma

fim

FLUXOGRAMA 4 – SOMA DE QUANT DE NUMEROS

ALGORITMO CORRESPONDENTE

iniciointeiro numerointeiro somainteiro continteiro quantnumero <-0soma <-0cont <-0quant <-0escrever "Quantos números quer somar?"ler quantfaz

ler numerosoma <- soma+numerocont <- cont+1

enquanto cont<quantescrever "O resultado é ", soma

fim

NETEXPRESS

PROGRAMA 1 – APRESENTAR NO ECRÃ OLÁ MUNDO

000100 IDENTIFICATION DIVISION.000200 PROGRAM-ID.OLAMUNDO.000300 ENVIRONMENT DIVISION.000400 DATA DIVISION.000500 PROCEDURE DIVISION.000600000700 PROGRAM-BEGIN.000800 DISPLAY "Ola Mundo!".000900 DISPLAY 55 .001000 DISPLAY 12.607.001100 PROGRAM-DONE.001200 STOP RUN.

PROGRAMA 2 – PEDIDO DE DOIS NÚMEROS AO UTILIZADOR E APRESENTAR O VALOR DA ADIÇÃO.

000100 IDENTIFICATION DIVISION.000200 PROGRAM-ID.ADICAO01.000300 ENVIRONMENT DIVISION.000400 DATA DIVISION.000500000600 WORKING-STORAGE SECTION.000700000800 01 PRIMEIRO-NUM PICTURE IS 99.000900 01 SEGUNDO-NUM PICTURE IS 99.001000 01 RESULTADO PICTURE IS 999.001100001200 PROCEDURE DIVISION.001300001400 PROGRAM-BEGIN.001500 DISPLAY "INTRODUZA O PRIMEIRO NUMERO".001600 ACCEPT PRIMEIRO-NUM.001700 DISPLAY "INTRODUZA O SEGUNDO NUMERO".001800 ACCEPT SEGUNDO-NUM.001900 COMPUTE RESULTADO = PRIMEIRO-NUM + SEGUNDO-NUM.002000 DISPLAY "O RESULTADO E:".002100 DISPLAY RESULTADO.002200 PROGRAM-DONE.002300 STOP RUN.

PROGRAMA 3 – SOLICITAR O RAIO DA CIRCUNFERÊNCIA E APRESENTAR O VALOR DA ÁREA DA CIRCUNFERÊNCIA.

000100 IDENTIFICATION DIVISION.000200 PROGRAM-ID.AREAC.000300*000400*000500 ENVIRONMENT DIVISION.000600 DATA DIVISION.000700 WORKING-STORAGE SECTION.000800000900 01 RAIO PIC 9(4)V9(2).001000 01 AREA-C PIC 9(4)V9(2).001400 01 RESULTADO PIC ZZZ,ZZZ.00.

001500 PROCEDURE DIVISION.001600 PROGRAM-BEGIN.001700001900002000 PERFORM INSERE-DADOS.002100 PERFORM AREA-CIRCUNFERENCIA. PERFORM MOSTRA-RESULTADO.002200002300 PROGRAM-DONE.002400 STOP RUN.002500002600 INSERE-DADOS.002700 DISPLAY "INTRODUZA O VALOR DO RAIO"002800 ACCEPT RAIO.002900 AREA-CIRCUNFERENCIA.003000 COMPUTE AREA-C = 3.14 * (RAIO *RAIO).003400 MOVE AREA-C TO RESULTADO.

003500 MOSTRA-RESULTADO.004500 DISPLAY "A AREA DA CIRCUNFERENCIA E " RESULTADO.

PROGRAMA 4 – SOLICITAR QUANTOS NÚMEROS VAI SOMAR, EFETUAR A SUA SOMA E APRESENTAR O SEU VALOR.

000100 IDENTIFICATION DIVISION.000200 PROGRAM-ID. CALCULA_MÉDIA.000300 ENVIRONMENT DIVISION.000400 DATA DIVISION.000500 WORKING-STORAGE SECTION.000600 01 NUMERODEPEDIDOS PIC 9(3).000700 01 PEDIDO PIC 9(3).000800 01 NUMERO PIC 9(3).000900 01 SOMA PIC 9(4).001000 01 MEDIA PIC 9(3).001100 01 RESULTADO PIC 9(3).001200 PROCEDURE DIVISION.001300001400 PERFORM PEDIR-NUMEROSOMA.001500 PERFORM PEDIR-NUMERO.001600 PERFORM CALCULAR-SOMA.001700 PERFORM CALCULAR-MEDIA.001800 PERFORM MOSTRA-RESULTADO.001900002000 PROGRAM-DONE.002100 STOP RUN.002200002300 PEDIR-NUMEROSOMA.002400 DISPLAY "DIGITE A QUANTIDADE DE NUMEROS PARA CALCULAR MEDIA"002500 ACCEPT NUMERODEPEDIDOS.002600 MOVE NUMERODEPEDIDOS TO PEDIDO.002700002800 PEDIR-NUMERO.002900 IF PEDIDO <=1003000 DISPLAY "A MEDIA NÃO PODE SER CALCULADA".003100 IF PEDIDO >1003200 DISPLAY "INTRODUZA UM NUMERO".003300 MOVE NUMERO TO SOMA.003400003500 CALCULAR-SOMA.003600 COMPUTE SOMA= NUMERO.003700003800 CALCULAR-MEDIA.003900 COMPUTE MEDIA= SOMA/NUMERODEPEDIDOS.004000 MOVE MEDIA TO RESULTADO.004100 MOSTRA-RESULTADO.004200 DISPLAY "A MEDIA DOS NUMEROS É " RESULTADO.