У середовищі Scratch можна створити проект, у якому декілька виконавців виконують свою програму незалежно одне від одного?

237

323

Посмотреть ответы 1

Ответы на вопрос:

soffffa0790

Информатика

4,8(44 оценок)

Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! function subarray(subarr,arr: array of integer): integer; begin var ns: =subarr.length; var p1: =arr.length-ns; // поиск на [0..p1] var ii: =arr[: p1+1].indexesof(t-> t=subarr[0]); result: =-1; foreach var i in ii do if arr[i: i+ns].zip(subarr,(a,b)-> a=b).all(t-> t) then begin result: =i; exit end end; begin var a: =readarrinteger('введите элементы: ',readinteger('n=')); var b: =readarrinteger('введите элементы: ',readinteger('n=')); var p: integer; if a.length< b.length then begin p: =subarray(a,b); if p> -1 then writeln('первый массив является подмассивом с позиции ',p+1) else writeln('подмассив не обнаружен') end else begin p: =subarray(b,a); if p> -1 then writeln('второй массив является подмассивом с позиции ',p+1) else writeln('подмассив не обнаружен') end end. примеры n= 4 введите элементы: 1 2 3 4 n= 11 введите элементы: 0 1 2 3 1 4 1 2 3 4 5 первый массив является подмассивом с позиции 7 n= 4 введите элементы: 1 2 3 5 n= 11 введите элементы: 0 1 2 3 1 4 1 2 3 4 5 подмассив не обнаружен