cadastro de um cliente com registro
Publicado por NewLinuxer 13/12/2005
[ Hits: 8.466 ]
progrma de exmeplo pra ler os campos relativos a um cadastro de cliente (uma pessoa só) e depois mostrar os dados armazenados
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;
script para ler um vetor e mostrar o conteúdo
Calculadora completa com porcentagem(Lazarus)
calculo de porcentagem em vetores
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Quero saber sobre os melhores aplicativos de office para usar em 2024 ... (3)
Queria saber se existe alguma forma de desistalar programa no ubuntu s... (3)
Toda vez que tento atualizar o clamav me deparo com erros ao atualizar... (0)