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

[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 15:10