Exercícios de pascal

Prévia do material em texto

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 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'.