[TPascal] Определить целое или дробное число

Определение целое или дробное число для переменных типа real.

Этот код был применен далее для составления программки вычисления степени.

---

Основано все на простейшей математике:

Если число разделить само на себя, то получится "1". Не целое (т.е. дробное) число так и целое можно округлить, в то время как целое не изменит свое значение, дробь округлится.

Используем эти свойства в программе, немного подправив и добавив условий.

Вот код:

var n:real; {описываем переменную}

{--}

begin {--}

readln(n); {вводим число}

if n/round(n)=1 then writeln('целый') else writeln('дробный'); {проверяем}

end.