neste o objetivo é criar um registro pra armazenar os dados cadastrais de cinco cliente e no final mostrar todos os dados armazenados

• Download exerc02.pas
• Enviar nova versão

Esconder código-fonte

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.

Mostrar maior e menor

Funções strings e matemáticas

Tratamentos de Erros

Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius

Gerador de Senha no Lazarus

Nenhum comentário foi encontrado.