algoritmo???alguem pode resolver pra mim por favor?
numa casa de show são vendidos ingressos em três categorias (mesa, camarote e arquibancada). Elabore um programa para ler o total de (ingressos ao final de um dia, em cada categoria, e informar:
a porcentagem de ingressos vendidos em cada categoria;
o faturamento total do dia, na referida casa de show.
categoria:
mesa
camarote
arquibancada
preço:
45,00 mesa
30,00 camarote
15,00 arquibancada
Comments
Sem a falar a linguagem fica meio difícil mas um exemplo seria
Var Mesa, Camarote, arquibancada, total: Integer;
Mporcent, Cporcent, Aporcent : Real;
Begin
Writeln ("Quantos ingressos de mesa foram vendidos?");
Readln (Mesa);
Writeln ("Quantos ingressos de camarote foram vendidos?");
Readln (Camarote);
Writeln ("Quantos ingressos de arquibancada foram vendidos?");
Readln (Arquibancada);
total = Mesa+Camarote+Arquibancada;
Aporcent = (Arquibancada/Total)*100
Mporcent = (Mesa/Total)*100
Cpocernt = (camarote/Total)*100
Writeln ("A somatória do total de ingressos vendidos foi de ", Total);
Writeln ("A porcentagem de ingressos na arquibancada foi de ", Aporcent,"%");
Writeln ("A porcentagem de ingressos na Mesa foi de ", Mporcent,"%");
Writeln ("A porcentagem de ingressos no Camarotefoi de ", Cporcent,"%");
End