Есть код в Prolog другой неизвестной версии, как перевести это в рабочий код Prolog v5.2 ?domainssqed=sqed(a,b,c,x)a,b,c,x,d=stringpredicatessqed(a,b,c,x)clausessqed(A,B,C,X) :- D = BB-4A*C, abs(D,D1), RootD is sqrt(D1), ( D>=0, !, ( X = (-B-RootD)/2/A ; X = (RootD-B)/2/A ) ; Xr = -B/2/A, !, ( Xi = RootD/2/A ; Xi = -RootD/2/A ), X = [Xr,Xi]).goalwrite("Ââåäèòå A"), readln(A),nl,write("Ââåäèòå B"), readln(B),nl,write("Ââåäèòå C"), readln(C),nl,sqed(A,B,C,X),write("X1 = "),write(Xr),nl,write("X2 = "),write(Xi).Я очень ограниченно знаю этот язык, так что надежда на тебя, анон.
>>693550 (OP)bump
>>693557bump
>>693561неужели тут нет УМНЫХ анончиков ?
Не бампай так часто в тематике
>>693570это говно мамонта никому не всралось и связываться с этим никто не хочет. Такие дела. На коболе еще предложи пописать.
>>693613+ Я знаю, что это дерьмо никому нахуй не нужно(и мне в том числе), но мне нужно это сделать(
>>693614ну так сделай, ты инженер или где? Берешь доки и хуячишь (ну или нанимаешь индуса). Просто так тут кто-то вряд ли захочет ковыряться в этом.
>>693623дело в том, что там всякая математическая логика с предикатами и всякой другой поеботой,не говоря про ебанутый синтаксис. На C# я бы изи написал код, но здесь я практически бессилен.Задача сама по себе простая или сюда зайдет более менее адекватный программист, который раньше что-то прогал на ПРОЛОГЕ (хотя бы в унике ), то он быстро все решит.
>>693626*и если самофикс
