lab4 / lr4_1

# Процедура для генерации строки из 20 случайных чисел в шестнадцатеричном формате
proc generate_random_hex_string {} {
    set result ""
    for {set i 0} {$i < 20} {incr i} {
        set random_number [expr {int(rand() * 16)}]
        set hex_number [format "%x" $random_number]
        append result $hex_number
    }
    return $result
}

# Процедура для выделения и вывода фрагментов строки
proc extract_and_display_fragments {hex_string} {
    set first_f_index [string first "f" $hex_string]
    set last_f_index [string last "f" $hex_string]

    if {$first_f_index == -1} {
        # Если символ "F" не найден, выводим пустые строки
        puts "Часть строки до первого символа 'F':"
        puts ""
        puts "Часть строки между первым и последним символом 'F':"
        puts ""
        puts "Часть строки после последнего символа 'F':"
        puts ""
    } else {
        # Часть строки до первого символа "F"
        puts "Часть строки до первого символа 'F':"
        puts [string range $hex_string 0 [expr {$first_f_index - 1}]]

        # Часть строки между первым и последним символом "F"
        puts "Часть строки между первым и последним символом 'F':"
        if {$first_f_index == $last_f_index} {
            puts ""
        } else {
            puts [string range $hex_string [expr {$first_f_index + 1}] [expr {$last_f_index - 1}]]
        }

        # Часть строки после последнего символа "F"
        puts "Часть строки после последнего символа 'F':"
        puts [string range $hex_string [expr {$last_f_index + 1}] end]
    }
}

# Основной скрипт
set random_hex_string [generate_random_hex_string]
puts "Сгенерированная строка: $random_hex_string"

extract_and_display_fragments $random_hex_string