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.

• Download exerc07.pas
• Enviar nova versão

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.

Array de números aleatórios não-repetidos de um intervalo em Pascal

calculo de porcentagem em vetores

Gerador de Senha no Lazarus

Calculadora Completa feita no Lazarus(Delphi 7 para Linux)

Programa lê nome (básico) - Pascal para iniciantes