Exercício Resolvido, Algoritmo de Calculo de custo Teatral

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