Duvida Em Exercicio

[gnr_ssa]

questão

Fazer um programa que simule a venda de passagens para dois onibus ( um leito e outro convencional ). Ao final das vendas o programa deverá apresentar o número de passagens vendidas e a quantidade de poltronas vazias em cada ônibus se houver.

OBS:

1 - O programa deverá solicitar o nom e a senha ao usuario.

2 - Enquanto a senha não for verdadeira. exibir senha invalida.

3 - Solicitar do usuario a quantidade de poltronas dos onibus.

4 - Considerar um onibus menor do que o otro

5- O usuario deve optar pelo onibus leito ou convencional

6 Considrar preço da passagem R$ 120,00 o onibus leito, R$ 80,00 o onibus convencional.

7- As vendas de passagens deverão ser encerradas no momento em que lotar o primeiro onibus

8 - O programa deverá repetir-se para a venda de passagem novamente até quando o usuario desejar.

Programa tem que rodar em PASCAL

e aí qeum pode ajudinha de como fazer isso ?

Editado Maio 25, 2007 por gnr_ssa

[kandrade]

não poste o mesmo tópico em vários fóruns aqui na SB.

voce já tentou fazer alguma coisa?

tem dúvida na lógica ou na linguagem de programação?

qual sua dúvida?

[raphael_suporte]

você consegue fazer isso em portugol?? se sim beleza você só tem que usar a sintaxe de Pascal, agora se você já que a receita de bolo pronta fica díficil né, eu estaria fazendo o seu trabalho. tente fazer e as duvidas você vai postando aqui...

[gnr_ssa]

tipo eu fiz aqui, mas está faltando algumas coisas que foi solicitado acima

1º - Tipo ele pede pra mostrar a quantidade de poltronas vazias em cada onibus se houver, não conseguir fazer isso.

2º - As vendas de passagen deverão ser encerradas no momento em que lotar o primeiro onibus, eu ate fiz a logica ali mas não está funcionado.

3º - Repetir o programa para venda de passagens novamente ate quando o usuario desejar, não conseguir.

program trabalhoAV2;

uses crt;

var

nome,senha,sair,leito,convencional: string;

onibus,quantleito,quantconv,passagens,quantpassa,valor,valorpassa,x :real;

begin

clrscr;

leito:='30';

convencional:='40';

senha:='123';

sair :='s';

writeln ('Digite seu nome');

readln(nome);

repeat

writeln ('Digite a senha');

readln (senha);

if senha <> '123' then

writeln ('Senha invalida');

until senha = '123';

repeat

writeln ('Informe o tipo do onibus, 1 para leito ou 2 para convencional');

readln (onibus);

if onibus = 1 then

quantleito := quantleito +1

else

quantconv := quantconv +1;

writeln ('Digite a quantidade de passagens');

readln (passagens);

writeln ('digite o valor da passagen R$120 para leito e R$80 para convencional');

readln (valor);

x:=passagens*valor;

if quantleito >= 30 then

writeln ('Passagens encerradas');

valorpassa := valorpassa*quantpassa;

writeln ('O total de passagen vendidas Foi: ',passagens:3:2, ' valor total R$',x:3:2);

writeln ('Deseja sair do programa S ou N ?');

until sair = 's';

readln;

end.

[kandrade]

writeln ('Informe o tipo do onibus, 1 para leito ou 2 para convencional');
readln (onibus);
if onibus = 1 then
   quantleito := quantleito +1
else
   quantconv := quantconv +1;

writeln ('Digite a quantidade de passagens');
readln (passagens);
writeln ('digite o valor da passagen R$120 para leito e R$80 para convencional');
readln (valor);
x:=passagens*valor;
if quantleito >= 30 then
   writeln ('Passagens encerradas');
valorpassa := valorpassa*quantpassa;
writeln ('O total de passagen vendidas Foi: ',passagens:3:2, ' valor total R$',x:3:2);
writeln ('Deseja sair do programa S ou N ?');
until sair = 's';

antes de fazer cálculos com as variaveis que acumulam valor, atribua "0" a elas, então antes de iniciar o laço faça:

quantleito:=0;
quantconv:=0;

só incremente essas variáveis quando o número de passagens for informado. porque só ai voce verá quantos lugares tem que ser reservado, seu contador também muda um pouco. Ex:

quantleito:=quantleito+passagens;

1º - Tipo ele pede pra mostrar a quantidade de poltronas vazias em cada onibus se houver, não conseguir fazer isso.

isso voce faz depois do laço, assim:

vaziasl = leito -  quantleito;
vaziasc = convencional - quantconv;

vai acertando isso e se tiver mais dúvidas volte a postar.

;)

[raphael_suporte]

em relação ao

item 1 = você faz um laço, e aponta a em uma variavel "extra", toda vez que for feita uma venda você essa variavél recebe ela +1 tipo( j := j +1) e outra você coloca em outra variavel o numero de poltranas por exemplo (Pleito =: leito - j)

2 quando o valor de poltronas - j for = 0 para a venda

3 "Não entendi"