Disciplina Fundamentos de Programação. AD1 2° semestre de 2014

Fundação CECIERJ - Vice Presidência de Educação Superior a Distância

Curso de Tecnologia em Sistemas de Computação

Disciplina Fundamentos de Programação

AD1 2° semestre de 2014.

IMPORTANTE:

- As respostas (programas) deverão ser entregues pela plataforma em um arquivo ZIP contendo

todos os arquivos de código fonte necessários para que os programas sejam testados.

- As ADs deverão ser entregues pela atividade "Entrega de AD1" antes da data final de entrega

estabelecida no calendário de entrega de ADs.

- A AD é um mecanismo de avaliação individual. As soluções podem ser buscadas por grupos

de alunos, mas a redação final de cada prova tem que ser individual.

1a Questão (1,0 pontos)

Escreva um programa em Pascal que leia do teclado um inteiro n, maior ou igual a 1, e que

apresente no vídeo n linhas da forma abaixo.

Por exemplo, as seguintes linhas devem ser apresentadas se n = 5.

1 1 1 1 1

4 4 4 4

9 9 9

16 16

25

Se n < 1, uma mensagem de erro deve ser apresentada no vídeo.

2a Questão (1,5 pontos)

Faça um programa em Pascal que leia números positivos do teclado, até que o número zero

seja digitado, e escreva na tela:

(a) quantos foram os números lidos;

(b) a média dos números lidos;

(c) o maior número lido;

(d) o menor número lido;

(e) o número de vezes em que o número foi menor do que o seu antecessor;

(f) o número de vezes em que o número foi igual ao seu antecessor;

(g) o número de vezes em que o número foi maior do que o seu antecessor.

3a Questão (1,0 pontos)

Faça uma versão recursiva (sem utilizar repetição) do programa da 1a Questão.

4a Questão (2,5 pontos)

Faça um programa em Pascal que leia números inteiros do teclado até que um número

negativo seja lido e que escreva no vídeo a soma de todos os números primos lidos.

Definição: um número é primo se e somente ele for maior que um e for divisível apenas por ele

mesmo e por 1.

Sugestão: use a função MOD do Pascal, que retorna o resto da divisão inteira.

Exemplo: (7