Passagens Vendidas + Quantidade de Poltronas

[gnr_ssa 0]

questãoFazer 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 otro5- O usuario deve optar pelo onibus leito ou convencional6 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 onibus8 - O programa deverá repetir-se para a venda de passagem novamente até quando o usuario desejar.Prrograma tem que rodar em PASCALalguem pode da uma ajudinha ??

[Giovani 104]

Você já fez alguma coisa do exercício?

Se tiver feito posta para o pessoal olhar e tentar ajudar.

 

Título Editado

Sai: ajuda exercicio valendo ponto

Entra: Passagens Vendidas + Quantidade de Poltronas

[gnr_ssa 0]

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;varnome,senha,sair,leito,convencional: string;onibus,quantleito,quantconv,passagens,quantpassa,valor,valorpassa,x :real;beginclrscr;leito:='30';convencional:='40';senha:='123';sair :='s';writeln ('Digite seu nome');readln(nome);repeatwriteln ('Digite a senha');readln (senha);if senha <> '123' thenwriteln ('Senha invalida');until senha = '123';repeatwriteln ('Informe o tipo do onibus, 1 para leito ou 2 para convencional');readln (onibus);if onibus = 1 thenquantleito := quantleito +1elsequantconv := 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 thenwriteln ('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.