считывание констант

[_SERGEYX_]

Знаешь, у меня не заработало, если в именах констант или переменных в формуле есть цифры. Т.е. нельзя задавать им имена x1,x2,x3. Может я что-то не так делаю?
Но если назвать их a,b,c, то все работает нормально.

var m: array[0..10] of extended;
Itog: extended;
const
a: Extended = 11111111;
b: Extended = 222222222;
c: Extended = 333333333;
begin
  CalcExpress1.Variables.Clear;
  CalcExpress1.Variables.Add('a');
  CalcExpress1.Variables.Add('b');
  CalcExpress1.Variables.Add('c');
  m[0] := a; m[1] := b; m[2] := c;
  CalcExpress1.Formula := '2*a+3*b+6*c';
  Itog:= CalcExpress1.calc(m);
end;

[puporev]

a,b,c-это не переменные х1,х2,х3, а коэффициенты при неизвестных, т.е. то что у тебя 2,3,6. Автор спрашивал как вытащить из формулы эти коэффмциенты и вставить их в таблицу, ему не надо решать.
Например вводишь в Эдит по очереди линейные уравнения ситемы, и сразу формируется таблица коэффициентов. А потом система решается например по Гауссу или Крамеру.
Но если автору не надо, то мне тем более.

[artemavd]

Например вводишь в Эдит по очереди линейные уравнения ситемы, и сразу формируется таблица коэффициентов.

Я именно этого и добиваюсь сделать). Мне и надо, чтобы по очереди вводились уравнения и из них формировалась общая таблица. У вас есть код, как это можно сделать?)

А потом система решается например по Гауссу или Крамеру.

.
Мне надо, чтобы пока что составлялась таблица, а дальнейшие действия с ней потом придумаю.

[artemavd]

s:=Edit1.text;
j:=0;
for i:=1 to length(s) do
if (i=1) or (s[i-1]='+') then
begin
inc(j);
StringGrid1.Cells[j-1,0]:=s[i];
end;

этот код хорошо считывает данные, но только со знаком "+". Например если я ему пишу 4х+6х, то в таблицу правильно заносятся значения 4 и 6. А если так: 4х-6х, то заносится только 4. Минус 6 не заносится. Почему? Как можно передалатьь ваш код, чтообы знак минус заносился вместе с константой, перед которой он стоит? Я пробовал так:

s:=Edit1.text;
j:=0;
for i:=1 to length(s) do
if (i=1) or (s[i-1]='+') or (s[i-1]='-') then
begin
inc(j);
StringGrid1.Cells[j-1,0]:=s[i];
end;

но так не работает и ничего не меняет в работе.

[puporev]

Я ведь для примера написал, просто разобрал Ваш случай, а вообще это так надо написать:

s:=Edit1.text;
n:=length(s);
if s[1]='-' then
   begin
     j:=0;
     for i:=1 to n do
     if s[i-1]='+' then
       begin
         inc(j);
         StringGrid1.Cells[j-1,0]:=s[i];
       end
           else if s[i-1]='-' then
       begin
         inc(j);
        StringGrid1.Cells[j-1,0]:=s[i-1]+s[i];
       end;
     end
else
   begin
     j:=0;
     for i:=1 to n do
     if (i=1)or(s[i-1]='+') then
       begin
         inc(j);
         StringGrid1.Cells[j-1,0]:=s[i];
       end
     else if s[i-1]='-' then
       begin
         inc(j);
         StringGrid1.Cells[j-1,0]:=s[i-1]+s[i];
       end;
     end;

[evg_m]

s:=trim(edit1.text);

nn:=nn+1;
k:=1; l:=0;
try
for n:=1 to 3 do begin
k:=k+l;
l:=0;
for j:=1 to length(s) do begin
if s[j] in ['+','-','0'..'9'] then l:=l+1 else begin k:=j; break; end;
end;
if l=0 then r:=1 else r:=strtoint(copy(s,k,l));
cells[nn,n]:=inttostr(r);
end;
except
showmessage('Вы ошиблись');
end;

[artemavd]

puporev, ваш код работает, но осталось помочь с двумя вопросами:
1. Как сделать, чтобы в таблицу заносились не только значения с одной цифрой, но двух значные? То есть только чтобы из уравнения 4х-6х заносились 4 и -6, но и, например, из уравнения 14х-26х заносились 14 и -26? А то из последнего уравнения заносятся только 1 и -2, т.е. первые цифры констант.
2. Как сделать, чтобы при новом вводе нового уравнения значения переносились на следующую строчку?
Помогите пожалуйста хотя бы с одним из этих вопросов). Буду безгранично благодарен вам, если поможете с двумя).

[puporev]

А сразу изложить всю задачу не судьба? Так и будем по одному шагу месяц писать программу. Напишите точно, что, в каком виде и куда будете заносить, куда выводить. Я так понимаю что коэффициенты будут не только целые числа, но и вещественные, должна быть колонка для свободных членов, количество уравнений любое и т.д.

Это сообщение можно удалить.

[puporev]

Чтобы не разводить писанину, прилагаю программку, в которой можно вводить в Эдит уравнение с любыми коэффициентами и целыми и вещественными. Вводить можно сколько угодно уравнений, только при вводе надо быть аккуратным. Именно из-за этого я бы не советовал вводить коэффициенты таким сложным путем, почему нельзя ввести их сразу в таблицу? Если организовать проверку правильности ввода, то это будет еще одна программа раза в 3 длиннее этой. Подумайте. Ну а эта программа пригодится при работе со строками.