Программа ввода Опции

[Танюшонка]

Здравствуйте! мне очень нужна ваша компетентная помощь!
Мне над написать программку, которая может решать простые уравнения типа 5Х+10, которые бы вводил пользователь. Как бы мне это сделать?
Пользователь вводит уравнение. Через readln я получаю стринг. Как мне его теперь разделить на отдельные символы, чтобы проверить это цифра или буква.
Мне в понедельник её сдавать, помогите мне, очень прошу! Буду примного благодарна!

Сообщение отредактировано: Танюшонка - 15.06.2007 15:19

[volvo]

То есть, ты хочешь нечто вроде этого:

function eval(X: real; s: string): real;
var
  p, err: integer;
  st: string;
  f: real;
begin
  p := pos('X', s);
  delete(s, p, 1);
  str(X:0:3, st);
  insert(st, s, p);
  val(calc(s), f, err);
  eval := f;
end;


begin
  { В строке обязательно вводить знак умножения, и буква X должна быть большой... }
  write('f(x) = '); readln(s); { Тестировалось на строке 10*X+30 }
  writeln(eval(12.45, s) :10 :5);
end.

(функция Calc приведена вот тут:
Интерпретатор ) ?

Сообщение отредактировано: volvo - 15.06.2007 18:39