Algoritmos Operacionais

1) Construa um algoritmo que solicite ao usuário o valor, em reais, de um notebook e calcule as seguintes operações:

a) Valor da parcela na venda à vista com 10% de desconto.
b) Valores das parcelas na venda a prazo em três vezes (uma parcela de entrada mais duas parcelas sem juros).
c) Valores das parcelas na venda a prazo em seis vezes (6x com ou sem entrada) com juros de 10% sobre o valor total do produto.
d) Valores das parcelas a prazo acima de seis vezes (até 12 vezes com ou sem entrada) com juros de 30% sobre o valor total do produto.

2) Desenvolva um algoritmo, usando alguma estrutura de repetição que calcula a somatória dos dez primeiros termos da série seguinte: Somatório = 1/2 + 2/3 + 4/4 + 8/5 + ...

Ao final, você deverá elaborar um relatório contendo todo o código-fonte dos algoritmos.

1 – Resposta:

Program CompraNotebook ; var preco, parcem3, parcem6, parcem12, desconto, ttem6x, entrada, ttem12x :real; i :integer; Begin write('Informe o valor do Notebook: '); {solicita o valor do notebook} readln(preco); desconto := preco*0.9; writeln('Valor à vista com 10% de desconto: R$', desconto:5:2); write('Informe o valor de entrada para parcelar em 3x sem juros: '); {solicita o valor de entrada} readln(entrada); parcem3 := (preco-entrada)/2; {calcula as 2 parcelas dos valores restantes} ttem6x := preco*1.1; {calcula o total com acrécimo de 10%} parcem6 := ttem6x/6; {divide o total em 6x já com acrécimo de 10%} ttem12x :=preco*1.3; {calcula o total com acrécimo de 30%} writeln('Entrada de R$', entrada:5:2,' mais ','2 de R$', parcem3:5:2); writeln('Em 6x de R$', parcem6:5:2,' com 10% de juros = total de R$',ttem6x:5:2); for i := 7 to 12 do {para imprimir a partir de 7x o até 12x} begin writeln('Em ',i,'x de R$', (ttem12x/i):5:2,' com 30% de juros = total de R$',ttem12x:5:2); end; {realiza a divisão das parcelas conforme a varivável "i" é impressa}