Работа со строками.Visual Prolog 5.2

[Victorials2648]

Задание:
3. Дана строка символов s1,s2,...sn, в которой встречаются цифры, пробелы, буква Е и знаки + и -. Известно, что первый символ строки является цифрой. Из данной строки выделить подстроку предшествующую первому пробелу. Требуется: определить является ли это подстрока числом, если да, то выяснить целым или вещественным, положительным или отрецательным.

Через ...
Domains
...
predicates
...
clauses
..
goel

[rrrFer]

В вашем турбо не подскажу, но суть будет понятна, поди.
Если у вас Visual Prolog, то стопудово там есть поддержка регулярных выражений - их и используйте.
А если не вижуал - то посмотрите сюда:
http://www.hardforum.ru/t115322/
Там описан оператор <- Ну в турбо вместо него опишите обычную функцию, это не влияет на суть (переименуете просто и аргумент передавать по-обычному будете).

Там же описан is_num
Ну а с этим оператором ваша задача решается так примерно:

p(S, plusint):-
  S <- [A], !, is_num(A).
p(S, plusreal):-
  S <- [A, ".", B], !, is_num(A), is_num(B).
p(S, minusint):-
  S<- ["-", A], !, p(A, plusint).
p(S, minusreal):-
  S <- ["-", A], !, p(A, plusreal).

Оператор этот реализован очень криво и примитивно стандартным append:

R <- ([A, B]):-
    !, append(A, B, R).
R <- ([A|T]):-
    append(A, TR, R),
    TR <- T,
    append(A, TR, R), !.

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

Ответил бы раньше, но пароль не восстанавливался у меня тут