Не хочет сравнивать числа Real с Integer

@Fakeoke · Регистрация: 28.07.2011

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

задачка простая.

Вычислить значение функции 1/(2+x) на интервале от [-4, 4] c шагом h= 0.2

вот код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var f,x,h:real;
begin
 x:=-4; //начинаем от -4
 h:=0.2; //шаг 0.2
 while (x<=4) do
 begin
 f:=1/(2+x);
 writeln('При x = ',x,'. F = ',f:0:3);
 x:=x+h;
 end;
readln;
end.

что я делаю не так?
почему он x=4 говорит false когда x=4... он говорит что x>4 когда x=4

@Пс · 23.12.2019, 21:38

попробуйте так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  f, x, h: real;
 
begin
  x := -4; //начинаем от -4
  h := 0.2; //шаг 0.2
  while abs(x - 4) > 0.001 do
  begin
    f := 1 / (2 + x);
    writeln('При x = ', x, '. F = ', f:0:3);
    x := x + h;
  end;
  readln;
end.

@Fakeoke · 23.12.2019, 21:43 **[ТС]**

Сообщение от Пс

var
f, x, h: real;
begin
x := -4; //начинаем от -4
h := 0.2; //шаг 0.2
while abs(x - 4) > 0.001 do
begin
f := 1 / (2 + x);
writeln('При x = ', x, '. F = ', f:0:3);
x := x + h;
end;
readln;
end.

это все понятно... так и пришлось сделать x<4.01...
меня не этот вопрос интересовал.

@Пс · 23.12.2019, 21:43

Fakeoke, а какой?

@Fakeoke · 23.12.2019, 21:44 **[ТС]**

Сообщение от Fakeoke

почему он x=4 говорит false когда x=4... он говорит что x>4 когда x=4

вот этот.
почему он не дает сравнить 4integer с 4 real
и как их тогда правильно сравнить?

@Пс · 23.12.2019, 21:45

Вот: Почему после вызова процедуры, когда значение доходит до 5.9, код начинает неправильно работать?

@Fakeoke · 23.12.2019, 21:57 **[ТС]**

кстати ваш вариант почему-то 4 не включает...

@Пс · 23.12.2019, 22:00

Fakeoke, не знаю с чем это может быть связано

@mr-Crocodile · 24.12.2019, 10:53

Сообщение от Fakeoke

почему он не дает сравнить 4integer с 4 real

это связано с тем, как вещественные числа представлены внутри компьютера (машинное представление вещественных чисел). об этом уже тонны исписаны. И ссылки есть. Почитай, очень полезно и познавательно.
если кратно - НИКОГДА нельзя сравнивать вещественные числа на равенство. Ни друг с другом, ни с константой в коде, никак.

почитай статью по ссылке тут - Вычислить значение выражения

Сообщение от Fakeoke

и как их тогда правильно сравнить?

только операции сравнения меньше или больше.
Поэтому, если нужно сравнить два вещественных числа на равенство, нужно найти их разность и сравнить её по модулю (абсолютное значение) с заведомо малой величиной эпсилон. Обычно тысячных или десятитысячных значений достаточно для практических задач.
Как это делать - тебе показали. Да ты и сам уже к этом пришёл (x<4.01)

@Puporev · 24.12.2019, 11:10

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a,b,h,x,f:real;
begin
a:=-4;
b:=4;
h:=0.2;
x:=a;
while x<b+h/2 do
 begin
  if abs(2+x)<0.001 then writeln('При x=',x:4:1,' F не определена')
  else
   begin
    f:=1/(2+x);
    writeln('При x=',x:4:1,' F=',f:8:3);
   end;
  x:=x+h;
 end;
end.

@ProMix0 · 24.12.2019, 12:34

Сообщение от Fakeoke

x<4.01

4.0

@mr-Crocodile · 24.12.2019, 14:18

Сообщение от ProMix0

4.0

нет

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	23.12.2019, 21:43
	Fakeoke, а какой? 0

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	23.12.2019, 21:45
	Вот: Почему после вызова процедуры, когда значение доходит до 5.9, код начинает неправильно работать? 0

@Fakeoke 524 / 400 / 213 Регистрация: 28.07.2011 Сообщений: 2,219
	23.12.2019, 21:57 [ТС]
	кстати ваш вариант почему-то 4 не включает... 0

@Пс 257 / 149 / 70 Регистрация: 29.07.2018 Сообщений: 1,249
	23.12.2019, 22:00
	Fakeoke, не знаю с чем это может быть связано 0