Создайте предикат, вычисляющий сумму чисел, хранящихся в файле

@rung15 · Регистрация: 20.02.2014

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

3)Создайте предикат, вычисляющий сумму чисел, хранящихся в файле.

@rung15 · 10.10.2016, 19:06 **[ТС]**

Не нашёл даже открытие файла, не то что там какие то арифметические операции.

@Black Fregat · 10.10.2016, 21:31

Какой Пролог? Работа с файлами зависит от версии..

@rung15 · 12.11.2016, 09:33 **[ТС]**

Turbo Prolog.ver.2.0

Добавлено через 2 часа 34 минуты
Псассибо, акк бы я ебз авс псравился, вы ензаминимы, от свей удши, лбагодарю что мопогли!!! )

Prolog

DOMAINS
file=f
predicates
write_file(file,integer,string)
writefile(string,integer,string)
summ(string,integer,integer)
 
form
 
goal
  form.
 
clauses
 
summ(C,D,D1):-str_int(C,I),!,D1=D+I.
summ(_,D,D1):-D1=D+0.
 
 
 
write_file(f,D,R):-
          not(eof(f)),!, 
          readln(C),
          summ(C,D,D1),
      write_file(f,D1,R). 
 
write_file(_,D,R):-str_int(R,D).
 
writeFile(F_N,D,R):-
          existfile(F_N),!, 
          openread(f,F_N), 
          readdevice(f), 
          write_file(f,D,R),
      closefile(f).
writeFile(_,_,R):-
       R="Fail ne naiden!".
  
form:-
   makewindow(1,121,7, "ЛР 5",1,16,10,55),
   nl,write("Vvedite nazvanie faila: "),
   readln(F_N),
   D=0,
   writeFile(F_N,D,R),
   nl,write("Resultat: ",R),
   keypressed,
   exit.

@rung15 -1 / 0 / 0 Регистрация: 20.02.2014 Сообщений: 65
		1
	Создайте предикат, вычисляющий сумму чисел, хранящихся в файле 06.10.2016, 16:21. Показов 679. Ответов 3 Метки нет (Все метки) 3)Создайте предикат, вычисляющий сумму чисел, хранящихся в файле. 0

@rung15 -1 / 0 / 0 Регистрация: 20.02.2014 Сообщений: 65
	10.10.2016, 19:06 [ТС]	2
	Не нашёл даже открытие файла, не то что там какие то арифметические операции. 0

@Black Fregat Фрилансер 3704 / 2076 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	10.10.2016, 21:31	3
	Какой Пролог? Работа с файлами зависит от версии.. 0

Опции темы