janja - naloga 2 - 11.7.2013, Pascal

janja - naloga 2 - 11.7.2013

//fpc 2.6.2

// naloga 2 - 11.7.2013

program naloga2;

uses SysUtils; // knjiznica, ki vsebuje metodo IntToStr - metoda spremeni stevilo v niz

const 
    dolzina = 5; // tako se definira constanta
    
type
    poljeInt= array[1..dolzina] of Integer; // tako se definira array polje - v tem primeru polje integerjev
    
// deklaracija variabel
var i,st: integer;
    polje: poljeInt;  // tu potem deklariamo polje in polje2
    polje2: poljeInt;

begin
    i := 0; // na začetku inicializiramo variablo i da ni null - damo na 0
    
    // tako dolgo berem i, dokler ni 5 vnosov (dolzina je constanta 5)
    while (i < dolzina) do
    begin
        readln(st);        // berem vnose
        
        polje[i] := st; // priredim stevilo lokaciji i na polju npr. polje[0] = 1, polje[1] = 2 itd.

// povečam i za 1
        Inc(i); // funkcija Inc - increment poveča i za 1
    end;
    
    // izpišemo polje 1 in hkrati kreiramo polje2
    write('POLJE1: '); // vzamem funkcijo write, da ne gre v drugo vrstico
    
    i := 0;
    
    while (i < dolzina) do // while zanka isto kot zgoraj - iteracija od 0 do 4 - 5 iteracij
    begin
        write(IntToStr(polje[i])+' ');  // izpisem polje - v iteraciji polje[0],  polje[1],  polje[2] ...
        
        if (i = 0) then 
            polje2[i] := polje[i]    // pri iteraciji 1 (i=0), nastavim polje2[0] na polje[0]
        else 
            polje2[i] := polje[i]+polje2[i-1]; // pri vsaki naslednji iteraciji , nastavim tako polje2[1] = polje[1] + polje2[0]
                                                //                                        potem  polje2[2] = polje[2] + polje2[1] itd.
        
        Inc(i);
    end;
    
    // izpisemo polje 2   -- isto kot prej za polje 1
    writeln();
    
    write('POLJE2: ');
    
    i := 0;
    
    while (i < dolzina) do
    begin
        write(IntToStr(polje2[i])+' ');        
        
        Inc(i);
    end;    
    
end.


run \| edit \| history \| help	0