Cadastro de Clientes em Pascal Parte 1

Trago mais um problema clássico em Pascal onde os professores pedem algo do gênero:

"Crie um programa Pascal que armazene os dados de 5 clientes. O cliente deve ser cadastrado com Nome, Idade e Sexo."

Esse problema clássico pode ser resolvido de várias formas e resolvi dividir essa postagem para que cada pessoa de cada nível de Pascal possa entender as soluções.

Cadastro de Clientes em Pascal 01.jpg

Nesse programa inicial se temos que armazenar cinco clientes nós vamos ter que criar cinco variáveis Nome, cinco Idade e cinco Sexo.

Veja o programa:

 Program Cadastro_de_Clientes_Versao_0;  
 Uses Crt;  
 Var  
  Nome1, Nome2, Nome3, Nome4, Nome5 : String[40];  
  Idade1,Idade2,Idade3,Idade4,Idade5 : Integer;  
  Sexo1,Sexo2,Sexo3,Sexo4, Sexo5 : Char;  
 Begin  
  ClrScr;  
  WriteLn ('Cadastro de Clientes VersÆo 0');  
  WriteLn;  
  WriteLn ('Cliente No.1');  
  Write ('Nome...:'); ReadLn (Nome1);  
  Write ('Idade..:'); ReadLn (Idade1);  
  Write ('Sexo...:'); ReadLn (Sexo1);  
  WriteLn ('Cliente No.2');  
  Write ('Nome...:'); ReadLn (Nome2);  
  Write ('Idade..:'); ReadLn (Idade2);  
  Write ('Sexo...:'); ReadLn (Sexo2);  
  WriteLn ('Cliente No.3');  
  Write ('Nome...:'); ReadLn (Nome3);  
  Write ('Idade..:'); ReadLn (Idade3);  
  Write ('Sexo...:'); ReadLn (Sexo3);  
  WriteLn ('Cliente No.4');  
  Write ('Nome...:'); ReadLn (Nome4);  
  Write ('Idade..:'); ReadLn (Idade4);  
  Write ('Sexo...:'); ReadLn (Sexo4);  
  WriteLn ('Cliente No.5');  
  Write ('Nome...:'); ReadLn (Nome5);  
  Write ('Idade..:'); ReadLn (Idade5);  
  Write ('Sexo...:'); ReadLn (Sexo5);  
  ReadLn;  
 End.  

Essa é a estrutura mais simples para fazermos isso, mas imagine se você tiver que cadastrar 50 clientes, como iria ficar o programa?

Na próxima parte vamos melhorar o programa dê modo a poder cadastrar quantos clientes forem necessários.

Nenhum comentário:

Postar um comentário