cadastro de um cliente com registro

Publicado por NewLinuxer 13/12/2005

[ Hits: 8.441 ]

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

mais um modelo de programa com vetor

Conjuntos

Primo

Operações básicas da matemática

Crivo de Eratóstenes Simples em Ada 95


  

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