Prova final de algoritmo

Prévia do material em texto

Acadêmico: Anderson Santiago Caldas (1933485)
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: 8,00
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 bem definidas e não ambíguas,
devendo ser executadas em um intervalo de tempo e esforço finito. Um exemplo é a 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 apresente uma mensagem com os valores em ordem crescente.
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ário, o seu salário fixo, seu percentual de
comissão e o total de vendas efetuadas por ele no mês (em dinheiro). Ao final, 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