Buscar

AD1 Fundamentos de Programação

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

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 1° semestre de 2015. 
 
 
 
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 ponto) 
 
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 
2 3 
3 4 5 
4 5 6 7 
5 6 7 8 9 
 
Se n < 1, uma mensagem de erro deve ser apresentada no vídeo. 
 
 
 
2a Questão (2,0 pontos) 
 
Faça um programa em Pascal que leia números positivos do teclado, até que o número zero 
seja digitado (não considere o zero nas estatísticas), e escreva na tela: 
 
(a) quantos foram os números lidos; 
(b) a quantidade de números pares lidos; 
(c) a quantidade de números primos (2, 3, 5, 7, 11, 13, 17, ...) lidos; 
(d) o número de vezes em que o número lido foi igual ao seu antecessor; 
(e) o número de vezes em que o número lido foi maior que o primeiro número lido. 
 
3a Questão (1,0 ponto) 
 
Faça uma versão recursiva (sem utilizar repetição) do programa da 1a Questão. 
 
 
 
4a Questão (2,0 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 lidos que sejam 
palíndromos. 
 
Definição: um número é palíndromo se e somente o primeiro dígito for igual ao último, o 
segundo dígito for igual ao penúltimo, e assim sucessivamente. 
 
 
 
5a Questão (2,0 ponto) 
 
Utilizando as funções randomize e random do Pascal, faça um programa em Pascal que gere 
um vetor de 100 elementos cujos valores aleatórios devem variar de 1 a 10. Escreva no vídeo o 
vetor gerado. Identifique neste vetor qual é o valor que mais ocorreu e o que menos ocorreu, e 
escreva-os no vídeo. Caso haja empate, escreva todos os que mais ocorreram e os que menos 
ocorreram. 
 
 
 
 
6a Questão (2,0 pontos) 
 
Faça um programa em Pascal que leia strings do teclado até que a string vazia seja digitada. 
Escreva na tela a string de maior comprimento que possua apenas digitos. Além disso, escreva 
a soma de todos os dígitos lidos e a quantidade de strings lidas. Caso nenhuma string possua 
apenas dígitos, informe ao usuário.

Outros materiais