Resolução da Segunda Série de Problemas

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

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

[10,0] Problema 1

{Pressupostos: Utilizador introduz pelo menos onze inteiros. }

{Resultado: Aparece no ecrã o número de vezes que o primeiro
            valor lido 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 ocorrências, linha;
fim.

[10,0] Problema 2

{Pressupostos: O utilizador introduz pelo menos um valor entre 0 e 20
               inclusivé.}

{Resultado: Ver enunciado...}

leEValida0a20
início
    inteiro número;

    fazer:
	escrever "Escreva um número:", linha;
        ler para número;
	se número < 0 ou número > 20:
	    escrever "Número inválido!", linha;
	fim se;
    enquanto número < 0 ou número > 20;

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