Exercício 05 Registro - Pascal

5) Escreva um programa para cadastrar 50 clientes de uma loja. As informações necessárias são:
nome, endereço e telefone. Ao final do cadastro deverá ser montada uma tela para permitir a consulta
aos clientes: por código (que é o índice do vetor).
Deverá ser digitado o código 999 para encerrar o
programa. A tela de consulta deverá ter o seguinte formato:

Program Reg05 ;
uses crt;
Const MAX=3;
Type cliente=record
       nome:string;
       ende:string;
       phone:string;
      End; 
  tipo_cliente=array[1..MAX] of cliente;    
var      
 cadastro:tipo_cliente;
 i:integer;
 res:boolean;
 
procedure cadastrar(var cadastro:tipo_cliente); 
var
i : integer;
 Begin
  for i := 1 to MAX do 
   Begin
        Write(i,' Nome    : ');
        readln(cadastro[i].nome);
        Write(i,' Endereco: ');
        readln(cadastro[i].ende);
        Write(i,' Telefone: ');
        readln(cadastro[i].phone);
        Writeln;
   End; 
 End;
 
procedure consulta(cadastro:tipo_cliente; j:integer);
 Begin
   clrscr;
   Writeln('Codigo: ',j);
   Writeln('Nome      : ',cadastro[j].nome);
   Writeln('Endereco  : ',cadastro[j].ende);
   Writeln('Telefone  : ',cadastro[j].phone);   
 End; 
 
 Begin
  res:= true;
  cadastrar(cadastro);
  While res do
   Begin
        Writeln('>>>> Digite 999 para sair <<<<');    
        Write('  Informe Codigo do Cliente: ');    
        readln(i);
            if i = 999 then
                res:=false
            else consulta(cadastro,i);
                Writeln('Obrigado');
   end;     
 End.

Categories: Pascal , Programação