Напечатать символи файлу UPT, которые повторяются.

[Marisha89]

Добрый день!
Помогите, пожалуйста, решить задачу:Напечатать символи файлу UPT, которые повторяются.(в Паскале)
Заранее спасибо!

[Vanta11a]

Что самостоятельно сделано?

[Stilet]

Код считывания символов из файла UPT показать сможешь?

[Marisha89]

Нет(
Я вообще не представляю, с чего начать.
Думала, что при прописывании:

assign(file1,'file1.txt');
rewrite(file1);

должен открыватся блокнот, а текст создается в самом Паскале.
И UPT это же название файла (типа я такого не нашла)?

[Vanta11a]

Наверно Вы все же текстовый файл имеете в виду. Тогда

var F1:text;
...
assign(F1,'test.txt');
reset(F1);
while (not(eof(F1))) do
begin
readln(F1,str);
writeln(str);
end;
...

Ну и вот тут подробнее.

[Marisha89]

Я так понимаю, чтобы создать файл с записью(1; -2; -7; 0; -9; 1) нужен такой код. Правильно?

Program fff;
USES Crt;
        var
        file1 : text;
            str : string;
BEGIN
assign(file1,'file1.txt');
rewrite(file1);
writeln(file1,'1-2-70-91');

reset(file1);
while (not (eof(file1)))
do begin
 readln(file1,str);
 writeln(str);
end;
close(file1);
END.

А можно ли создать код по которому я буду самостоятельно вводить даные, а не прописывать их сразу?
И как вывести в результате только повторяющиеся елементы?
Спасибо за помощь!

[Stilet]

я буду самостоятельно вводить даные, а не прописывать их сразу?

readln(str);
writeln(file1,str);

[Marisha89]

Спасибо)
Подскажите, пожалуйста, с выведением повторяющихся символов

[Vanta11a]

Как вариант - array of my_char, где my_char - двумерный массив, включающий в себя char и int. По умолчанию массив пустой. Считан символ - ищем его в массиве - не нашли - добавляем его, часть int в 1. Нашли - увеличиваем i у найденного символа на 1. Соответственно потом пробег по всему массиву с выводом тех символов, которые попались больше 2 раз.

Или вы про подряд идущие? Тогда читаете строку, после чего перебираете её посимвольно от 1 до strlen()-1, и если i`й и i+1`й символы совпадают - добавляете этот символ в множество. После обработки файла просто выводите множество.

[Stilet]

Все проще:

var c:array['a'..'z'] of integer;i:integer; cc:char;
...
readln(str);
for i:=1 to Length(str) do inc(c[str[i]]);
...

А потом:

for cc:='a' to 'z' do if c[cc]>1 then write(cc);