UNIASSELVI - Avaliação FINAL DISCURSIVA

Prévia do material em texto

Acadêmico: Marcos Cesar de Oliveira (1832011)
Disciplina: Algoritmo e Lógica de Programação (EEA02)
Avaliação: Avaliação Final (Discursiva) - Individual Semipresencial ( Cod.:460867) ( peso.:4,00)
Prova: 13568005
Nota da Prova: 5,50
1. Para a execução de alguma tarefa ou mesmo resolver algum problema, muitas vezes inconscientemente executamos algoritmos. Um algoritmo é uma sequência finita de instruções
ordenação de valores em algoritmos, que é muito comum e muito utilizada. Baseado nessa necessidade, escreva um algoritmo em Pascal, que receba três números inteiros e apres
Resposta Esperada:
program ordena_3_valores; 
uses crt; 
var a, b, c, aux: integer; 
begin 
 write('Informe o primeiro numero: '); 
 readln(a); 
 write('Informe o segundo numero: '); 
 readln(b); 
 write('Informe o terceiro numero: '); 
 readln(c); 
 if a>b then 
 begin 
 aux:=a; 
 a:=b; 
 b:=aux; 
 end; 
 if a>c then 
 begin 
 aux:=a; 
a:=c; 
c:=aux; 
 end; 
 if b>c then 
 begin 
 aux:=b; 
 b:=c; 
 c:=aux; 
 end; 
 writeln('Valores em ordem crescente: ', a, b, c); 
end.
2. Uma empresa deseja calcular o valor do salário do funcionário e o valor da comissão de suas venda. Baseado nesse cenário, escreva um algoritmo que leia o nome de um funcioná
apresentar ou informar o seu nome, o salário fixo e o salário final (salário+comissão).

Resposta Esperada:
Programa salario; 
var 
nome: caractere; 
salario: real; 
vendas: real; 
comissao: real; 
salarioFinal: real; 
comissao: real; 
 
inicio 
escreva('Digite o nome do vendedor: '); 
leia(nome); 
escreva('Digite o salário:'); 
leia(salario); 
escreva('Digite a comissão:'); 
leia(comissao); 
escreva(' Informe a quantidade de vendas deste no mês: '); 
leia(vendas); 
comissao:= 0.15 * vendas; 
salarioFinal := salario + comissao; 
 
escreva('Nome: ',nome); 
escreva('Salário: ',salario); 
escreva('Salário Final (salário + comissão): ',salarioFinal); 
 
fimalgoritmo