0 / 0 / 0
Регистрация: 23.04.2012
Сообщений: 9
1

Перевод числа с арабских на римские цифры

23.04.2012, 23:50. Показов 2369. Ответов 1
Метки нет (Все метки)

Задача #2: Составить переводчик из арабской формы записи в римскую (и наоборот, но наоборот потом).
Используемые буквы: I - 1, V -5, X -10, L -50, C -100, D -500, M -1000. Грамматикой пренебречь (т.е. 4 записать не как IV, а как IIII).

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
domains
ч=integer.
ряд=integer*.
буква=string.
многобукв=буква*.
 
constants
делитель = [1000,500,100,50,10,5,1].
перевод = ["M","D","C","L","X","V","I"].
 
class predicates
транслятор:(ч,ряд,многобукв) procedure (i,i,i).
запись:(ч,буква) procedure (i,i).
clauses
транслятор(_,[],[]):-!.
транслятор(N,[Дел|R],[Букв|B]):-
    K = N div Дел,
    Os = N mod Дел,
    запись(K,Букв),
    транслятор(Os,R,B).
 
запись(_,Бук):-!.
запись(L,Бук):-
    stdio::write(Бук),
    La=L-1,
    запись(La,Бук).
 
clauses
    run():-
        console::init(),
        N=1961,
        stdio::write("Исходное число: ", N, "\n Перевод:"),
        транслятор(N,делитель,перевод),
        !,
         _ = readLine();
        succeed(). 
        
end implement main
goal
    mainExe::run(main::run).
Возникли какие-то проблемы с массивами констант (конкретно ругается на 33 строку, говорит ему не то дали). Я их правильно записал?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.04.2012, 23:50
Ответы с готовыми решениями:

Преобразование арабских чисел в римские.
мне еще нужно преобразовать полученный список арабских чисел (максимальное значение 10) в список...

Создайте предикат, который переводит список в Римские цифры
Дан список, элементами которого являются цифры от 0 до 9. Создайте предикат, который переводит этот...

Задача про римские числа
Это код, реализующий перевод списка арабских цифр в римские domains il = integer* sl = string*...

Перевод арабских в римские
Задача №1 Для записи римскими цифрами используются символы I, V, X, L, C, D, M, обозначающие...

1
0 / 0 / 0
Регистрация: 23.04.2012
Сообщений: 9
25.04.2012, 01:40  [ТС] 2
Попытка подредактировать (записал массивы перевода прямо в run() ) привела к тому, что теперь Vip считает предикат запись бесполезным и неиспользуемым. (?)
При компиляции просто ничего не пишет, а сразу же вываливается на выход.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2012, 01:40

Перевод из арабских цифр в римские
Задача состоит в следующем: Ввести с клавиатуры год, по его номеру вывести номер столетия римскими...

Перевод арабских цифр в римские с++
Подскажите как перевести арабские цифры в римские... Например 12345 -> I II III IV V Заранее...

Перевод арабских чисел в римские
Нужна программа в С для перевода арабских чисел в римские,желательно что-то попроще.

Перевод арабских чисел в римские
Всем привет. Не получается решить задачу в С++ Кто может помогите если не сложно;. Для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.