cadastro de um cliente com registro

Publicado por NewLinuxer 13/12/2005

[ Hits: 8.445 ]

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

escreve os números de 1 a 9 com repeat - until

Números primos (usando arrays)

Soma dois Valores e exibe o resultado

equação de 2º grau

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