Repetição - algoritmo

1) Prepare um algoritmo para controlar informações sobre Fortunas . Foram entrevistadas 2000 famílias e seu algoritmo deverá ler os seguintes dados: • Valor da Fortuna • Origem da Fortuna (Trabalho, Herança ou Sorte) Seu Algoritmo deverá informar: • A quantidade de fortunas e o valor destas fortunas conseguidas com Trabalho. • A quantidade de fortunas e o valor destas fortunas conseguidas com Herança. • A quantidade de fortunas e o valor destas fortunas conseguidas com Sorte. • O Valor total da soma das 2000 fortunas • O valor da maior Fortuna.

Algoritmo fortunas;
Variáveis
valor_fortuna : real; origem_fortuna : caracter; n_fortuna : inteiro; quant_fortunas_trabalho : inteiro = 0; valor_fortunas_trabalho : real = 0; quant_fortunas_sorte : inteiro = 0; valor_fortunas_sorte : real = 0; quant_fortunas_heranca : inteiro = 0; valor_fortunas_heranca : real = 0; valor_total_fortunas : real = 0; maior_fortuna : real = 0;

Inicio para n_fortuna de 1 até 2000 passo + 1 faça leia(valor_fortuna); leia(origem_fortuna); caso origem_fortuna “trabalho”: quant_fortunas_trabalho = quant_fortunas_trabalho + 1; valor_fortunas_trabalho = valor_fortunas_trabalho + valor_fortuna; “sorte”: quant_fortunas_sorte = quant_fortunas_sorte + 1; valor_fortunas_sorte = valor_fortunas_sorte + valor_fortuna; “heranca”: quant_fortunas_heranca = quant_fortunas_heranca + 1; valor_fortunas_heranca = valor_fortunas_heranca + valor_fortuna; fim_caso valor_total_fortunas = valor_total_fortunas + valor_fortuna; Se valor_fortuna > maior_fortuna então maior_fortuna = valor_fortuna; fim_se fim_para escreva(quant_fortunas_trabalho); escreva(quant_fortunas_sorte); escreva(quant_fortunas_heranca); escreva(valor_fortunas_trabalho); escreva(valor_fortunas_sorte); escreva(valor_fortunas_heranca); escreva(valor_total_fortunas);