cadastro de multiplos clientes com registro

Descrição

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.