cadastro de um cliente com registro

Publicado por NewLinuxer 13/12/2005

[ Hits: 8.298 ]

Download exerc01.pas




progrma de exmeplo pra ler os campos relativos a um cadastro de cliente (uma pessoa só) e depois mostrar os dados armazenados

  



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;

Scripts recomendados

Função Fatorial Recursiva em Ada 95

Registro

Criptografador(Conceito criptografia)Lazarus

Matrizes

cadastro de multiplos clientes com registro


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts