Какой пас ставить?, ...паскали бывают разные... Опции

[Iry]

помогите кто может. Надо написать прогу на прологе! Задание для продажи театральных билетов. Должна быть представлена следующая информация: спектакль, свободные места, цена билета. Реализовать вывод всей информации о билетах, поиск билета по ряду. Реализовать поиск по цене с указанием максимально возможной цены (должна быть выведена информация о билетах, цены на которые ниже указанного значения). Для удобства работы реализовать меню с соответствующими пунктами.

[Чужак]

Altair, прочитал твое руководство по Прологу. Интересно...
Но неужели нельзя реализовать логику не Паскале?
Там же есть и string, и булеан?
И, по-моему (ИМХО) на нем вполне можно решать
логические задачи и описывать объекты.
Вот глянь очень простую программу. Размещал её в "Мод.
движения шаров", но приведу еще раз.

program Sharik;
 uses graph,crt;
 var Gd, Gm, X, Y, R: Integer; Napr: string;
 begin
 Gd := Detect; InitGraph(Gd, Gm, ' ');
 X:=320; Y:=240;  R:=10; Napr:='NP';
 repeat
 setcolor(15);
 Line(20, 40,20, 440); Line(20,40,620,40);
 Line(620,40,620,440); Line(620,440,20,440);
 Circle(X,Y,R);
 delay(500);
 setcolor(0);
 Circle(X,Y,R);
 if Napr='VP' then begin
                    X:=X+1; Y:=Y-1;
                   end;
 if Napr='NP' then begin
                    X:=X+1; Y:=Y+1;
                   end;
 if Napr='NL' then begin
                    X:=X-1; Y:=Y+1;
                   end;
 if Napr='VL' then begin
                    X:=X-1; Y:=Y-1;
                   end;
 if Y=40   then begin
                if Napr='VP' then Napr:='NP';
                if Napr='VL' then Napr:='NL';
                end;
 if X=620  then begin
                if Napr='VP' then Napr:='VL';
                if Napr='NP' then Napr:='NL';
                end;
 if Y=440  then begin
                if Napr='NP' then Napr:='VP';
                if Napr='NL' then Napr:='VL';
                end;
 if X=20   then begin
                if Napr='VL' then Napr:='VP';
                if Napr='NL' then Napr:='NP';
                end;
 until keypressed;
 CloseGraph
end. 

При её простоте, в ней реализована логика.
Программа "понимает", где находится шарик и куда
он должен двигаться. Меняешь значение Napr-меняешь направление.
P.S. В случае необходимости можно этот вопрос
вынести в отдельную тему "Логика на Паскале".

[Altair]

Но неужели нельзя реализовать логику не Паскале?

Паскаль - алгоритмический язык, и логика предикатов в нем не реализуется.

[arhimag]

E-lab AVRco pascal compiler Version 2.40 ProСистема разработки на Паскале для AVR-микроконтроллеров фирмы Атмел.

А можно по плдробнее?
Есть ли это Pascal для прошивки микроконтроллеров? Нигода о таком не слышал, но если это то, что я сказал, то помоему это очень полезная штука.

[SKVOZNJAK]

А можно по плдробнее?
Есть ли это Pascal для прошивки микроконтроллеров? Нигода о таком не слышал, но если это то, что я сказал, то помоему это очень полезная штука.

На http://freepascal.ru/ был топик о паскале для прошивки кристалов, тот -не тот, искать надо. Штука платная, в демо версии пишет только очень маленькие программы.