Exercício 03 Registro - Pascal

3) Faça um algoritmo que, inicialmente, cadastre 5 clientes e depois 5 contas, cada conta de um cliente.
No final, imprima o saldo mais alto e o cliente desta conta.

Program Reg03 ;
uses crt;
const MAX=50;
Type cliente=record
       nome:string;
       cpf:string[11];
       cod_conta:integer;
       cod_cliente:integer;
       saldo:real;
     End; 
  tipo_cliente=array[1..MAX] of cliente;
var
 dados:tipo_cliente;
 i:integer;     
 
procedure cadastro_cl(var dados:tipo_cliente);       
var
 i :integer;
 Begin
  for i:= 1 to MAX do
   Begin
        Write(i,' Informe Nome: ');
        readln(dados[i].nome);
        Write(i,' Informe CPF: ');
        readln(dados[i].cpf);
        Writeln;
   End; 
 End;
procedure cadastro_con(var dados:tipo_cliente);
var
i:integer;
 Begin
  for i := 1 to MAX do
   Begin
        Writeln(i,' Nome: ',dados[i].nome);
        Write(i,' Informe Codigo da Conta: ');
        readln(dados[i].cod_conta);
        Write(i,' Informe Codigo do Cliente: ');
        readln(dados[i].cod_cliente);
        Write(i,' Informe Saldo: ');
        readln(dados[i].saldo);    
        Writeln;
   End; 
 End;       
function sal_maior(dados:tipo_cliente):integer; 
var
 maior:real;
 posi,j:integer; 
  Begin
   maior := dados[1].saldo;
    for j := 1 to MAX do
     if dados[j].saldo > maior then
       posi := j;
    sal_maior := posi;   
  End;
  
 Begin
  cadastro_cl(dados); 
  clrscr; 
  cadastro_con(dados);  
  clrscr;
  i := sal_maior(dados);
  Writeln('Cliente Com Saldo Mais Alto');
  Writeln;
  Writeln('  CLIENTE');
  Writeln('Codigo: ',i);
  Writeln('Nome  : ',dados[i].nome);
  Writeln('Cpf   : ',dados[i].cpf);
  Writeln;
  Writeln('  CONTA');
  Writeln('Codigo Conta  : ',dados[i].cod_conta);
  Writeln('Codigo Cliente: ',dados[i].cod_cliente);
  Writeln('Codigo Saldo  : ',dados[i].saldo:0:2);
 End.

Categories: Pascal , Programação