Решение №15 из главы 15.С использованием индексов массива
Primary tabs
Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.
Например:
Для N = 6, k=2:
202211 длина=4
Для N = 10, k=2:
2022110012 длина=3
Для N = 15, k=3:
202233002303210 длина=4
Для N = 7, k=2:
0100020 длина=5
program seq_in_list15_15; type Arr = array[1..100] of integer; // секция обьявления типов { функция возвращает boolean значение } function seq_in_list( seq_in: Arr; ls_in: Arr; ind1: integer;ind2: integer; ran: integer): boolean; var n, i, j : integer; begin // начало тела функции n := 0; for i:=1 to ran do begin for j:=ind1 to ind2 do begin if( seq_in[i] ) = ( ls_in[j] ) then begin n += 1; break end; end; end; if(n = ran) then seq_in_list := True else seq_in_list := False; end; // завершение тела функции var i, j, k, b, m, n, count, len_list, range, step_len,index1, index2 : integer; fl: boolean; list_seq: Arr; // массив от 0 до k Arr_rand: Arr; // массив из случайно выбранных чисел из диапазона от 0 до k begin // основная программа m := 1; count := 0; fl := True; writeln('Input range'); read(range); for i:=1 to range do // заполнение первого массива от 1 до range list_seq[i] := i; n := range; len_list := high(Arr_rand); step_len := range; for i:=1 to range do // вывод первого массива write( list_seq[i], ' '); writeln(); for j:=1 to high(Arr_rand) do // заполнение второго массива Arr_rand[j]:=random(range)+1; for j:=1 to high(Arr_rand) do write( Arr_rand[j], ' '); // вывод второго массива writeln(); { кол-во проходов фрагмента, например в l = [1, 6, 4, 5, 1, 4, 2] кол-во проходов из 3 элементов ([1,6,4], [6,4,5], [4,5,1],[5,1,4]),[1,4,2]) будет = 5 с каждым новым витком уменьшая число проходов, например в l = [1, 6, 4, 5, 1, 4, 2] кол-во проходов из 4 элементов ([1,6,4,5], [6,4,5,1], [4,5,1,4],[5,1,4,2]) будет = 4 и т.д } while (step_len <= len_list) and (fl = True) do begin j := 0; index1 := m; index2 := n; while(j < len_list - range + 1 - count) do begin for k:=index1 to index2 do // вывод списка write(Arr_rand[k], ' '); writeln(); { вызов функции } if(seq_in_list(list_seq,Arr_rand,index1,index2, range)) then begin writeln('True'); for i:=index1 to index2 do // вывод результата begin write(Arr_rand[i],' '); end; fl := False; break end else begin j += 1; index1 += 1; index2 += 1; end; end; m := 1; count += 1; step_len += 1; n += 1; if not fl then // выход из цикла break end; if(step_len >= len_list) then writeln('False'); end.
- Log in to post comments
- 766 reads