Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
NRay
0 / 0 / 0
Регистрация: 29.11.2013
Сообщений: 6
#1

Для тех, кто понимает и С++, и Пролог - C++

24.12.2013, 17:48. Просмотров 174. Ответов 0
Метки нет (Все метки)

Всем добрый день!
Эта программа написана на Turbo Prolog.
Существует ли такая программа на С++ вместе с засечением времени?

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
/*-------------------------------------------------------------------------*/
/* Benchmark (Finite Domain)            INRIA Rocquencourt - ChLoE Project */
/*                                                                         */
/* Name           : alpha.pl                                               */
/* Title          : alphacipher                                            */
/* Original Source: Daniel Diaz - INRIA France                             */
/* Adapted by     :                                                        */
/* Date           : January 1993                                           */
/*                                                                         */
/* This problem comes from the news group rec.puzzle.                      */
/* The numbers 1 - 26 have been randomly assigned to the letters of the    */
/* alphabet. The numbers beside each word are the total of the values      */
/* assigned to the letters in the word. e.g for LYRE L,Y,R,E might equal   */
/* 5,9,20 and 13 respectively or any other combination that add up to 47.  */
/* Find the value of each letter under the equations:                      */
/*                                                                         */
/*    BALLET  45     GLEE  66     POLKA      59     SONG     61            */
/*    CELLO   43     JAZZ  58     QUARTET    50     SOPRANO  82            */
/*    CONCERT 74     LYRE  47     SAXOPHONE 134     THEME    72            */
/*    FLUTE   30     OBOE  53     SCALE      51     VIOLIN  100            */
/*    FUGUE   50     OPERA 65     SOLO       37     WALTZ    34            */
/*                                                                         */
/* Solution:                                                               */
/*  [A, B,C, D, E,F, G, H, I, J, K,L,M, N, O, P,Q, R, S,T,U, V,W, X, Y, Z] */
/*  [5,13,9,16,20,4,24,21,25,17,23,2,8,12,10,19,7,11,15,3,1,26,6,22,14,18] */
/*-------------------------------------------------------------------------*/
 
go:-    
    statistics(runtime,_),
    top,
    statistics(runtime,[_,Y]), 
    write('time : '), write(Y), nl.
 
top:-
    alpha(LD), 
    write(LD), nl.
 
alpha(LD):-
    LD=[A,B,C,_D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z],
    domain(LD,1,26),
 
    alldifferent(LD),
 
    B+A+L+L+E+T       #= 45,
    C+E+L+L+O         #= 43,
    C+O+N+C+E+R+T     #= 74,
    F+L+U+T+E         #= 30,
    F+U+G+U+E         #= 50,
    G+L+E+E           #= 66,
    J+A+Z+Z           #= 58,
    L+Y+R+E           #= 47,
    O+B+O+E           #= 53,
    O+P+E+R+A         #= 65,
    P+O+L+K+A         #= 59,
    Q+U+A+R+T+E+T     #= 50,
    S+A+X+O+P+H+O+N+E #= 134,
    S+C+A+L+E         #= 51,
    S+O+L+O           #= 37,
    S+O+N+G           #= 61,
    S+O+P+R+A+N+O     #= 82,
    T+H+E+M+E         #= 72,
    V+I+O+L+I+N       #= 100,
    W+A+L+T+Z         #= 34,
 
    labeling(LD).
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2013, 17:48
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Для тех, кто понимает и С++, и Пролог (C++):

Для тех кто имеет опыт по ОПП - C++
Посмотрите на код и выскажете свое мнение, соответствует ли он философии ОПП, если нет то скажите в чем ошибки, как лучше и т.д. . Это...

Процедуры в С++ (для тех, кто знает и Pascal, и C++) - C++
Недавно начал учить С++ и столкнулся с такой вещью. Из того, что я понял, у С++ есть только функции, а процедур нет, хотя они есть, но...

Для тех кто делает оконные приложения в Builder C++ Borland - C++
Ребята вот подскажите..если я создал приложение , оно работает , все норм, но вот я хочу что бы там было несколько форм. как подключить к...

Сортировка вектора сложного класса (Просто для тех кто знает) - C++
Есть класс: class Tovar { protected: Date_class expiry; string articul, name, catigory,barcode; double price; public: ...

Для тех кто умеет работать с файлами (Вывести на экран только строки, содержащие двузначные числа) - C++
Необходимо создать программу, которая считывает из текстового файла информацию, обрабатывает ее в соответствии с индивидуальным заданием и...

Объявление укзателей, логика работы (для тех кто знаком с языком "низко"). - C++
int *p_int; cout << p_int << "\n"; p_int = new int; cout << p_int; //в обоих выводах будут разные адреса памяти. ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2013, 17:48
Привет! Вот еще темы с ответами:

Ребят Незнаю что делать при запуске на компилирование выдает ошибку.Кто понимает что не так скажите а если не затруднит исправьте ошибку - C++
Разговаривал с двумя преподами говорят что проект не правильно создавал,хотя все правильно из группы спрашивал у парней говорят что не...

Из списка спортсменов выбрать тех кто занимается плаванием - C++
Из данного списка спортсменов распечатать данные о тех из них, кто занимается плаванием. Указать возраст, сколько лет они занимаются...

Записи: Задать список спортсменов, распечатать сведения о тех из них, кто занимается плаваньем - C++
Задать список спортсменов, распечатать сведения о тех из них, кто занимается плаваньем. Указать возраст,сколько лет они занимаются...

Из списка студентов на экран вывести данные о тех, кто учится в группе 664, проживает в общежитии, но родился в городе Ижевске - C++
Утро доброе! Подскажите пжста! Из списка студентов на экран вывести данные о тех, кто учится в группе 664, проживает в общежитии, но...


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

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

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