разность первой и последней компоненты файла

@nastin · Регистрация: 15.10.2012

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

Помогите, пожалуйста с заданием :дан файл, компоненты которого действительные числа. Найти и вывести в другой файл разность первой и последней компоненты.

Кто сможет, спасибо!

@nastin · 11.12.2013, 09:56 **[ТС]**

Никак не выходит реализовать задание: дан файл, нужно записать в другой файл разность первой и последней компоненты файла ( разность - это разница "большее" минус "меньшее"). Кое-что написала, но не работает, помогите, пожалуйста!

Prolog

domains
  file = inp;out
predicates
  main
  first(real)
  next(real)
  max(real,real)
clauses  
  main :-    openread(inp, "LAB.txt"),
             openwrite(out, "LAB1_result.txt"),
             readdevice(inp),
             writedevice(out),!,
             first(_).
first(X):-eof(inp),closefile(inp),closefile(out).
first(X):-readreal(X),next(X).
next(X):-not(eof(inp)),readreal(Y),next(Y).
next(X):-eof(inp),max(X,Y).
max(X,Y):-X>Y,closefile(inp),write(X-Y),closefile(out).
max(X,Y):-X=>Y,closefile(inp),write(Y-X),closefile(out).
 
 
             
 
             
goal
  main.

@nastin 1 / 1 / 0 Регистрация: 15.10.2012 Сообщений: 36
		1
	разность первой и последней компоненты файла 02.12.2013, 02:30. Показов 1087. Ответов 1 Метки нет (Все метки) Помогите, пожалуйста с заданием :дан файл, компоненты которого действительные числа. Найти и вывести в другой файл разность первой и последней компоненты. Кто сможет, спасибо! 0

	11.12.2013, 09:56