Родились сегодня:
dfcz.pupkin@gmail.com


Лидеры рейтинга

ID: 405049

vsetin

Студент

2662


ID: 401284

Михаил Александров

Советник

903

Россия, Санкт-Петербург


ID: 226425

Konstantin Shvetski

Модератор

640

Россия, Северодвинск


ID: 400669

epimkin

Профессионал

385


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

378

Россия, пос. Теплоозёрск, ЕАО


ID: 325460

CradleA

Мастер-Эксперт

296

Беларусь, Минск


ID: 137394

Megaloman

Мастер-Эксперт

260

Беларусь, Гомель


8.9.0

20.06.2021

JS: 2.9.2
CSS: 4.5.10
jQuery: 3.6.0
DataForLocalStorage: 2021-06-24 14:46:01-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 160040

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Korniychug Petro Dmytrovich
Дата: 09.02.2009, 20:42 Консультация закрыта
Поступило ответов: 2

Доброго времени суток! Помогите решить задачу, тема файлы.
Дана непустая последовательность слов, содержащих от 1 до 8 букв; между соседними словами -- запятая, за последним словом -- точка. Напечатать все слова, отличные от последнего слова.

Ответ # 243285 от Mixala
Здравствуйте, Korniychug Petro Dmytrovich!
Все вроде просто - в первом цикле вводиться весь текст, разбивается на слова, их количество n. Потом в цикле перебираются все слова и сравниваются с последним, если не совпали, то выводятся в столбик.

Приложение:


Mixala

Посетитель
09.02.2009, 23:05
Здравствуйте, Korniychug Petro Dmytrovich!

Программа в приложении.
Строка Seek(e,FileSize(e)-10); отвечает за перемещение указателя в файле на позицию десять символов(запятая, слово максимум 8 символов и точка) до конца файла(такой вариант работает при условии, что исходный файл записан правильно и после точки нет других символов). Без этой строки можно обойтись, но это получается двойной просмотр файла, который увеличивает время работы программы(такой вариант будет работать только до первой точки в файле).
Удачи!

Приложение:


Зенченко Константин Николаевич

Старший модератор
10.02.2009, 17:46
Мини-форум консультации # 160040
неизвестный

1

= общий =    09.02.2009, 23:46

А помогите еще мне считать с файла и записать в новый файл, плз

неизвестный

2

= общий =    19.02.2009, 20:50

ни одна с программ корректно не роботает(((

q_id

Зенченко Константин Николаевич

Старший модератор

ID: 31795

3

= общий =    19.02.2009, 21:13

У Вас какой компилятор, только не говорите pascalABS

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 132

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 98

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0

lamed

Академик

Рейтинг: 0