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 dolzina, i: integer;
    niz, niz_spr, prvi_znak, zadnji_znak: String;

begin
    niz := '';
    prvi_znak := '';
    zadnji_znak := '';
    
    // tako dolgo berem niz, dokler uporabnik ne vpiše besedo z prvim uznakom 'P' in zadnjim znakom '!'
    while ((prvi_znak <> 'P') and (zadnji_znak <> '!')) do
    begin
        niz_spr := '';
        
        readln(niz);        // berem vnos 
        writeln(niz); // izpišem vnos
    
        dolzina := length(niz);
        prvi_znak := copy(niz,1,1);
        zadnji_znak := copy(niz,dolzina,1);
    
        if ((prvi_znak <> 'P') and (zadnji_znak <> '!')) then
        begin

if (dolzina <= 5) then
            begin
                i := 0;
                
                while ( i < dolzina) do
                begin
                    if (i mod 2 = 1) then // lihi znak
                    begin
                        niz_spr := niz_spr + '*';
                    end
                    else
                    begin
                        niz_spr := niz_spr + copy(niz,i,1)
                    end;
                    Inc(i);
                end;
            end
            else // če je dolžina večja kot 5
            begin
                niz_spr := copy(niz,1,1) + copy(niz,3,dolzina-3) + copy(niz,dolzina,1);
            end;
            
            writeln(niz_spr);
        end; 
        
    end;
end.

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