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

[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' выводил

[IUnknown]

Конструкцию

if (myans = ans) then

заменить на

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

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

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