controle de locadora
Publicado por NewLinuxer 14/12/2005
[ Hits: 8.297 ]
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.
Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)
Visualizador de imagem Pascal/Lazarus
vendas de uma empresa em matriz
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Instalando TeamViewer no Debian 12
Conheça o Octopi, outro frontend para o Pacman com acesso ao AUR (Arch Linux e derivados)
Terminal transparente no Debian 12 com interface i3wm usando Xfce4-Terminal e Compton
horário adiantado no sistema (12)
Apertei Crtl+alt+f4 e agora somente inicia na linha de comando (1)
Eu estou com problemas para usar o QBASIC no Dosbox X (3)
Tibia não pode ser aberto em virtual machine (14)
Após atualização do Ubuntu 22.04.4 LTS perdi a instalação da placa de ... (3)