Сложение химических элементов

[Wolfus]

Как сложить два или более химических элемента таким образом. чтобы и справа и слева химического уравнения было равенство коэффициентов. Например, 2H2+ O2=2H2O(т.е и справа и слева по 4 водорода и по 2 воды). Приведите пример кода.

[Utkin]

Тут как мне кажется нужно парсить

[TinMan]

Сообщение от Utkin

Тут как мне кажется нужно парсить

Тут не просто в парсинге проблема. Надо еще различать коэффициенты и индексы, а также знать валентность (и не только). Короче, задача неслабая такая.

[Utkin]

Сообщение от TinMan

Тут не просто в парсинге проблема. Надо еще различать коэффициенты и индексы, а также знать валентность (и не только). Короче, задача неслабая такая.

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

[evg_m]

как человек решает такую задачу.
составляем систему уравнений
(Н) x *2 + y*0 =z*2
(O) x *0 + y*2 =z*1

три неизвестных (число веществ в реакции) и два (число элементов) уравнения
решаем ее в ЦЕЛЫХ (и даже больше натуральных) числах. Для человека здесь раздолье в методах.
Компьютер он тупее (но зато быстрее в тупых операциях) поэтому используем "тупой" перебор.
например так

составляем такую вот матрицу

0 0 | 0 искомая строка коэффициентов (начальное заполнение для старта перебора и перебираем все варианты в разумных пределах (у меня <=10)
2 0 | -2 коэфф. использования первого (Н) элемента
0 2 | -1 коэфф. использования второго (О) элемента

(-) минус появился что мы как бы переносим все в левую часть и сравниаем с нулем
2 0 -2 | 0
0 2 -1 | 0

матрица это будет такой вот массив
m: array of array of integer; //[0..2, 1..3] of integer;

// для проверки используем такую функцию

function TestFormula: boolean;
begin
  result:=true;
  for j:=1 to 2 length(m)-1) do begin
    s:=0;
    for k:=1 to length(m[0]) do 
      s:=s +m[0,k]*m[j,k]; // сумма произведений искомой строки коэф(0 строка) на строку коэф. элемента 
    if s<>0 then begin 
      result:=false; 
      break; // для удобства расчетов коэф. из правой части формулы ставим со знаком -(минус)
   и проверяем итог как =0 (хорошо) /<>0 (плохо)
    end;
  end;
end;

и теперь делаем перебор вариантов

el:=0;
while (true) do begin
  m[0, el]:=m[0,el]+1;
  if TestFormula then begin 
     showResult;//у нас есть какой-то результат 
//его можно даже попробовать упростить (использовать НОД для 0 строки)
     break;
  end;
// а это собственно перебор 
  if m[0,el]>=10 then begin
    for j:=0 to el do m[0,j]:=0;
    el:=el+1;
    if el>length(m) then break;
    m[0, el]:=m[0,el]+1;
    el:=0;
  end;

P.S. код не проверял. Главное на мой взгляд в комментариях.

[Utkin]

А почему у Вас всего три неизвестных?

[Аватар]

Сообщение от Utkin

А почему у Вас всего три неизвестных?

Находим то в данном случае 3 коєффициента. Вот и 3 неизвестных. Связать их в систему можем только двумя линейными уравнениями. И для поиска коэффициентов валентность не при делах. Она зашита в формулы веществ и в расчете коэффициентов не нужна