/* Среда - EZY Prolog
Выделение подстроки - предикат fronsrt(Number, Source_string, Substring1, Substring2) */
 
predicates
 
print_strings
 
clauses
 
print_strings :- nl,nl,nl,
 
frontstr(12, "Turbo Prolog is fast!", R1,R2),
write(R1),nl,
write(R2),nl,nl,
 
frontstr(10, "Every body loves somebody", S1,S2),
write(S1),nl,
write(S2),nl,nl,
 
frontstr(10, "Artificial Intelligence", T1,T2),
write(T1),nl,
write(T2),nl,nl,
 
frontstr(17, "A thing of beauty is a joy.", U1,U2),
write(U1),nl,
write(U2).
 
goal
 
print_strings.

Результат:

Turbo Prolog
 is fast!

Every body
 loves somebody

Artificial
 Intelligence

A thing of beauty
 is a joy.

!!Рекомендуем: Что должен знать современный человек? ⇒ Семейная Энциклопедия Здоровья ⇒ Самоанализ. Работа над собой ⇒ Оглавление ⇒ Главная сайта