Открыть текстовый файл для чтения и вывода в консоль

@EdHaker · Регистрация: 23.09.2015

Author24 — интернет-сервис помощи студентам

Добрый день! Пожалуйста, подскажите как сделать такое задание? Написать программу, которая вводит имя текстового файла и путь к каталогу в котором находится этот файл. Открывает указанный файл и выводит его содержимое на экран. Программа должна повторять указанные действия для любого текстового файла. Буду очень признателен!
Если поможет, нашел код в просторах интернета, но у меня он не заработал, Visual Prolog 5.2

Prolog

    domains
      file = text_input_file
      list_integer = integer*
    predicates
      file_numbers_to_list(file, list_integer, list_integer)
    clauses
      file_numbers_to_list(File, Buffer, Buffer):-
        eof(File), !.
      file_numbers_to_list(File, Buffer, List):-
        readint(Number), !,
        file_numbers_to_list(File, [Number|Buffer], List).
      file_numbers_to_list(_File, _Buffer, _List):-
        write("bad file"), nl, fail.
    goal 
      FileName = "/home/rrrfer/input.txt",
      openread(text_input_file, FileName), !,
      readdevice(text_input_file), 
      file_numbers_to_list(text_input_file, [], List),
      closefile(text_input_file).

@Black Fregat · 21.05.2018, 11:56

Сообщение от EdHaker

но у меня он не заработал

Хрустальный шар не показывает..

@EdHaker · 25.05.2018, 00:35 **[ТС]**

Ну вы можете подсказать?

@Black Fregat · 25.05.2018, 09:00

Настойчиво подсказываю: фраза "но у меня он не заработал" содержит очень мало информации.

Не по теме:

Теряюсь в догадках - почему Вы так стесняетесь написать подробнее..
Фигу что ли этот код нарисовал посередине экрана ???

@Black Fregat Фрилансер 3704 / 2076 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	21.05.2018, 11:56	2
	Сообщение от EdHaker но у меня он не заработал Хрустальный шар не показывает.. 0

@EdHaker 1 / 1 / 0 Регистрация: 23.09.2015 Сообщений: 101
	25.05.2018, 00:35 [ТС]	3
	Ну вы можете подсказать? 0

@Black Fregat Фрилансер 3704 / 2076 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	25.05.2018, 09:00	4
	Настойчиво подсказываю: фраза "но у меня он не заработал" содержит очень мало информации. Не по теме: Теряюсь в догадках - почему Вы так стесняетесь написать подробнее.. Фигу что ли этот код нарисовал посередине экрана ??? 0

Опции темы