cadastro de multiplos clientes com registro
Publicado por NewLinuxer 13/12/2005
[ Hits: 6.734 ]
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.
programa pra carregear duas matrizes e achar o maior
Array de números aleatórios não-repetidos de um intervalo em Pascal
Nenhum coment�rio foi encontrado.
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Instalando Discord no Debian 13
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
Software livre - será que eu estou tão errado assim? (9)
Boot do PosRog so funciona em notebook (1)