Арифметические действия с цифрами числа

[Ольга Романова]

А можно exe-шник к этому варианту на С++? Буду очень-очень благодарна

[ZX Spectrum-128]

Размер благодарности не будет иметь границ, в разумных пределах?

[Stilet]

0.rar
Лови.......

[Аыфвфвц]

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

PEREB_V3.PAS

Подскажите как в этой версии сделать, чтоб если не выводит ни одной комбинации, выходил определенный текст?

[Serge_Bliznykov]

Аыфвфвц, заведите глобальную переменную.
обнулите её перед вызовом NextVariant(ss,'');
и наращивайте в процедуре, где выводится очередной вариант

  {Печать результата, если значение выражение совпало с требуемым}
  if (Abs(Target-CalcResult)<0.00001) or (Target = 0) then begin
     sInFix :=   ConvertPostFixToInFix (s);
     WriteLn( s + ' = ',StrCalcResult, '  выражение в infix:  ', sInFix);
     Inc(countOfVariants);
  end;

ну и в конце проверьте её, если она равна нулю, то выдать сообщение,
что вариантов нет!

справитесь?

[Аыфвфвц]

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

Аыфвфвц, заведите глобальную переменную.
обнулите её перед вызовом NextVariant(ss,'');
и наращивайте в процедуре, где выводится очередной вариант


ну и в конце проверьте её, если она равна нулю, то выдать сообщение,
что вариантов нет!

справитесь?

Спасибо большое, все получилось!

[Serge_Bliznykov]

всегда пожалуйста!

[GenaB]

Вариант на FozPro2.6

От модератора: Внимание! Будьте внимательны и осторожны при запуске незнакомых вам экзешников. Возможно то, что вам предлагают, является вредоносной программой