segunda-feira, 21 de setembro de 2009

Tipos de array

{Um array é uma coleção ordenada de elementos do mesmo tipo de dados, que faz uso de um índice para dar acesso aos items da coleção. Arrays são úteis em diversas situações. Como o índice permite acesso direto aos elementos da lista, arrays fornecem um poderoso mecanismo para se organizar dados. O exemplo a seguir mostra como declarar uma array : }
Procedure Tform1.Button1Click (Sender: Tobject) ;
var
Dias_de_Semana: array[1..7] of String ;

var
DiaNo: Integer;
DiadaSemana: String;

begin

{Inicializa o array com nomes dos dias da semana }
Dias_de_Semana [1] := 'Domingo' ;
Dias_de_Semana [2] := 'Segunda-feira' ;
Dias_de_Semana [3] := 'Terça-feira' ;
Dias_de_Semana [4] := 'Quarta-feira' ;
Dias_de_Semana [5] := 'Quinta-feira' ;
Dias_de_Semana [6] := 'Sexta-feira' ;
Dias_de_Semana [7] := 'Sábado' ;

DiaNo :=DayOfWeek (Date) ; {Retorna o número correspondente ao dia da semana da data atual}
ShowMessage(' Hoje é ' + Dias_de_Semana [DiaNo] ) ;
Uso do comando FOR

{ O comando For deve ser usado sempre que se souber com antecedência quantas vezes o laço deverá ser executado. Como ilustração vamos resolver o seguinte problema :

No rock encontram-se quatro garotas (Juliana, Natália, Carolina e Adriana) e quatro rapazes (Guilherme, Neto, Leonardo e Eduardo). Pede-se : quantos - e quais - pares podem ser formados com essa turma ?

Para resolver:

Crie uma nova Aplicação (File | New Application)

Acrescente um ListBox

Acrescente um Button

Dê dois cliques sobre o Button e acrescente o código :}



procedure TForm1.Button1Click(Sender: TObject);
var
ElasList : array[1..4] of String [10] ;
ElesList : array[1..4] of String[10];
i , j : integer;
begin
ElasList[1] := 'Juliana' ;
ElasList[2] := 'Natália' ;
ElasList[3] := 'Carolina' ;
ElasList[4] := 'Adriana' ;
ElesList[1] := 'Guilherme' ;
ElesList[2] := 'Neto' ;
ElesList[3] := 'Leonardo' ;
ElesList[4] := 'Eduardo' ;
for i:=1 to 4 do
for j:=1 to 4 do
ListBox1.Items.Add(ElasList[i] + ' '+ElesList[j]);
end;
end.

Nenhum comentário:

Postar um comentário