Родились сегодня:
vladymyrlem
antonovich


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

ID: 226425

Konstantin Shvetski

Модератор

740

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


ID: 259041

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

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

322

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


ID: 401284

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

Академик

277

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


ID: 325460

CradleA

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

210

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


ID: 137394

Megaloman

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

129

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


ID: 400815

alexleonsm

6-й класс

129


ID: 400669

epimkin

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

119


8.8.15

09.05.2021

JS: 2.8.21
CSS: 4.5.5
jQuery: 3.6.0
DataForLocalStorage: 2021-05-13 03:16:01-standard


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

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

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

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: gena.sorbuchev (1-й класс)
Дата: 28.03.2021, 13:33 Консультация закрыта
Поступило ответов: 0

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Запишите в новый файл все строки исходного файла, содержащие в качестве фрагмента заданную строку, которая вводится с клавиатуры.
SWI-PROLOG

Последнее редактирование 28.03.2021, 14:00 Сергей Фрост (Управляющий)

Ответов пока не поступило

Мини-форум консультации # 200518

gena.sorbuchev

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

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

ID: 31795

1

= общий =    28.03.2021, 13:38
gena.sorbuchev:

SWI-PROLOG

gena.sorbuchev

Ну есть такой язык PROLOG. SWI-PROLOG - один из диалектов.
smile
Вопрос в чем?

Последнее редактирование 28.03.2021, 13:41 Зенченко Константин Николаевич (Старший модератор)

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

gena.sorbuchev

gena.sorbuchev

1-й класс

ID: 403237

2

= общий =    28.03.2021, 13:55

Не вставился вопрос.
Задание:
Запишите в новый файл все строки исходного файла, содержащие в качестве фрагмента заданную строку, которая вводится с клавиатуры.

Не могу сообразить как мне в прологе сравнивать построчно из файла строки с фрагментом, который ввел с клавиатуры и совпадающие строки вывести в новый файл.
f:-

Код
write('Введите имя исходного файла:'),
read(SOURFILE),
check_exist(SOURFILE),
open(SOURFILE,read,FROM),
read_line_to_string(FROM,X),writef(" "),
writef(X),
writeln(" "),
write('Введите подстроку:'),
read(WR),

close(FROM),
write('Введите имя нового файла:'),
read(NEWFILE),
check_exist(NEWFILE),
name(S,X),
write_to_file(NEWFILE,S).

check_exist(Filename):-exists_file(Filename),!.
check_exist(_):-writeln('Такого файла нет'),
fail.

write_to_file(Filename,TEXT) :-
open(Filename, write, File),
write(File, TEXT),nl,
writeln('Данные упешно записаны'),
close(File).


Буду рад, любому совету или направлению. В прологе плохо соображаю.

Последнее редактирование 28.03.2021, 14:34 Зенченко Константин Николаевич (Старший модератор)

gena.sorbuchev

puporev

Профессор

ID: 401888

3

= общий =    28.03.2021, 14:25
gena.sorbuchev:

А при чем здесь раздел
Pascal, Delphi и Lazarus?

puporev

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

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

ID: 31795

4

= общий =    28.03.2021, 14:42
puporev:

А при чем здесь раздел

puporev


Паскаль - универсален
smile

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

puporev

gena.sorbuchev

1-й класс

ID: 403237

5

= общий =    28.03.2021, 14:47

А на сайте в принципе нет раздела, который мне нужен. Думал модераторы могут поменять. Видимо нет. Можете закрыть вопрос, так как он не в том разделе.

gena.sorbuchev

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

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

ID: 31795

6

= общий =    01.04.2021, 22:03
gena.sorbuchev:

Можете закрыть вопрос, так как он не в том разделе

gena.sorbuchev


В PROLOG.и/или SWI-PROLOG => даже строка представляет список, т.е. её можно разобрать по принцыпу голова:хвост, или голова:шея:хвост.

Сейчас, у меня нет ни PROLOG, SWI-PROLOG даже LISP.
Поэтому - сорри.

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

gena.sorbuchev

gena.sorbuchev

1-й класс

ID: 403237

7

= общий =    02.04.2021, 05:03

Да закрывайте вопрос, я уже решил задачу.

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

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

puporev

Профессор

Рейтинг: 110

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

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

Рейтинг: 72

Степанов Иван /REDDS

4-й класс

Рейтинг: 0

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

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

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

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

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

Рейтинг: 0