cadastro de multiplos clientes com registro
Publicado por NewLinuxer 13/12/2005
[ Hits: 6.802 ]
neste o objetivo é criar um registro pra armazenar os dados cadastrais de cinco cliente e no final mostrar todos os dados armazenados
Program registro02;
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:array [1..5] of registro;
contador:integer;
Begin
ClrScr;
For contador := 1 to 5 do
Begin
Write('Informe o nome do cliente n.',contador,': ');
readln(reg[contador].nome);
Write('Informe o código do cliente: ');
readln(reg[contador].cod_cliente);
Write('Informe o endereço: ');
readln(reg[contador].endereco);
Write('Informe data de nascimento: ');
readln(reg[contador].data_nasc);
Write('Informe o sexo (M/F): ');
readln(reg[contador].sexo);
Write('Informe o salário mensal: ');
readln(reg[contador].sal);
Write('Informe a idade: ');
readln(reg[contador].nome);
Writeln;
End;
ClrScr;
For contador:= 1 to 5 do
Begin
Writeln('Os dados informado do cliente n.', contador,'são:');
Writeln('Código do Cliente: ',reg[contador].cod_cliente);
Writeln('Nome: ',reg[contador].nome);
Writeln('Endereço: ',reg[contador].endereco);
Writeln('Data de Nascimento: ',reg[contador].data_nasc);
Writeln('Sexo: ',reg[contador].sexo);
Writeln('Salário Mensal: ',reg[contador].sal);
Writeln('Idade: ',reg[contador].idade);
Writeln;
End;
Readkey;
End.
Gerador de senha Pascal/Lazarus
armazenar estoque em uma matriz
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
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
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
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (3)
O programa assinador digital (3)
Warcraft II Remastered no Linux? (2)









