cadastro de um cliente com registro

Publicado por NewLinuxer 13/12/2005

[ Hits: 8.446 ]

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

Gerador de senha Pascal/Lazarus

programa pra somar e tirar média

Mcd de una serie de numeros

SpaceAllience_Animation

Calculadora básica no Lazarus


  

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