controle de locadora
Publicado por NewLinuxer 14/12/2005
[ Hits: 8.490 ]
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.
Extenso em dll, com parâmetros adicionais
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
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
Sempre que vou baixar algum pacote acontece o erro dpkg (7)
como instalo panfrost-dri e o driver panfrost fork , ou panfrost (12)