cadastro de um cliente com registro
Publicado por NewLinuxer 13/12/2005
[ Hits: 8.331 ]
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;
Contador de números (Pascal) - efeito Matrix
escreve os números de 1 a 9 com repeat - until
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Preparando pendrive com GNU/Linux [Corretamente!]
Instalando Google Chrome no Fedora 40
Habilitando a importação de senhas no Firefox
Como corrigir o erro do VirtualBox travar a máquina virtual em tela cheia
Navegadores com linhas na tela (7)
Microfone muito ruim somente no Linux (0)
Altera pacote .pkg.tar do Arch Linux (19)