Ora de info: Vectori

 Vectori
Ce este un vector?  Un vector este un sir de elemente de acelasi tip. Adica un vector este o multime de numere de tip real sau de tip integer (intreg).
In Turbo Pascal un vector se declara astfel:




 var a: array[1..100] of integer ‘sau’ real;


si arata in felul urmator:   a[1]   a[2]    a[3]   a[4]  a[i]
Unde litera ‘a’ reprezinta vectorul iar cifra din paranteze ‘[ ]’ reprezinta pozitia vectorului. De obicei in probleme vom folosi ca variabila litera ‘i’ sau ‘j’ care ia valori de la 1 la n.
Citirea unui vector:
Se realizeaza cu ajutorul structurii FOR


For i:= 1 to n do
Read (a[i]);     


De obicei structura FOR intro problema TURBO PASCAL  este scrisa de mai multe ori ca in exemplul de mai jos unde vom afla si afisa valorile pare ale lui n.


Program Vectori_1;                  
Var a: array[1..100] of integer;    
    i,n: integer;                   
Begin                               
Write(‘n=’); readln(n);             
For i:=1 to n do                    
Read(a[i]);                         
For i:=1 to n do                    
If a[i] mod 2=0 then  Writeln(a[i]);
End.                                


Problema de mai sus e una simpla. Probabil va intrebati ce se intampla daca problema ne cere doi vectori? In problema  urmatoare voi introduce si comentarii intre {paranteze}. Urmatoarea problema e doar un exemplu concret in care voi folosi 2 vectori. Aici vom afla suma elementelor divizibile cu 3 a primului vector si  numarul de elemente divizibile cu 10 din al doilea vector.




Program Vector_2;                                           
Var a: array[1..100] of integer;                            
       B:array[1..100] of integer;                          
S1, S2, n, m, c, j, :integer;                               
Begin                                                       
Write(‘n=’);   readln(n);                                   
Write(‘m=’);  readln(m);                                    
{vom afla in continuare suma elementelor vectorului  a[i]}  
S:=0; {S care reprezinta suma}                              
For i:= 1 to n do                                           
Begin {am pus inca un begin pentru ca folosim mai mult de o instructiune}                                               
Write(‘a[i]=’);   readln(a[i]);                             
End;                                                        
If a[i] mod 3=0 then S1:=S1+a[i];                           
{aici am aflat suma elementelor impare al  vectorului a[i]}          
For j:=1 to m do                                            
Begin                                                       
{aici citim al doilea vector b[j]}                          
Write(‘b[j]=’);   readln(b[j]);                             
End;                                                        
Nr:=0;                                                      
If b[j] mod 10=0 then nr:= nr+1;                            
End.                                                        


{Programul de mai sus e doar un exemplu  pentru a va arata 2 vectori intr-un program si pentru a va face o idee despre cum arata o problema in TURBO PASCAL cu vectori si niste operatii cu ei}  


Intrebari? Nelamuriri? Ati descoperit o greseala? NU ezitati sa lasati un comentariu mai jos!