Exercício Avaliativo 1

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 (Prova)
1)  Escreva Algoritmo para ler os valores entre dois pontos distintos, ao final informe o valor da distância entre eles. Sabe-se que a distância entre os pontos e calculado de acordo com fórmula a seguir: (1,0 pts)
Resolução:
program DistanciaEntreDoisPontos;
uses crt;
var
x1,y1,x2,y2:integer;
distancia:real;
begin
clrscr;
 writeln('Coordenadas para o primeiro ponto(x1,y1):');
 write('Informe x1:');
 readln(x1);
 write('Informe y1:');
 readln(y1);
 writeln('Coordenadas para o segundo ponto(x2,y2):');
 write('Informe x2:');
 readln(x2);
 write('Informe y2:');
 readln(y2);
 distancia:=sqrt((x2-x1)(x2-x1) + (y2-y1)(y2-y1));
 writeln('A distância entre os pontos é:',distancia);
 
end.
2) Explique os itens a seguir. (1,0 pt)
a) O que é um Algoritmo? Exemplifique.
	Resolução: Um algoritmo nada mais é do que uma receita que mostra passo a passo os procedimentos necessários para a resolução de uma tarefa. Em termos mais técnicos, um algoritmo é uma sequência lógica, finita e definida de instruções que devem ser seguidas para resolver um problema ou executar uma tarefa.
b) Explique o que é uma Linguagem de Programação.
	Resolução: Linguagem de Programação é uma linguagem escrita e formal que especifica um conjunto de instruções e regras usadas para gerar programas (software).
c) Explique o que é um laço de repetição, quando ocorre um loop infinito?
	Resolução: Um loop ou laço infinito é aquele que apresenta sempre uma condição de teste verdadeira, ou seja, nunca termina. Existem, porém, programadores que usam loop infinitos em situações em que não se sabe quantas vezes a repetição será executada.
3) Elabore um Algoritmo para ler matrícula, nome e nota de 100 alunos, sabendo-se que a média para a aprovação deve ser maior ou igual a oito, ao final informe: (1,0 pts)
a) A quantidade de Aprovados.
b) A média da turma.
c) A quantidade de Reprovados.
Resolução:
program MediaTurmaAlunosAprovados;
uses crt;
var
 nome:String;
 n, totap, totrp, op, i:integer;
 mdt, nota:real;
begin
clrscr;
totap:=0;
totrp:=0;
mdt:=0;
i:=0;
while true do
begin
clrscr;
writeln('------------------------');
writeln(' M E N U');
writeln('------------------------');
writeln('1-Cadastrar Alunos');
writeln('2-Estatística Geral');
writeln('0-Sair do programa');
writeln('------------------------');
write('Digite sua escolha: ');
readln(op);
case op of
 0:begin
 writeln('--------------------');
 writeln('Saindo do programa');
 writeln('Tecle algo para finalizar o programar');
 readkey; 
 exit;
 end;
 
 1:begin
 writeln('--------------------');
 write('Quantos deseja cadastrar: ');
 readln(n);
 
 for i:=1 to n do 
 begin
 clrscr;
 writeln('REGISTRO: ',i);
 write('Informe o nome: ');
 readln(nome);
 write('Informe a nota: ');
 readln(nota);
 
 if nota >=8 then
 totap:=totap+1
 else if nota<8 then
 totrp:=totrp+1;
 
 mdt:=(nota+nota);
 end;
 mdt:=mdt/n;
 
 writeln('Tecle algo para voltar ao Menu');
 readkey; 
 end;
 
 2:begin
 writeln('--------------------');
 writeln('Total Alunos Aprovados:', totap);
 writeln;
 writeln('Total Alunos Reprovados:', totrp);
 writeln;
 writeln('Media da Turma:', mdt:2:2);
 writeln;
 writeln('Tecle algo para voltar ao Menu');
 readkey; 
 end;
 else
 writeln('Opção invalida para operação');
end;
end;
writeln('Tecle algo para finalizar o programar');
readkey; 
end.  	
4) Escreva um algoritmo para ler os coeficientes de uma equação do segundo grau, e ao final informe o valor das raízes. (1,0 pts)
Resolução:
Program RaizesDaEquacao;
uses crt;
procedure ler_valor(var a,b,c:real);
begin
writeln ('Pois bem. Vamos começar!');
writeln ( 'Diga os valores dos coeficientes nesta ordem');
write ('Primeiramente informe o valor de A = ');
read(a);
if (a<>0) then
begin
write ('Legal! Agora informe o valor de B = ');
read(b) ;
write ('E para toda mágica acontecer! agora inforne o valor de C = ');
read(c);
end
else
writeln('Não é uma equação do 2º grau ');
end;
function calcule_delta(a,b,c:real):real;
begin
calcule_delta:= b*b-4*a*c
end;
procedure calcula_raizes(delta,a,b:real);
var
x1,x2:real;
begin
if delta >=0 then
begin
x1:=(-b+sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a);
clrscr;
writeln('Tataranran!!!');
writeln('As raizes reais para esta equação são : ' );
writeln(' x1 = ',x1:2:2);
writeln(' x2 = ',x2:2:2);
end
else
write ('Ops! Parece que o pó mágico não deu certo (isso quer dizer que o resultado desta operação não pertence aos reais)');
end;
var
delta,a,b,c:real;
Begin
ler_valor(a,b,c);
delta:=calcule_delta(a,b,c);
calcula_raizes(delta,a,b);
readkey;
End.