Программа с процентами Опции

[murmanskk]

Привет. Помогите разобраться.

myans - это ответ который ввожу Я. ( число)
ans - это верный ответ.

Нужно их сравнить, если myans= ans ИЛИ myans <на1 ИЛИ >на1 = Вывести "Правильно"
В других случаях: <на2 ИЛИ >на2 вывести "Неправильно".

Код

Program prog1;

Var num1, num2, myans, ans:real;
i:integer;

begin

for  i:=1 to 100 do begin
Write('a: ');
Read(num1);
Write('b: ');
Read(num2);

ans:=num1/(num1+num2)*100;

Writeln('-' ); read(myans);

writeln(ans);


end;
end.

Я пробовал сделать так но у меня не вышло..

Спойлер (Показать/Скрыть)

Код

If ans=myans    then   writeln('true')    else if ans=myans-1  then   writeln('true')
else if ans=myans+1  then   writeln('true')

else    writeln('false');

Но он выводил некорректно, если ответ целое число например 25 то всё нормально, а если ответ 33.3333 то уже всегда 'false' выводил

[Ромаха]

if (myans = ans) or (myans-1 = ans) or (myans+1 = ans) then
             WriteLn ('Правильно')
else
             WriteLn ('Неправильно')

[murmanskk]

Не получается так..
Если ответ целое число например 25 то нормально, а если в ответе не целое 33.33.. (например при исходных данных 10 и 20) то пишет всегда "НЕПРАВИЛЬНО" какое бы число не ввести в ответе.

Сообщение отредактировано: murmanskk - 5.03.2013 19:10

[IUnknown]

Вещественные числа (а они в этой программе все вещественные) не сравниваются оператором "=", только Abs(Value1 - Value2) < Eps.

[murmanskk]

Вещественные числа (а они в этой программе все вещественные) не сравниваются оператором "=", только Abs(Value1 - Value2) < Eps.

А нельзя это как нить на практике продемонстрировать?)

[IUnknown]

Конструкцию

if (myans = ans) then

заменить на

const 
   eps = 0.0001; { Если 2 числа будут отличаться больше, чем на eps - они будут считаться разными }

{ ... }
if Abs(myans - ans) < Eps then
   { модуль разности чисел не превышает eps, значит, можно считать что myans = ans }

В более продвинутых компиляторах (например, FPC) используется функция SameValue из модуля Math, которая примерно это и делает.

[murmanskk]

спасибо