Exercício avaliativo 2

Prévia do material em texto

UNIVERSIDADE DO ESTADO DO PARÁ
		 CAMPUS XVII (MATEMÁTICA 2020 VIGIA-PA)
		 DISCIPLINA INTRODUÇÃO A COMPUTAÇÃO 
DISCENTE: BRENO DE CARVALHO LOBO
MATRÍCULA: 2020010814
SEGUNDA-FEIRA 10/05/2021
ATIVIDADE AVALIATIVA (Atividade complementar)
1 - Elabore um programa que dada a idade de um nadador classifica-o em uma das seguintes categorias:
 	
Infantil A = 5 – 7 anos
 	Infantil B = 8-10 anos
 	Juvenil A = 11-13 anos
 	Juvenil B = 14-17 anos
 	Adulto = maiores de 18 anos
Resolução:
program CategoriasDeNadadores;
uses crt;
var Idade: integer;
begin
 clrscr;
 write('Digite a idade do nadador : '); readln(Idade);
 writeln;
 
 if Idade < 5
 then writeln('Sem classificação.')
 else if Idade <= 7
 then writeln('infantil A')
 else if Idade <= 10
 then writeln('infantil B')
 else if Idade <= 13
 then writeln('juvenil A')
 else if Idade <= 17
 then writeln('juvenil B')
 else writeln('Adulto');
 
 writeln;
 writeln('Pressione [Enter] para prosseguir.');
 readln;
end.
2 - Crie um programa que exiba um menu na tela e que permita ao usuário a escolha de uma opção.
Imprima uma mensagem dizendo qual foi a opção selecionada.
Exemplo de Menu
 	1 – Gravar
 	2 – Carregar
 	3 – Apagar
 	4 – Inserir
 	5 – Fim
Resolução:
program MainMenu;
uses crt;
var
 op:integer;
begin
clrscr;
writeln('------------------------');
writeln(' M E N U');
writeln('------------------------');
writeln('1-Gravar');
writeln('2-Carregar');
writeln('3-Apagar');
writeln('4-Inserir');
writeln('5-Sair');
writeln('------------------------');
write('Digite sua escolha:');
readln(op);
case op of
 1:begin
 writeln('--------------------');
 writeln('Sua opção foi "Gravar"');
 end;
 
 2:begin
 writeln('--------------------');
 writeln('Sua opção foi "Carregar"');
 end;
 
 3:begin
 writeln('--------------------');
 writeln('Sua opção foi "Apagar"');
 end;
 
 4:begin
 writeln('------------------- ');
 writeln('Sua opção foi "Inserir"')
 end;
 
 5:begin
 writeln('-------------------');
 writeln('Sua Opção foi "Sair"');
 end;
 else
 writeln('Opção invalida para operação');
end;
writeln('Tecle algo para finalizar o programar');
readkey; 
end.
3 – Escrever um programa que leia o número de identificação, as 3 notas obtidas por um aluno nas 3 verificações e a média dos exercícios que fazem parte da avaliação. Calcular a média de aproveitamento, usando a fórmula:
MA = (Nota1 + Nota2 x 2 + Nota3 x 3 + ME )/7
A atribuição de conceitos obedece a tabela abaixo:
Média de Aproveitamento  Conceito
9,0 -> A
7,5 e < 9,0 -> B
6,0 e < 7,5  -> C
4,0 e < 6,0  ->  D
< 4,0 -> E
O programa deve escrever o número do aluno, suas notas, a média dos exercícios, a média de aproveitamento, o conceito correspondente e a mensagem: APROVADO se o conceito for A,B ou C e REPROVADO se o conceito for D ou E.
Altere o programa número após a seleção de uma das opções o programa continue rodando e solicite novamente uma escolha do usuário, até que este escolha a opção de finalização.
Resolução:
program Aluno;
uses crt;
var
i,n: integer;
nota1,nota2,nota3,me,ma:real;
msg,conceito,cont:string;
begin
 clrscr;
 i:=0;
 cont:='S';
 writeln('Bem Vindo Ao Registro Estudantiu');
 writeln('--------------------------------------');
 while(cont ='S')do
 begin i:=i+1;
 writeln('Registro:',i);
 write('Digite o Número do aluno: ');
 readln(n);
 write('Digite a Primeira nota: ');
 readln(nota1);
 write('Digite a Segunda nota: ');
 readln(nota2);
 write('Digite a Terceira nota: ');
 readln(nota3);
 write('Digite a Média dos exercicios: ');
 readln(me);
 ma:=((nota1)+(nota2*2)+(nota3*3)+me)/7;
 if(ma >= 9)then 
 begin conceito:='A';
 msg:='PARABÉNS JOVEM PADAWAN, VOCÊ FOI APROVADO!!!';
 end
 else if(ma >=7.5)and(ma < 9)then 
 begin conceito:='B';
 msg:='PARABÉNS JOVEM PADAWAN, VOCÊ FOI APROVADO!!!';
 end
 else if(ma >= 6)and(ma <7.5)then 
 begin conceito:='C';
 msg:='PARABÉNS JOVEM PADAWAN, VOCÊ FOI APROVADO!';
 end
 else if(ma >=4)and(ma <6)then 
 begin conceito:='D';
 msg:='JOVEM PADAWAN, VOCÊ FOI REPROVADO!';
 end
 else if(ma <4)then 
 begin conceito:='E';
 msg:='JOVEM PADAWAN, VOCÊ FOI REPROVADO!';
 end;
 
 writeln('------------------------------');
 writeln('MÉDIA FINAL DO ALUNO Nº: ',n);
 writeln;
 writeln('A primeira nota é: ',nota1:2:2);
 writeln('A segunda nota é: ',nota2:2:2);
 writeln('A terceira nota é: ',nota3:2:2);
 writeln('A média dos exercícios é: ',me:2:2);
 writeln('A média de aproveitamento é: ',ma:2:2);
 writeln('Seu conceito: ',conceito);
 writeln;
 writeln('RESULTADO: ',msg);
 writeln;
 write('Continuar(S/N):');
 readln(cont);
 clrscr;
 end;
end.
4 - Escrever um programa que leia uma sequência de 5 nomes de alunos e suas respectivas idades. Ao final o programa deve imprimir o nome e a idade do mais velho de todos os alunos.
Resolução:
program AlunoMAisVelho;
uses crt;
var
 nome, nome_mais_velha: string;
 idade, idade_mais_velha, i: integer;
begin
for i:= 1 to 5 do 
 begin
 clrscr;
 writeln('Informe o nome da ', i, 'ª pessoa: ');
 readln(nome);
 writeln('Informe a idade da ', i, 'ª pessoa: ');
 readln(idade);
 
 if (i = 1) then
 
 nome_mais_velha := nome;
 idade_mais_velha := idade;
 if (idade > idade_mais_velha) then
 nome_mais_velha := nome;
 idade_mais_velha := idade;
 end
;writeln('Mais velha: ', nome_mais_velha, ' com ', idade_mais_velha, ' anos');
end.