janja - naloga 1 - 25.1.2012, Pascal

Language: Layout:

//fpc 2.6.2

// naloga 1 - 25.1.2012

program naloga1;

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

// deklaracija variabel
var stevec, dolzina, ostanek: integer;
    niz, prvi_znak, zadnji_znak: String;

begin
    
    stevec := 0; // na začetku nastavim variable na 0
    niz := '';
    
    // tako dolgo berem niz, dokler uporabnik ne vpiše 'konec'
    while (niz <> 'konec') do
    begin
        readln(niz);        // berem vnos 
        writeln(niz); // izpišem vnos
    
        dolzina := length(niz); // z length funkcijo dobim dolzino niza
        ostanek := dolzina mod 2;  // z mod funkcijo delim dolzino z stevilom 2, rezultat pa je ostanek -- če je ostanek 1 potem je število liho

prvi_znak := Copy(niz,1,1); // dobim prvi znak niza
        zadnji_znak := Copy(niz,dolzina,1); // dobim zadnji znak niza-- se pravi če imam niz 'sonce' je dolzina 5, potem dela copy('sonce',5,1) -- začne od 5 znaka in vzame 1 znak
        
        if ((ostanek = 1) and (prvi_znak = zadnji_znak)) then // če je liho in če sta znaka ista
        begin
            stevec := stevec + 1; // povečam števec
        end;
                          
    end;
    
    writeln('Stevilo besed, ki imajo liho dolzino ter prvo in zadnjo crko enako: '+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