Avaliação Final (Discursiva) - Algoritmo e Lógica de Programação - Individual Semipresencial (Cód 687774) Algoritmo e Lógica de Programação (EEA02) - Prova 41892896 docx

Prévia do material em texto

Avaliação Final (Discursiva) - Individual Semipresencial (Cód.:687774) Algoritmo e 
Lógica de Programação (EEA02) - Prova 41892896 
 
1. Na construção de um algoritmo, uma das suas principais fases é o processamento dos dados 
informados pelo usuário, em que poderão ser realizadas diversas operações aritméticas sobre 
as variáveis declaradas ou valores previamente especificados, a fim de obter o resultado final 
desejado. Neste sentido, desenvolva um algoritmo que possibilite ao usuário informar o seu 
nome, peso e altura e posteriormente calcular o seu IMC (índice de massa corporal), o qual é 
calculado utilizando a seguinte fórmula: (peso/altura elevado ao quadrado). Ao final, exiba uma 
mensagem ao usuário com o seu nome e IMC calculado. 
Resposta: 
algoritmo ‘calcula_IMC’ 
var 
Nome: caractere 
Peso, Altura, Imc : Real; 
 
Inicio 
Escreva(“informe o seu nome: ‘) 
Leia(Nome); 
escreva ('informe seu peso'); 
leia(peso); 
escreva ('informe sua em centímetros'); 
leia(altura); 
imc:=peso/(altura*altura) 
escreva ('seu IMC e:' , Nome, ‘ e de ‘ imc) 
fim 
 
2. Fazendo uso da linguagem Pascal, desenvolva um programa com o nome Calcula_Media. O 
mesmo deverá realizar a leitura do nome do aluno e as três notas de uma disciplina. Ao final, 
escreva o nome do aluno, sua média e se ele foi aprovado, considerando que a média para 
aprovação deverá ser igual ou maior que 7 (sete). 
Observação: não é necessário a utilização de Array. 
 
Resposta: 
 
Program Calcula_Media; 
var 
Nome : string; 
Disciplina : string; 
Nota1,Nota2, Nota3, Media : Real; 
Begin 
Write (‘Informe o nome do aluno’); 
Readln(Nome); 
Write ('Entre com o nome da Disciplina: ’); 
Readln(disciplina); 
Write(‘Informe a primeira nota: ’); 
Readln(Nota 1); 
Write(‘Informe a segunda nota: ’); 
Readln(Nota 2); 
Write(‘Informe a terceira nota: ’); 
Readln(Nota 3); 
Media:=(Nota1+Nota2+Nota3)/3; 
If Media >=7 Then 
Begin 
Write (‘O aluno, ‘Nome “observe a média: ‘,Media, ‘ sendo aprovado’); 
End 
Eise 
Begin 
Write (‘O aluno, ‘Nome “observe a média: ‘,Media, ‘ sendo reprovado’); 
End; 
Edn.