controle de locadora

Publicado por NewLinuxer 14/12/2005

[ Hits: 8.374 ]

Download exerc07.pas




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.

  



Esconder código-fonte

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.

Scripts recomendados

Existência de triângulo, em Pascal

Extenso em dll, com parâmetros adicionais

somatório de uma matriz 7x5

Operações básicas da matemática

Executar comando do DOS.


  

Comentários
[1] Comentário enviado por doradu em 10/02/2010 - 17:45h

na hora de digitar o gênero só aceita da 2a. vez, e qualquer tecla eigitada é aceita

[2] Comentário enviado por doradu em 10/02/2010 - 17:46h

esse '<>' é o mesmo '='? (no Pascal)

[3] Comentário enviado por doradu em 10/02/2010 - 17:54h

falta a biblioteca 'crt'


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts