Программы, предназначенные для работы с множествами, и текстовыми файлами

[Ksenia96]

2.Выведите на экран все символы, что встречаются хотя бы в одной строке данного тексто-
вого файла дважды.
3. Выводите на экран все символы, что встречаются в четных строках, но не встречаются в
нечетных строках данного текстового файла.

[Stilet]

Твои пробы увидеть можно?

[Ksenia96]

программа без файлов,нужно сделать через текстовые файлы дважды

{Выведите на экран все символы, что встречаются хотя бы в одной строке данного тексто-
вого файла дважды}
program simbol;
type set_let = set of char;
var m1,{множество символов, встречающихся в тексте только один раз}
m, {множество символов, встречающихся в тексте}
mm : set_let;
{множество символов, встречающихся в тексте более одного раза}
s: string; {исходный текст}
c : char; {очередной символ}
i: byte; {символ при формировании вывода элементов множества}
begin
writeln('Введите строку символов :');
readln(s);
{инициализация множеств}
m:=[]; mm:=[];
for i := 1 to length(s)
do begin c:= s[i];
if c in m
then {символ ранее уже встречался}
mm:= mm+[c]
else {символ встретился впервые}
m:= m+[c]
end;
m1:= m-mm; {построение множества уникальных символов}
writeln('Множество уникальных символов:');
if m1 = [] then writeln ('пусто')
else
for c := chr(0) to chr (255)
do if c in m1 then write(c,' ');
writeln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Stilet]

М.м.м... Хорошо, смотри:

type set_let = set of char;
var m1,{множество символов, встречающихся в тексте только один раз}
m : set_let;
f:Text;
i:integer;
{множество символов, встречающихся в тексте более одного раза}
s: string; {исходный текст}
c:char;
begin
Assign(f,'Файл.txt'); Reset(f); mm=[];
While not eof(f) do begin
 m=[];
 readln(f,s);
 for i:=1 to Length(s) do 
  if s[i] in m then include(mm,s[i]) 
  else include(m,s[i]);
end;
Close(f);
writeln('Множество уникальных символов:');
if m1 = [] then writeln ('пусто')
else for c := chr(0) to chr (255) do if c in mm then write(c,' ');
readln;
end.

Вроде ничего не забыл.