Реферат: Организация работы с файлами в системе “ТУРБО-ПРОЛОГ”

put if

not (eof (ff)),

spr.

put if

eof(ff),nl,

write (“Работа закончена”),

closefile (ff)

spr if

readterm (data, tmc (Post, Kod, Kol, Cena), nl,

write (post), nl,

put.

goal

openread (ff, “text”),

readdevice (ff),

spr.

3.Модификация данных файла

domains

file=ff

Pr= integer

Pole, Pole1 = string

K = real

predicaes

put

mod

clouses

put if

write ( “Введите признак продолжения”),

readint (P2),

p2 = 0,