Voto
USES CRT; //biblioteca do pascal
VAR //declaracao de variaveis OPCAO : CHAR; ACM,MARIO,PELEGRINO,LUZ,MARINHO: INTEGER; //fim da declaracao de variaveis
PROCEDURE VOTOS(VAR OP: CHAR); //procedure para a opção dos canditados com cada numero.
CONST CANDIDATOS = ['1','2','3','4','5','6']; // fim da procedure para a opção dos canditados com cada numero.
BEGIN //Primeiro menu de exibicao dos candidatos CLRSCR; //LIMPA A TELA WRITELN('--------SISTEMAS DE INFORMACAO---------'); WRITELN('---------------------------------------'); WRITELN(''); WRITELN('SELECIONE UM CANDIDATOS: '); // MOSTRA NA TELA WRITELN; // PULA LINHA WRITELN('1 - ACM - DEM '); // MOSTRA NA TELA WRITELN('2 - PELEGRINO - PT '); // MOSTRA NA TELA WRITELN('3 - MARIO - PMDB '); // MOSTRA NA TELA WRITELN('4 - LUZ - PSDB '); // MOSTRA NA TELA WRITELN('5 - MARINHO - PV '); // MOSTRA NA TELA WRITELN('PARA SAIR O PROGRAMA DIGITE 6'); WRITELN('---------------------------------------'); WRITELN(''); WRITE('ENTRE COM OPÇÃO: '); // MOSTRA NA TELA
REPEAT READLN(OP); UNTIL OP IN CANDIDATOS;
END;
{
PROCEDURE MOSTRACLASSIFICACAO;
BEGIN
CLRSCR; //LIMPA A TELA WRITELN('CLASIFICAÇÃO DOS CANDIDATOS:'); WRITELN; WRITELN('O CADIDATO A: ',CANDA); WRITELN('O CADIDATO B: ',CANDB); WRITELN('O CADIDATO C: ',CANDC); WRITELN('O CADIDATO D: ',CANDD); WRITELN('O CADIDATO E: ',CANDE); READKEY;
END;
}
PROCEDURE VERIFICA;
BEGIN
CLRSCR; IF (CANDA > CANDB) AND (CANDA > CANDC) AND (CANDA > CANDD) AND (CANDA > CANDE) THEN WRITELN('O VENCEDOR É O CANDIDATO A, COM ',CANDA, ' VOTOS.') ELSE IF (CANDB > CANDC) AND (CANDB > CANDD) AND (CANDB > CANDE) AND (CANDB > CANDA) THEN