cadastro de um cliente com registro

Descrição

Esconder código-fonte

Program registro01;

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:registro;

Begin
  ClrScr;
  
  Write('Informe o nome do cliente: ');
  readln(reg.nome);
  Write('Informe o código do cliente: ');
  readln(reg.cod_cliente);
  Write('Informe o endereço: ');
  readln(reg.endereco);
  Write('Informe data de nascimento: ');
  readln(reg.data_nasc);
  Write('Informe o sexo (M/F): ');
  readln(reg.sexo);
  Write('Informe o salário mensal do cliente: ');
  readln(reg.sal);
  Write('Informe a idade: ');
  readln(reg.nome);
  
  ClrScr;
  
  Writeln('Os dados informado do cliente são:');
  Writeln('Código do Cliente: ',reg.cod_cliente);
  Writeln('Nome: ',reg.nome);
  Writeln('Endereço: ',reg.endereco);
  Writeln('Data de Nascimento: ',reg.data_nasc);
  Writeln('Sexo: ',reg.sexo);
  Writeln('Salário Mensal: ',reg.sal);
  Writeln('Idade: ',reg.idade);
  
  Writeln;
  
  Readkey;

end;