controle de locadora
Publicado por NewLinuxer 14/12/2005
[ Hits: 8.489 ]
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.
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Organizando seus PDF com o Zotero
Erro no realm join [Resolvido]
Um programa para baixar vídeos: Parabolic
Como Definir o Painel Principal em Múltiplos Monitores no Linux Mint
Driver de rede realtek 8821ce bugado (3)
Como propositadame... colocar bordas pretas na tela? (1)
Atalhos duplicados (sobras de instalações anteriores) (3)
Como fazer para mudar a frequência da GPU ou pelo menos da CPU no term... (7)