Неверный результат сравнения одинаковых чисел

@Max-12 · Регистрация: 30.01.2016

Author24 — интернет-сервис помощи студентам

Почему К False;

Pascal

program f1;
uses crt;
const
d:real =0.85;
s:real =3.5;
i:real =2.975;
var
ds:real;
k:boolean;
begin
{
writeln ('Vvedite i'); readln(i);
writeln ('Vvedite d'); readln(d);
writeln ('Vvedite s'); readln(s);   }
ds:=d*s;
if i=ds then
k := true
else k:=false;
writeln ('i= ',i,'  ds= ',ds,' K= ',k);
readkey;
end.

ФедосеевПавел · 30.01.2016, 10:07

В отличие от целочисленных типов, все вещественные не точные, а приближённые.

Ввод с клавиатуры 0,33333
И вычисление 1/3=0,333333333333333333333333333333333333333.
И эти числа формально не равны.

Если нужно сравнивать вещественные, то это делают через абсолютную или относительную погрешность

Pascal

1	if abs(i=ds)<eps then

Добавлено через 1 минуту
Плюс, в вашем случае лучше записать так

Pascal

1	K:=(abs(i=ds)<eps);

@Max-12 · 30.01.2016, 10:12 **[ТС]**

Спасибо.

ФедосеевПавел · 30.01.2016, 11:02

Sorry, я ошибся при копировании. Конечно же

Pascal

1	K:=(abs(i-ds)<eps);

@capricornus CF · 30.01.2016, 21:51

Не по теме:

Забавно. Фрипаскаль - K=true.

@Cyborg Drone · 01.02.2016, 03:18

Max-12, когда Вы пишете что-либо подобное строкам Вашего кода 16..18, где-то умирает маленький пушистый котёнок. Никогда больше так не пишите. Незачем проверять значение логического выражения на истинность или ложность, оно и без Вашего вмешательства уже истинно либо ложно. Все указанные строчки заменяются на одну:

Pascal

16	k := i = ds;

Если нужно противоположное условие, тогда так:

Pascal

1	k := not (i = ds);

или

Pascal

1	k := i <> ds;

@Max-12 0 / 0 / 0 Регистрация: 30.01.2016 Сообщений: 4
	30.01.2016, 10:12 [ТС]	3
	Спасибо. 0

@capricornus CF
	30.01.2016, 21:51 #5
	Не по теме: Забавно. Фрипаскаль - K=true. 0

	01.02.2016, 03:18