Fundamentos De Programação

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 MOD 4) é igual a 3.

5a Questão (2,5 pontos)

Utilizando as funções randomize e random do Pascal, faça um programa que gere um vetor de

20 elementos cujos valores aleatórios devem variar de 22 a 45. Escreva no vídeo o vetor

gerado. Identifique neste vetor qual é a maior sequência de valores adjacentes não

decrescentes e a escreva na tela. Caso haja empate, escreva uma delas.

6a Questão (1,5 pontos)

Faça um Programa em Pascal que leia strings do teclado, representando nomes de pessoas,

tais como: 'Manuel de Castro' e 'Chica da Silva'. Escreva no vídeo todos os nomes que

possuam sobrenome 'Oliveira'. Seu programa deve terminar quando a string vazia for lida. Ao

final, escreva a quantidade total de nomes com o sobrenome 'Oliveira