INF01202 - Laboratório 2 - Problema 1

Problema 1:

A partir do preço à vista de um terreno, e fornecida a opção de pagamento, se à vista ou a prazo, e neste caso, se em 3 ou 5 vezes, calcular o preço total a pagar e o valor da prestação mensal, se pertinente. Se o pagamento for parcelado em três vezes, deverá ser dado um acréscimo de 10% no total a ser pago. Se for parcelado em cinco vezes, o acréscimo será de 20%. Ao final, conforme o caso, escrever os dados a seguir que forem pertinentes: o preço à vista, o preço total a pagar, o número de parcelas e o valor da parcela mensal.

Código fonte do Programa em Pascal:

program Terreno;
uses
  Crt;
var
  valorVista, valorTotal, valorParcela: Real;
  nParcelas: Integer;
begin
  clrscr;
  writeln('Venda de Terrenos');
  writeln('-----------------');
  write('Valor do Terreno a Vista: '); readln(valorVista);
  write('Numero de Parcelas (3 ou 5, outro = a Vista): '); readln(nParcelas);
  writeln;
  writeln;

  writeln('Resultado da Venda');
  writeln('------------------');
  writeln;
  writeln('Preco a vista: ', valorVista:5:2);

  if nParcelas = 3 then
  begin
    valorTotal := valorVista * 1.1;
    valorParcela := valorTotal / nParcelas;

    writeln('Numero de parcelas: ', nParcelas);
    writeln('Valor da Parcela: ', valorParcela:5:2);
  end
  else if nParcelas = 5 then
  begin
    valorTotal := valorVista * 1.2;
    valorParcela := valorTotal / nParcelas;

    writeln('Numero de parcelas: ', nParcelas);
    writeln('Valor da Parcela: ', valorParcela:5:2);
  end
  else
  begin
    valorTotal := valorVista;
  end;

  writeln('Valor Total: ', valorTotal:5:2);

  readln;
end.