Работа с файлами, Решите задачи..... Опции

[Happy User!!!]

Дорогие форумчане пожалуйста решите эти две задачи....я вас очень прошу....!!!!!Буду очень благодарен!!
Задачи на паскале:

1) Заполнить файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Из файла f получить файл g, исключив повторные вхождения чисел. Вывести файл g на печать(на экран).

2) Дан файл, содержащий текст. Составить в алфавитном порядке список всех слов, встречающихся в этом тексте.


ЗАРАНИЕ ВСЕМ СПАСИБО!!!

[hiv]

Вторая задача решается в 6 строк:

var SL,SW :TStringList;
begin
 SL := TStringList.Create;    // создаем список строк
 SW := TStringList.Create;    // создаем список строк
 SL.LoadFromFile('file.txt'); // загружаем в него текстовый файл
 ExtractStrings([#9,#10,#13,' ','.',',',':',';'],[' '],PChar(SL.Text),SW); // Разбиваем слова на строки
 SW.Sort;                     // сортируем
 Memo1.Lines.Assign(SW);      // показываем на форме
end;

Сообщение отредактировано: hiv - 20.12.2006 11:58