IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Работа с файлами, Решите задачи.....
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


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

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

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


ЗАРАНИЕ ВСЕМ СПАСИБО!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


В чем сложность? Покажи свои наработки.
В первой задаче просто открываешь файл (видимо, file of integer) на запись и пишешь туда из Random.
Потом читаешь и сравниваешь с предыдущим прочитанным символом (запоминай его), и если дотличается - то пишешь в файл g (а заодно и на экран выводишь).


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Профи
****

Группа: Пользователи
Сообщений: 660
Пол: Мужской
Реальное имя: Михаил

Репутация: -  11  +


Вторая задача решается в 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 -


--------------------
Никогда не жадничай. Свои проблемы с любовью дари людям!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.10.2020 21:19
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name