Exercício Resolvido, Algoritmo de Calculo de custo Teatral
Linguagem de Programação, Pascal
Faça um algoritmo que receba o custo de um espetáculo teatral e o preço do
convite deste espetáculo. Esse algoritmo deve calcular e mostrar a quantidade
de convites que devem
ser vendidos para
que pelo menos o custo
do espetáculo seja alcançado.
program
Teatro;
uses Crt;
//Variaveis
var preco, total, ingresso:real;
i: integer; //Inteiro Contador
//Procedures
procedure desenhelinha;
begin
for i:=0 to 79 do
write('-');
end;
procedure espaco;
begin
for i:=0 to 79 do
write(' ');
end;
//Programa Principal
begin
desenhelinha;
espaco;
writeln('Seja Bem-Vindo ao
Programa de Calculo de Ingressos Minimos');
writeln(' Insira o preco do
espetaculo ');
readln (preco);
writeln('Insira o valor unitario
dos Ingressos ');
readln (ingresso);
total:=(preco/ingresso)+1;
writeln('O Minimo de Ingressos a
Serem Vendidos e de ', total:3:0, ' unidades ');
espaco;
desenhelinha;
writeln('Pressione enter para
realizar um novo calculo ...');
readkey; //Espera de entrada de usuário
clrscr; //Limpa Tela
end.
The Schoolpedia
2013
