Fundamentos Da Programação

IMPORTANTE - NOVIDADE:

- 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 (2,0 pontos)

Faça um programa Pascal que leia números do teclado até que um número negativo seja digitado. Escreva na tela quais foram os dois maiores números lidos. Caso o primeiro número lido seja negativo, escreva na tela "Nenhum número válido foi lido.". Caso o primeiro número lido seja maior ou igual a zero e o segundo seja negativo, escreva na tela: "Apenas um número válido foi lido.". Caso dois ou mais números lidos sejam maiores ou iguais a zero, escreva os dois maiores números lidos na tela.

2a Questão (2,0 pontos)

Faça um programa Pascal que leia pontos (X,Y) no espaço cartesiano bidimensional. Escreva na tela o centróide de todos os pontos lidos e a quantidade de pontos lidos. O centróide é dado por (XC,YC), onde cada coordenada, XC e YC, é calculada, respectivamente, pelo somatório de todos os valores de X lidos dividido pelo número de pontos lidos, e pelo somatório de todos os valores de Y lidos divididos pelo número de pontos lidos. Seu programa deve terminar quando o ponto (0,0) for digitado.

3a Questão (2,5 pontos)

Faça dois programas em Pascal que leiam do usuário números positivo e escrevam na tela triângulos similares aos exemplificados abaixo.

Número lido: 3

Escrever na tela:

1

1 2

1 2 3

Número lido: 5

Escreva na tela:

1

1 2

1 2 3

1 2 3 4

1 2 3 4 5

(a) O primeiro programa deve conter uma solução iterativa (com uso de repetições).

(b) O segundo programa deve conter uma solução com subprograma recursivo (sem usar repetições).

4a Questão (1,5 pontos)

Faça uma função em Pascal que receba um número N positivo (maior do que zero) como parâmetro de entrada e retorne "true" se N for um número primo e "false" em caso contrário.

Utilize a seguinte declaração:

function Primo(N{e}: integer): boolean;

5a Questão (2,0 pontos)

Faça um programa em Pascal que leia números inteiros do teclado, até que um número não positivo seja digitado (menor ou igual a zero), e escreva na tela:

(a) quantos foram os números primos lidos;

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

(c) o maior número primo lido;

(d) o menor número primo lido.

Se nenhum número primo for lido, as respostas (b), (c) e (d) não devem ser dadas.

Utilize a função desenvolvida na 4a Questão para verificar se o número positivo lido é primo.

Resposta

Program Questao1_fp ;

uses crt;

var num: integer;

lista: array[1..100] of integer;

contador: integer;

maior1, maior2, maiorTemp: integer;

i: integer;

Begin

contador := 0;

repeat

write('Escreva um número positivo: ');

readln(num);

if num > -1 then

begin

contador := contador +1;

lista[contador] := num;

end

until num<0;

if contador = 0 then

write('Nenhum número válido foi lido.')

else if contador = 1 then

write('Apenas um número válido foi lido.')

else

begin

maior1 := lista[1];

maior2 := lista[2];

if maior2 > maior1 then

begin

maiorTemp := maior2;

maior2 := maior1;

maior1 := maiorTemp;

end;

for i := 3 to contador do

begin

if lista[i] > maior1 then

begin

maior2