janja - naloga 2 - 25.1.2012, Pascal

Language: Layout:

//fpc 2.6.2

// naloga 2 - 25.1.2012

program naloga2;

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

begin
    dolzina := 6;
    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.
        polje2[i] := (st * 100) div 50; // procentni račun

// 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 (rezultat v topčkah):'); // 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 (rezultat v procentih): ');
    
    i := 0;
    stevec := 0; // stevec damo na 0
    
    while (i < dolzina) do
    begin
        write(FloatToStr(polje2[i])+' ');                
        
        if (polje2[i] > 90) then
            stevec := stevec + 1;
            
        Inc(i);
    end;    
    
    writeln();
    writeln('število rezltatov z več kot 90%: '+IntToStr(stevec));
    
    
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