Цитата (Alison @ 10.3.2010, 10:08):

Код приводить не буду (он естественно, достаточно короткий). Вы еще и с моим парсером не разобрались, понаписали всякой ерунды и про него, и насчет обоих парсеров, так что рановато с Вами беседовать на уровне кода.

Код (prolog)

merge(Nums, Ops, Res) :-
    merge(Nums, Ops, [], 0, Res).

merge(Nums, [O | Oo], Rr, A, Res) :-
    (   A > 1,
        A1 is A - 1,
        merge(Nums, Oo, [O | Rr], A1, Res)
    );
    (   Nums = [N | Nn],
        A1 is A + 1,
        merge(Nn, [O | Oo], [N | Rr], A1, Res )
    ).
merge([], _, Res, _, Res).

merged_to_formula(Merged, Formula) :-
    reverse(Merged,Reversed),
    m_to_f(Reversed, [], Formula).

m_to_f([H | T], S, F) :-
    (   memberchk(H, [+,-,*,/])
    ->  S = [A1,A2|Ss], F0 =.. [H, A2, A1], m_to_f(T, [F0|Ss], F)
    ;   m_to_f(T, [H | S], F)
    ).
m_to_f([], [F], F).

all_ops([Op | Ops]) :-
    member(Op, [+,-,*,/]),
    all_ops(Ops).
all_ops([]).

all_formulas(Nums, Formula) :-
    permutation(Nums, NumsP),

    length(Nums,N),
    NOps is N - 1,

    length(OpsP, NOps),
    all_ops(OpsP), % Винитарх, вот Ваш "любимый" чудовищный кусок кода )

    merge(NumsP, OpsP, Merged),
    merged_to_formula(Merged, Formula).

solve(Nums, Res, F) :-
    all_formulas(Nums, F),
    catch(F=:=Res, _, fail). % handle zero division

solve_all(Nums, Res, FF) :-
    setof(F,solve(Nums, Res, F), FF).

solve(FF) :- solve_all([1,3,4,6],24,FF).

Код (prolog)

2 ?- time(solve(R)).
% 600,863 inferences, 0.109 CPU in 0.109 seconds (100% CPU, 5493605 Lips)
R = [6/ (1-3/4)].

Цитата (Alison @ 4.3.2010, 20:53):

А у меня все это уже разбирает без проблем.

Код (prolog)

run():-
    N = 5000000,
    S = "+1",
    Sl = length(S),
    Str0=create(Sl*N,S),
    Str=subString(Str0,1,length(Str0)-1),

    parser(exp, scan(Str), Term, Rest),
    Rest = [],
    !,
    %write(Term), nl,
    write("Parsed!"), nl,
    _ = readLine();
    write("Выражение не соответствует грамматике"),  
    _ = readLine().
end implement main

Код (prolog)

domains
i=integer
il=i*
predicates
arifm(il)
clauses
arifm([_,_]):-!.
arifm([X,Y,Z|T]):-N1=Y-X,N2=Z-Y,N1=N2,arifm([Y,Z|T]).
goal
arifm([-1,2,5,8,11,14,17,20,23,26,29,32,35,38,41,44,47]).

Код (cpp)

#include <vcl.h>
#pragma hdrstop

#include "UPotok.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        indikator=false;
}
//---------------------------------------------------------------------------
DWORD CALLBACK Potok1(void* p)
{
    HDC DC =GetDC(Form1->Handle);// ñîçäàëè äåñêðèïòîð êîíòåêñò  óñ-âà
      if(! Form1->GetIndikator())
        Form1->RunningFire();
      else
        for (int i=0;i<=3000;i++)
           {
              Sleep(1);
               String S =IntToStr(i);
               TextOut(DC,10,10, S.c_str(),S.Length());
              TextOut(DC,10,50, S.c_str(),S.Length());
            }
           ReleaseDC(Form1->Handle,DC); // îñâîáîäèëè êîíòåêñò
         return 0;
}
//---------------------------------------------------------------------------
void TForm1::RunningFire (void)
{
int a=0;
      for(;;)
      {
         for(int i=0; i<ControlCount;++i)
         {
              TShape*Shap=dynamic_cast<TShape*>(Controls[i]);
          if(Shap!=0)
            {
            if((i+a)%3==0)
              Shap->Brush->Color=clLime;
            else
              Shap->Brush->Color=clGreen;
            }
          Application->ProcessMessages();
          Sleep(5);
         }
          a++;
         Sleep(100);
      }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnCountClick(TObject *Sender)
{
        indikator=true;
        DWORD Nomer_2;
        HANDLE hthread1=CreateThread (0,0,Potok1,0,0,&Nomer_2);
         if(hthread1 ==0)
           MessageBox(Handle,"Ïîòîêà íåò",0,MB_OK);
}
//---------------------------------------------------------------------------

bool TForm1::GetIndikator(void)
{
        bool ind =indikator;
        return ind;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BtnFireClick(TObject *Sender)
{
        indikator=false;
        DWORD Nomer_1;
        HANDLE hthread=CreateThread (0,0,Potok1,0,0,&Nomer_1);
         if(hthread ==0)
           MessageBox(Handle,"Ïîòîêà íåò",0,MB_OK);
}
//---------------------------------------------------------------------------

Код (cpp)

ifndef UPotokH
#define UPotokH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *BtnCount;
        TButton *BtnFire;
        TShape *Shape1;
        TShape *Shape2;
        TShape *Shape3;
        TShape *Shape4;
        TShape *Shape5;
        TShape *Shape6;
        TShape *Shape7;
        TShape *Shape8;
        void __fastcall BtnCountClick(TObject *Sender);
        void __fastcall BtnFireClick(TObject *Sender);
private:
                bool indikator;

public:
                void RunningFire (void);
                bool GetIndikator(void);
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Цитата (Henrih @ 10.3.2010, 13:52):

неужели никто не может помочь с этой ужасной проблемой?

Цитата (Vladimir the Red Sunny @ 10.3.2010, 2:18):

А что же, с semenovmixan-ом не срослось?

Цитата (*Юльчик* @ 10.3.2010, 11:49):

Что значит забросили?

Цитата (FataLL @ 9.3.2010, 19:00):

Kylix вроде как забросили....

Код

24 = 6 / (1 - (3 / 4))
the end

Цитата (pavelr @ 10.3.2010, 9:29):

А у меня моя версия работает!

Цитата (Alexiski @ 24.1.2010, 5:25):

Что-то мы свернули на печальную тему.. Тут много можно понаписать, но как-то не хочется..заказ такси

Цитата (Cyber @ 9.3.2010, 21:39):

Подскажите, можно ли на DBF файл поставить пароль, так чтобы его можно было открыть только после ввода пароля.

Код (cpp)

Bitmap->Canvas->Pixels[X][Y];

Цитата:

Используя числа 1, 3, 4, 6, арифметические операции (сложение, вычитание, умножение, деление) и скобки, получить число 24. Разрешается использовать только эти числа и только эти операции. Каждое число должно использоваться один и только один раз. Операции и скобки можно использовать любое число раз. Нельзя объединять числа как цифры, составляя например 13 или 146.

Цитата (aag @ 9.3.2010, 21:46):

Гы...

Цитата (pavelr @ 9.3.2010, 21:09):

Виноват,выкладываю условие задачи:
4 девочки:Вера,Надя,Галя и Люба сажали вишни,груши,сливы и яблони.Каждая сажала разное дерево.Вера не сажала яблони и груши,Галя не сажала яблони и сливы,Люба не сажала сливы и вишни,а Надя-груши и вишни.Кто что сажал?

Код (prolog)

solution([вера/Вера,надя/Надя,галя/Галя,люба/Люба]) -->
    select(Вера),
    select(Надя),
    select(Галя),
    select(Люба),
    {
     \+ member(Вера, [яблони, груши]),
     \+ member(Галя, [яблони, сливы]),
     \+ member(Люба, [сливы, вишни]),
     \+ member(Надя, [груши, вишни])
    }.

solve(S):-
    phrase(solution(S), [яблони, груши, сливы, вишни]).

Код (prolog)

?- forall(solve(S),writeln(S)).
[вера/сливы, надя/яблони, галя/вишни, люба/груши]
[вера/вишни, надя/сливы, галя/груши, люба/яблони]
true.

Код (prolog)

DOMAINS
s=string   sl=s*   sll=sl*
CONSTANTS
g=["Vera","Nadya","Galya","Lyuba"]
t=["vishnya","grusha","sliva","yablonya"]
PREDICATES
member(sl,s,sl)
wrong(s,s)
solve(sl,sl,sll)
CLAUSES
solve([P|Ps],Ts,[[P,T]|N]):- member(Ts,T,Tn), not(wrong(P,T)), solve(Ps,Tn,N).
solve([],[],[]).

wrong("Vera",T):- T="yablonya"; T="grusha".
wrong("Galya",T):- T="yablonya"; T="sliva".
wrong("Lyuba",T):- T="vishnya"; T="sliva".
wrong("Nadya",T):- T="vishnya"; T="grusha".

member([A|B],A,B).
member([A|B],C,[A|D]):- member(B,C,D).

Код (prolog)

Goal: solve(g,t,Out)
Out=[["Vera","vishnya"],["Nadya","sliva"],["Galya","grusha"],["Lyuba","yablonya"]]
Out=[["Vera","sliva"],["Nadya","yablonya"],["Galya","vishnya"],["Lyuba","grusha"]]
2 Solutions

Код (prolog)

domains
il=integer*
predicates
arifm(il)
clauses
arifm([_]).
arifm([_,_]).
arifm([X,Y,Z|T]):-Y-X=Z-Y,arifm([Y,Z|T]).
goal
arifm([2,5,8,11,14,17,20,23]).

Код (prolog)

domains
i=integer
il=i*
predicates
arifm(il)
clauses
arifm(_):-!.
arifm([X,Y,Z|T]):-N1=Y-X,N2=Z-Y,N1=N2,arifm([Z|T]).
goal
arifm([2,5,8,11,14,17,20,23]).

Цитата (Epic_a13 @ 22.12.2009, 20:36):

PS: незнаю как тебя, но меня учили, что break - это плохо и некрасиво)))

Цитата (Grigoriy @ 12.1.2010, 18:21):

Помогите пожалуйста с задачей:
"Дано ... набор из N вещественных чисел ... (не использовать массивы)."

Код (pas)

notPrinted := true;
for i := 1 to n do
  case i of
    1 : if B <= xs[i] then Write( B, ' ', xs[i], ' ' );
    n : if notPrinted then Write( xs[i], ' ', B );
    else
      if (B <= xs[i+1]) and notPrinted then begin
        Write( xs[i], ' ', B, ' ' );
        notPrinted := false;
      end else Write( xs[i], ' ' );
  end;
WriteLn;

Цитата (dyalex @ 16.2.2010, 19:39):

Читай про процедуры

Цитата (IL_Agent @ 9.3.2010, 14:21):

Если это предложение работы - пиши мне в личку, обсудим.
Если сам планируешь делать - задавай конкретные вопросы.