controle de locadora
Publicado por NewLinuxer 14/12/2005
[ Hits: 8.374 ]
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.
Existência de triângulo, em Pascal
Extenso em dll, com parâmetros adicionais
Operações básicas da matemática
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Não consigo instalar o IDLE no Debian (4)
11 russos foram removidos do desenvolvimento do kernel Linux (3)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta