cadastro de um cliente com registro
Publicado por NewLinuxer 13/12/2005
[ Hits: 8.667 ]
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;
Cálculadora de décimo terceiro
Existência de triângulo, em Pascal
Metodo de Ordenacion : Burbuja
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Problemas com Driver NVIDIA (3)
Linux é a solução para o fim do Windows10? (1)
Programa fora de escala na tela do pc (28)
converter algoritmo C++ em C? (1)
Fedora KDE plasma 42 X Módulo de segurança BB (Warsaw-2) (1)









