Черный ящик( в информатике) - система, внутреннее устройство которой неизвестно. То есть, мы имеем общее представление о том, что делает эта система, какую информацию на вход нужно подать и то, что система должна вывести, при этом не знаем как она это делает(механизм работы данной системы неизвестен).
Примеры подобной системы:
Любые технические устройства для обычного человека являются тем самым "черным ящиком". Известно, для чего они предназначены, но как они выполняют свою функцию - неизвестно.
Для человека, который не является программистом, любая программа на компьютере - "черный ящик".
В программировании один из примеров черного ящика - вызов функции из библиотеки с неизвестным исходным кодом. Известно, как вызвать эту функцию, известен формат входных и выходных данных, а по какому алгоритму действует функция - неизвестно.
var
s, ss: string;
ls, lss, i, j: integer;
flag: boolean;
begin
readln(s);
readln(ss);
i := 1;
ls := Length(s);
lss := Length(ss);
flag := false;
while i <= ls - lss + 1 do
begin
if s[i] = ss[1] then
begin
flag := true;
for j := 1 to lss - 1 do
if s[i + j] <> ss[j + 1] then
begin
i := i + j;
flag := false;
break
end;
if flag then
begin
write('является');
exit;
end;
end;
i += 1;
end;
write('не является');
end.