Задача на создание и модификацию файла

@Demacr_s · Регистрация: 13.11.2012

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

Здравствуйте. Помогите,пожалуйста.Задача такая-создать файл с именем т,поместить в него строку,в этой строке удалить предпоследний символ.Застрял с последним пунктом.

Prolog

domains
 file=datafile1;datafile2
 str=string
predicates
 data(str)
 write_line
goal
 openwrite(datafile1,"t"),
 write_line,
 closefile(datafile1),
 openmodify(datafile2,"t"),
 del_sim,
 closefile(datafile2).
clauses
data(abcdezf).
 write_line:-data(S),write(S),writedevice(screen),fail,write_line.
del_sim:-writedevice(datafile2),filepos(datafile2,2,2).

@Грымзик · 14.11.2012, 21:04

Prolog

1 2	del(S,S1):-frontchar(S,_,S1),frontchar(S1,_,""),!. del(S,S1):-frontchar(S,Char,TailS),del(TailS,TailS1),frontchar(S1,Char,TailS1).

Опции темы