Cadastro de Clientes em Pascal Parte 2

Dando seguimento a postagem anterior vamos melhorar o nosso programa.

Na postagem anterior o programa armazenava 5 clientes apenas, já nessa nova versão vamos armazenar 15 clientes e fica claro a facilidade de aumentar o número de clientes.

No Pascal a uma boa forma de criar multiplas variáveis é através de uma ARRAY (Matriz).

Matriz?

Sim, a própria matriz da matemática e o funcionamento é igual.

Para o nosso programa vamos criar três matrizes: uma para o nome, uma para idade e uma para o sexo.

A matriz deverá conter no nosso programa 15 valores e será uma matriz de 1 x 15:

[ Joao Maria Pedro Marcelo Joana ..... ]

[ 21 18 30 25 16 ......]

[ M F M M F .....]

Como criar uma matriz assim em Pascal?

Como disse anteriormente vamos usar uma ARRAY.

Então quando for criar as variáveis:

Nome : ARRAY [1..15] of String [40];

Idade: ARRAY [1..15] of Integer;

Sexo : ARRAY [1..15] of Char;

ARRAY [1..15] significa que agora teremos para a variável Nome quinze variáveis dá variável 1 até a 15:

Nome[1]

Nome[2]

Nome[3]

Nome[4]

...

Nome[15]

Lembre-se que poderiamos usar ARRAY[0..14] que teria 15 variáveis também, mas ao invés de começar do 1 iria começar do 0.

Cadastro de Clientes em Pascal 02.jpg

Vamos ao programa:

 Program Cadastro_de_Clientes;  
 Uses Crt;  
 Type  
  Cadastro = Record  
   Nome : String [40];  
   Idade : Integer;  
   Sexo : Char;  
  End;  
 Var  
  Cliente : Array [1..10] of Cadastro;  
  i : Integer;  
 Begin  
  ClrScr;  
  WriteLn ('Cadastro de Clientes');  
  WriteLn;  
  for i := 1 to 10 do  
  Begin  
   WriteLn ('Cliente No',i);  
   Write ('Nome:'); ReadLn (Cliente[i].Nome);  
   Write ('Idade:'); ReadLn (Cliente[i].Idade);  
   Write ('Sexo:'); ReadLn (Cliente[i].Sexo);  
   WriteLn;  
  End;  
  ReadLn;  
 End.  

O programa melhorou, mas temos que acertar vários detalhes que trabalharemos na próxima etapa.

Gostou? Patrocine o blog!

Um comentário:

  1. aee professor, esta me ajudando bastante, mtoo obrigado cara!

    ResponderExcluir