Проверка действительного числа на целость, и нахождение диапазона целых Опции

[Grinnchik]

Вообщем задали в школе задачу по паскалю.Там нужно ввести границы диапазона с клавы и потом еще 3 числа (тип real) нужно вообщем написать какие числа проходят по диапазону,какое первое отрицательное/положительное,с этим я справился,а вот еще нужно определить сколько целых чисел и вывести.С этим проблема.Как переменные типа real проверить на целость?Mod как я понял не подходит.Задача для 10 класса,не предлагайте сложных решений пожалуйста.Спасибо заранее.

[TarasBer]

Я так понял, автору надо узнать, сколько целых на диапазоне?
Тогда проверка числа на целость не поможет.
Ну не будете же вы перебирать все вещественные числа в диапазоне и проверять их на целость.

В диапазоне от a до b целых чисел ровно

down(b)-up(a)+1

где down ищет ближайшее целое снизу, а up - ближайшее целое сверху.
Таких функций стандартных нету, но их можно написать, используя round

function down(x: real): integer;
var 
  r: integer;
begin
  r := round(x);
  if r>x then r:=r-1;
  down := r;
end;

function up(x: real): integer;
var 
  r: integer;
begin
  r := round(x);
  if r<x then r:=r+1;
  up := r;
end;

[Lapp]

Я так понял, автору надо узнать, сколько целых на диапазоне?
Тогда проверка числа на целость не поможет.

Гм. Да, скорее всего, ты прав..
Я повелся на его фразу "Как переменные типа real проверить на целость?", а она, возможно, была уже выводом (неверным).

Таких функций стандартных нету, но их можно написать, используя round

Хочу на всякий случай добавить.. Если кто-то подумает, что функция Trunc - это то же самое, что Down - таки это не так! Для отрицательных чисел результат Trunc больше или равен аргументу. Так что для них она скорее Up . И еще добавлю, что в общем случае Up(x) не всегда равно Down(x)+1, иногда Down(x)=Up(x).


Добавлено через 9 мин.

Хотя я бы за такую постановку задачи снял бы преподавателя тут же.

Согласен (хотя автор просил не усложнять)).
Кстати, интересно: на форуме (то есть, от студентов) задач с таким безобразием гораздо больше, чем их встречается на практике. Реально, встречаются иногда ситуации, когда приходится извращаться с точностью, но гораздо реже. Такое впечатление, будто препы нарочно их вытаскивают (но явно не с целью продемонстрировать эту проблему).