algoritimo

PROGRAMA Exec. 01
VAR

totalVotos, op: INTEIRO cand_1, cand_2, cand_3, cand_4: INTEIRO {PRINCIPAL}
INICIO

op = 0 MENU RESULTADO ESCREVA "FIMMM !!!"
FIM

PROCEDIMENTO MENU INICIO ENQUANTO (op 5) MSG LEIA (op)

SE (op == 1) ENTAO: cand_1++ totalVotos++ SENAO SE (op == 2) ENTAO: cand_2++ totalVotos++ SENAO SE (op == 3) ENTAO: cand_3++ totalVotos++ SENAO SE (op == 4) ENTAO: cand_4++ totalVotos++ SENAO: SE (op > 5 OU op < 1) ENTAO: ESCREVA "Voto invalido" SENAO SE(op == 4) ENTAO: ESCREVA "RESULTADO:" FIM SE FIM ENQUANTO FIM PROCEDIMENTO MSG INICIO ESCREVA "[1] - Aecio Neves" ESCREVA "[2] - Ciro Gomes" ESCREVA "[3] - Dilma" ESCREVA "[4] - Serra" ESCREVA "[5] - Finalizar"

FIM

PROCEDIMENTO RESULTADO INICIO ESCREVA ("Aecio Neves, VOTOS= ",cand_1, "PORCENTAGEM= " (cand_1*100)/totalVotos) ESCREVA ("Ciro Gomes, VOTOS= ",cand_2, "PORCENTAGEM= " (cand_2*100)/totalVotos) ESCREVA ("Dilma, VOTOS= ",cand_3, "PORCENTAGEM= " (cand_3*100)/totalVotos) ESCREVA ("Serra, VOTOS= ",cand_4, "PORCENTAGEM= " (cand_4*100)/totalVotos) FIM

==============================================================================
PROGRAMA Exec. 02
VAR
totBois: INTEIRO i, numBoi: INTEIRO nuMax, nuMin: INTEIRO maxPeso, minPeso: REAL pesoBoi: REAL

{PRINCIPAL}
INICIO
i=0 maxPeso = 0 minPeso = 1000 totBois=10 ATRIBVAL EXIBERESULTADO
FIM

PROCEDIMENTO ATRIBVAL

INICIO ENQUANTO(i < totBois) ESCREVA "Digite o numero de serie do boi Nº" LEIA (numBoi) ESCREVA "Agora o seu peso" LEIA (pesoBoi) SE(pesoBoi > maxPeso) ENTAO: maxPeso = pesoBoi nuMax = numBoi FIM SE SE(pesoBoi < minPeso) ENTAO: minPeso