Помощь - Поиск - Пользователи - Календарь
Полная версия: Работа с файлами
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Happy User!!!
Дорогие форумчане пожалуйста решите эти две задачи....я вас очень прошу....!!!!!Буду очень благодарен!!
Задачи на паскале:

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

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


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