controle de locadora
Publicado por NewLinuxer 14/12/2005
[ Hits: 8.268 ]
Algoritmo que armazena para 10 filmes, o código, o nome, o gênero (ação ou comédia), censura (em idade), tamanho do filme (em minutos), valor da locação e resumo do filme. No final lista para todos os filmes cadastrados o código, o nome, o genero e o valor da locação com desconto de 20% para filmes de ação e 50% para os de comédia.
Program registro07; Type registro = Record codigo:integer; titulo:string[30]; genero:string[1]; censura:integer; duracao:integer; valor:real; resumo:string; End; Var reg:array [1..10] of registro; contador:integer; Begin ClrScr; For contador := 1 to 10 do Begin Write('Informe o código do filme n. ',contador,': '); readln(reg[contador].codigo); Write('Informe o título do filme n. ',contador,': '); readln(reg[contador].titulo); Write('Informe o gênero do filme n. ',contador,'(<A>ção / <C>omédia):'); readln(reg[contador].genero); If (reg[contador].genero <> 'A') or (reg[contador].genero <> 'a') or (reg[contador].genero <> 'C') or (reg[contador].genero <> 'c') then Repeat Begin Writeln('Genero errado. Informe novamente'); Write('"A" para ação ou "C" para comédia: '); readln(reg[contador].genero); End; Until (reg[contador].genero <> 'A') or (reg[contador].genero <> 'a') or (reg[contador].genero <> 'C') or (reg[contador].genero <> 'c'); Write('Informe a idade de Censura do filme n. ',contador,': '); readln(reg[contador].censura); Write('Informe a duração do filme n. ',contador,': '); readln(reg[contador].duracao); Write('Informe o valor da locação do filme n. ',contador,': '); readln(reg[contador].valor); Write('Apresente um resumo do filme n. ',contador,': '); readln(reg[contador].resumo); Writeln; End; ClrScr; For contador:= 1 to 10 do Begin Writeln(reg[contador].codigo,'. ',reg[contador].titulo); Write('Genero: '); If (reg[contador].genero <> 'A') or (reg[contador].genero <> 'a') then Begin Writeln('Ação'); Writeln('Valor da locação com desconto: ', reg[contador].valor*0.80:2:2); End; If (reg[contador].genero <> 'C') or (reg[contador].genero <> 'c') then Begin Writeln('Comédia'); Writeln('Valor da locação com desconto: ', reg[contador].valor*0.50:2:2); End; Writeln; End; Readkey; End.
Números primos (usando arrays)
Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius
calcular o percentual de pessoas que sao maiores de idade
Metodo de Ordenacion : Burbuja
Como agendar um backup automático do PostgreSQL no Cron evitando o problema de senha
Como preparar o Vim/Neovim para corrigir ortografia em português
Dark Web e Malwares na internet, quanto custa?
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Como verificar o hash de um arquivo baixado da Internet e como criar um hash
Debian 12 - IPTABLES - removendo NFTABLES
OverWatch 2 - Abrindo portas do jogo no Iptables.
Como instalar o adaptador wifi USB Intelbras ACtion A1200 no Linux Mint
Como normalizar seus arquivos MP3 para que fiquem no mesmo volume
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba
[Shell Script] Tire screenshots com Scrot facilmente com Zscrot
[Shell Script] DioPSI - Script multidistro para instalar programas
[Shell Script] ARS Vídeos - Cortador de vídeos e webcam shooter