Resolução da Segunda Série de Problemas

ISCTE, IGE, PROGRAMAÇÃO I, 1997/98

Segunda Série de Problemas - 13 de Novembro de 1997

[10,0] Problema 1

{Pressupostos: Utilizador introduz pelo menos onze inteiros. }

{Resultado: Aparece no ecrã a percentagem de vezes que o primeiro
            valor lido não aparece na sequência de dez números
            subsequentes. }

contaOcorrênciasEmDez
início
    inteiro aProcurar, valor, ocorrências;

    escrever "Introduza valor a procurar: ";
    ler para aProcurar;

    escrever "Introduza dez valores:", linha;

    ocorrências <- 0;

    repetir 10 vezes:
	ler para valor;
	se valor = aProcurar:
	    ocorrências <- ocorrências + 1;
	fim se;
    fim repetir;

    escrever (10 - ocorrências) * 10, linha;
fim.

[10,0] Problema 2

{Pressupostos: O utilizador introduz pelo menos um valor par.}

{Resultado: Ver enunciado...}

leEValidaPar
início
    inteiro número;

    fazer:
	escrever "Escreva um número:", linha;
        ler para número;
	se número mod 2 != 0:
	    escrever "Número inválido!", linha;
	fim se;
    enquanto número mod 2 != 0;

    escrever "O número é ", número;
fim.