Algoritmo e Programação (LIN12) escrita

Prévia do material em texto

Acadêmico: Paulo Henrique Oliveira Cruz (1942566)
Disciplina: Algoritmo e Programação (LIN12)
Avaliação: Avaliação Final (Discursiva) - Individual FLEX ( Cod.:649327) ( peso.:4,00)
Prova: 22628660
Nota da Prova: 6,75
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. Com base nisso, elabore um algoritmo para atender ao seguinte cenário:
Uma loja de roupas resolveu fazer uma grande promoção e parcelar todas as compras em cinco
vezes. Faça um algoritmo que receba um valor de uma compra e mostre o valor das prestações.
Resposta Esperada:
programa prestacao;
var
compra, prestacao: real;
inicio
escreva('Digite o valor da compra: ');
leia(compra);
prestacao := compra/5;
escreval('O cliente deverá pagar 5 prestações de R$",prestacao," cada");
fim;
2. 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.