Л.Р. №1 - Перевірка символів вхідного повідомлення на приналежність алфавіту

ПСЕВДОКОД:

bool check_number (string str, int oss) {
    string alf = '01234567890ABCDEF'
    int n = strlen(str)
    bool flag

    FOR (i := 1; i <= n; i++) {

        flag := FALSE

        FOR (j := 1; j <= oss; j++) {
        
            IF (str(i) = alf(j)) THEN
                flag := TRUE
                BREAKE
        }
        
        IF (flag = FALSE) THEN -- we didn't find symbol in alphabet
            BREAKE
                
    }
    
    RETURN flag
}


main {
    
    string s:= '107QA'

    IF (check_str(s, 16) = FALSE) THEN
        echo 'ERROR!!!'
    ELSE
        echo 'OK!!!'
        
    -- check_str('1110001101', 2) -- check number for 2 number system
    -- check_str('3740', 8) -- check number for 8 number system
    -- check_str('3F', 16) -- check number for 16 number system
}