Algoritmo e Lógica de Programação - Avaliação discursiva- Individual

Prévia do material em texto

1Crie um algoritmo que leia como informações do usuário o valor da base e o valor da 
altura de um triângulo qualquer. Ao final da leitura, o algoritmo deverá calcular e 
imprimir o valor da área do triângulo, sabendo que esta área é dada pela fórmula: 
S=(b*h)/2. Observações: S = área, b = base, h = altura. 
Resposta esperada 
O acadêmico desenvolveu o algoritmo conforme a resposta esperada (imagem anexa), 
definindo corretamente o nome do algoritmo, as variáveis e o cálculo, além de respeitar 
a endentação e o uso correto dos comandos de entrada e saída, possibilitando que ao 
final seja impressa a mensagem. 
 
Minha resposta 
Algoritmo "Triangulo" Var base, altura, area: inteiro inicio Primo = Verdadeiro 
Escreva("Digite a base do triangulo:") Leia(base) Escreva("Digite a altura do 
triangulo:") Leia(base) Area=(base * altura)/2 Escreva("A area do triangulo é = a:", 
área) fimalgoritmo 
 
 
2Para 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.