janja - naloga 1 - 11.7.2013, Pascal

Language: Layout:

//fpc 2.6.2

// naloga 1 - 11.7.2013

program naloga1;

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

// deklaracija variabel
var i: integer;
    niz, stotica, desetica, enica: String;

begin
    i := 0; // na začetku nastavim variablo i na 0, zato da pridem v while zanko. 
    
    // tako dolgo berem i, dokler uporabnik ne vpiše 3 mestno število
    while ((i<100) OR (i>999)) do
    begin
        write('vnesi trimestno celo število: ');
        readln(i);        // berem vnos 
        writeln(IntToStr(i)); // izpišem vnos
    
        if ((i<100) OR (i>999)) then // če je vpisal število ki ni trimestno ga opozorim
        begin        
             writeln('stevilo ni trimestno');             
        end;
        
        // zanka se ponavlja tako dolgo dokler stevilo ni trimestno - glej pogoj zgoraj
    end;
    
    
    
    niz := IntTostr(i); // vneseno stevilo shranim kot niz v variablo "niz"
    stotica := copy(niz,1,1); // v variablo "stotica" si shranim prvi znak niza
    desetica := copy(niz,2,1); // v variablo "desetica" si shranim drugi znak niza
    enica := copy(niz,3,1); // v variablo "enica" si shranim tretji znak niza
    
    // funkcija copy deluje tako da dobi vhod niz, prva stevilka je znak od katerega gleda, druga pa koliko znakov gleda -- primer copy('trimestno',4,4) nam vrne 'mest'
    
    (*
    writeln(stotica);
    writeln(desetica);
    writeln(enica);
    *)
    
    // tu pa samo pogledam če je stotica večja od desetice..  npr. '8'>'4' ... nizov ni treba nazaj pretvarjati v integer saj compiler to zna že sam.
    
    if (stotica>desetica) then writeln('Stotice so vecje od desetic.');        	
    if (desetica>enica) then writeln('Desetice so vecje od enic.');
    
end.

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