Создать предикат, переводящий список цифр от 0 до 9 в список соответствующих им римских чисел.

@Mikhail231 · Регистрация: 07.12.2018

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

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

Создать предикат,переводящий список цифр от 0 до 9 в список соответсвующих им римских чисел. Список чисел от 1 до 9 задается рандомно,длина списка задается пользователем.

Код программы:

Prolog

domains
 
int=integer
intl=int*
str=string
strl=str*
 
predicates
 
a2r(int,str)
task(intl,strl)
 
clauses
 
a2r(1,"I").
a2r(2,"II").
a2r(3,"III").
a2r(4,"IV").
a2r(5,"V").
a2r(6,"VI").
a2r(7,"VII").
a2r(8,"VIII").
a2r(9,"IX").

@Catstail · 21.03.2019, 21:32

Mikhail231, где ты взял этот код?

Даже списать толком не умеешь...

Prolog

domains
 
int=integer
intl=int*
str=string
strl=str*
 
predicates
 
a2r(int,str)
task(intl,strl)
 
clauses
 
a2r(1,"I").
a2r(2,"II").
a2r(3,"III").
a2r(4,"IV").
a2r(5,"V").
a2r(6,"VI").
a2r(7,"VII").
a2r(8,"VIII").
a2r(9,"IX").
 
task([],[]).
task([H|T],[U|R]) :- a2r(H,U), task(T,R).

@Mikhail231 · 22.03.2019, 00:40 **[ТС]**

Спасибо

Добавлено через 1 минуту
Но мне преподаватель сказал,что программа не закончена. Нужно написать - goal

@Catstail · 22.03.2019, 09:08

Сообщение от Mikhail231

Нужно написать - goal

- так напиши:

Prolog

1
2
3

goal
 
task([1,2,5,7],R), write(R), nl.

@Mikhail231 · 22.03.2019, 11:11 **[ТС]**

Большое спасибо

@Mikhail231 0 / 0 / 0 Регистрация: 07.12.2018 Сообщений: 48
	22.03.2019, 00:40 [ТС]	3
	Спасибо Добавлено через 1 минуту Но мне преподаватель сказал,что программа не закончена. Нужно написать - goal 0

@Mikhail231 0 / 0 / 0 Регистрация: 07.12.2018 Сообщений: 48
	22.03.2019, 11:11 [ТС]	5
	Большое спасибо 0