Так другое дело. Пасиба. Итак. Мы имеем "стандартный входной поток". Что это такое я не в курсе. Во-вторых: прежде всего необходимо знать, какой тип данных использовать для создания такого огромного стандартного входного потока (2 по 10000 string[20]). Т.е. в данном случае подойдет только использование файлов. Но для примера будет дочтаточно и массива. (применимо к среде TP7) И кстати, две переменные N и К по моему мнению абсолютно не нужны, так я думаю, что перебор вариантов единственно правильное решение. В Паскале. Т.е. берем из первого списка всех имен, и сравниваем его со всем вторым списком занятых имен, если нет, то выводим в результирующий файл.
Тип файл можно запросто заменить на массив. Если требуют (!) переменные K и N, значит просто добавь их куда-нибудь. Думаю, со мной согласятся читатели, что эти переменные действительно не нужны.
Code
program Imena_Krolikam;
uses crt;
var
all_t, use_t, res_t: text;
s1, s2: string[20];
flag: boolean;
begin
clrscr;
assign(all_t, 'allnames.txt');
assign(use_t, 'usedname.txt');
assign(res_t, 'res_name.txt');
reset(all_t);
reset(use_t);
rewrite(res_t);
while not EoF(all_t) do
begin
readln(all_t, s1);
flag := false;
reset(use_t);
while not EoF(use_t) do
begin
readln(use_t, s2);
if s1 = s2 then flag := true;
end;
close(use_t);
if flag = false then writeln(res_t, s1);
end;
close(all_t);
close(res_t);
end.
Файлы приложены к ответу.
