janja - naloga 2 - 9.2.2011, Pascal

Language: Layout:

//fpc 2.6.2

// naloga 2 - 9.2.2011

program naloga2;

uses SysUtils; // knjiznica, ki vsebuje metodo IntToStr - metoda spremeni stevilo v niz
 
type
    poljeInt= array[1..8] of Integer; // tako se definira array polje - v tem primeru polje integerjev
    poljeString= array[1..8] of String; // tako se definira array polje - v tem primeru polje nizov
    
// deklaracija variabel
var i,st, dolzina: integer;
    polje: poljeInt;  // tu potem deklariamo polje in polje2
    polje2: poljeString;

begin
    dolzina := 8;
    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
        
		if (st mod 2 = 0) then		// število mora biti obvezno liho
		begin
			polje[i] := st; // priredim stevilo lokaciji i na polju npr. polje[0] = 1, polje[1] = 2 itd.
			
			if (st < 0) then
				polje2[i] := '"negativno stevilo"'
			else if (st > 0) then
				polje2[i] := '"pozitivno stevilo"'
			else
				polje2[i] := '"nic"';
				
		
			i := i + 1; // pozor - če ni liho ne povečam i
		end;
    end;
    
    // izpišemo polje 1
    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] ...
        Inc(i);
    end;
    
    // izpisemo polje 2   -- isto kot prej za polje 1
    writeln();    
    write('POLJE2: ');
    
    i := 0;    
    while (i < dolzina) do
    begin
        write(polje2[i]+' ');                                   
        Inc(i);
    end;    
    
    
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.13 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 0,35 sec