cadastro de multiplos clientes com registro

Publicado por NewLinuxer 13/12/2005

[ Hits: 6.147 ]

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

Jogo Sudoku em Pascal

Calculo de la Moda

Soma dois Valores e exibe o resultado

Metodo de Ordenacion : Burbuja

média de uma turma


  

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