cadastro de multiplos clientes com registro

Publicado por NewLinuxer 13/12/2005

[ Hits: 6.189 ]

Download exerc02.pas




neste o objetivo é criar um registro pra armazenar os dados cadastrais de cinco cliente e no final mostrar todos os dados armazenados

  



Esconder código-fonte

Program registro02;

Type registro = Record
      cod_cliente:integer;
      nome:string[30];
      endereco:string[30];
      data_nasc:string[11];
      sexo:char;
      sal:real;
      idade:integer;
      End;

Var
  reg:array [1..5] of registro;
  contador:integer;
  
Begin
  ClrScr;
  
  For contador := 1 to 5 do
  Begin
    Write('Informe o nome do cliente n.',contador,': ');
    readln(reg[contador].nome);
    Write('Informe o código do cliente: ');
    readln(reg[contador].cod_cliente);
    Write('Informe o endereço: ');
    readln(reg[contador].endereco);
    Write('Informe data de nascimento: ');
    readln(reg[contador].data_nasc);
    Write('Informe o sexo (M/F): ');
    readln(reg[contador].sexo);
    Write('Informe o salário mensal: ');
    readln(reg[contador].sal);
    Write('Informe a idade: ');
    readln(reg[contador].nome);
    Writeln;
  End;
  
  ClrScr;
  
  For contador:= 1 to 5 do
  Begin  
    Writeln('Os dados informado do cliente n.', contador,'são:');
    Writeln('Código do Cliente: ',reg[contador].cod_cliente);
    Writeln('Nome: ',reg[contador].nome);
    Writeln('Endereço: ',reg[contador].endereco);
    Writeln('Data de Nascimento: ',reg[contador].data_nasc);
    Writeln('Sexo: ',reg[contador].sexo);
    Writeln('Salário Mensal: ',reg[contador].sal);
    Writeln('Idade: ',reg[contador].idade);
    
    Writeln;
  End;
  
  Readkey;
End.

Scripts recomendados

Calculadora usando procedures

Media dos Alunos

palindroma

Mcd de una serie de numeros

Funções strings e matemáticas


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts