Дорогие форумчане пожалуйста решите эти две задачи....я вас очень прошу....!!!!!Буду очень благодарен!!
Задачи на паскале:
1) Заполнить файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Из файла f получить файл g, исключив повторные вхождения чисел. Вывести файл g на печать(на экран).
2) Дан файл, содержащий текст. Составить в алфавитном порядке список всех слов, встречающихся в этом тексте.
ЗАРАНИЕ ВСЕМ СПАСИБО!!!
В чем сложность? Покажи свои наработки.
В первой задаче просто открываешь файл (видимо, file of integer) на запись и пишешь туда из Random.
Потом читаешь и сравниваешь с предыдущим прочитанным символом (запоминай его), и если дотличается - то пишешь в файл g (а заодно и на экран выводишь).
Вторая задача решается в 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;