условие равенство

[Тамерлан Абилов]

var
n,say,cem,buf:integer;          k,rez:real;
begin
readln(n);      rez:=n;
while n<>0 do begin
 buf:=n mod 10;
 cem:=cem+buf;
 say:=say+1;
 n:=n div 10;
end;

writeln(exp(ln(cem)*say),'-значение1      значение 2- ',rez); {для диагностики смотрю на значения обоих перемен и все правильно}
if (exp(ln(cem)*say)=rez) then writeln('цифра Армстронга') else
writeln('Не повезло');
end.

собственно проблема в том что

 (exp(ln(cem)*say)=rez)

первое и второе точно получает значение 3 допустим но оператор не пишет нужное т.е. " цифра армстронга".если вы про то что тип экспы при выводе реал а тип реза целое то я даже проверял преобразуя рез на реал не помогло.сорри за уг руский в чем может быть проблема?глючит паскаль?)
Я в тупике потому что если они оба имеют значения 3 тогда не цифра армстронга.а когда 6 например тогда условие нормально рабоает.втф)паскалабц

[Stilet]

преобразуя рез на реал

Зачем?

rez:real;

но оператор не пишет нужное

Ну а отладка что показывает? Может проявляется эффект неточности вычисления плавающей точки? Или сам алгоритм в корне не верен.

cem:=cem+buf;

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

[Poma][a]

А почему же я не удивлен? Для сравнения вещественных чисел пишем так :

const
    eps = 0.00001;

<..>
a := exp (<..>);
if Abs(a-rez) <= eps then

Но числа Армстронга (насколько я помню (а лезть в вики - лень)) - это целые числа, поэтому :

if Trunc((exp(ln(cem)*say))=rez) then writeln('цифра Армстронга') else

[Тамерлан Абилов]

не инициализируются?т.е. не используются или я не понял сор.отладка?

транк не помогло(

[ViktorR]

if Trunc((exp(ln(cem)*say))=rez) then writeln('цифра Армстронга') else

Тут, как минимум, проблема со скобками:

if (Trunc(exp(ln(cem)*say))=rez) then writeln('цифра Армстронга') else

А вообще-то, алгоритм реализован не верно, так как число Армстронга - сумма цифр возведенных в степень, равную числу этих цифр в числе.
В алгоритме выполняется подсчет числа цифр и при этом находится сумма этих цифр:

cem:=cem+buf;

Сумма цифр числа возводится в степень say, которая равна числу цифр в числе:

say:=say+1;

Рекомендую посмотреть тут: http://acmp.ru/article.asp?id_text=198


Как-то так, ...

[Тамерлан Абилов]

да разобраться с армстронгом не трабл но вот подводит условие. скобки я по правил само собой а вот в чем трабл тогда если я юзаю транк и при этом опять та же проблема если оба значение 7 то пишет цира арм-а если 3 то пишет не повезло.сам не понимаю

[Poma][a]

Тоже поделюсь ссылкой (тыц)

Тут, как минимум, проблема со скобками

Ага. Мой косяк.

[Stilet]

не инициализируются?т.е. не используются или я не понял сор.отладка?

Не инициализируются значит в начале их использования их значения могут быть отличными от нуля, и полагаться на мусор в памяти. http://yandex.ua/yandsearch?text=%D0...oc=10&lr=20554

[Serge_Bliznykov]

Тамерлан, вещественные числа (числа с десятичной запятой - например, тип real) НЕЛЬЗЯ сравнивать друг с другом просто так.

почему это так, для изучения и понимания сути вопроса, рекомендую ознакомиться:

Числа с плавающей запятой (Wikipedia)

статья Антона Григорьева "Неочевидные особенности вещественных чисел"

Загадки округления



updated - добавлено зеркало
статью Антона Григорьева можно почитать и на сайте королевства Дельфи:
Антон Григорьев. "Неочевидные особенности вещественных чисел"

[Тамерлан Абилов]

вот теперь я догадываюсь)Спс болшое ато парадокс уже снился мне)