Задача

[Полина19]

Дано число а. Проверить, является ли оно натуральным числом.
Знаю, что натуральные числа, это те числа, которые положительные и целые, предела не имеют. Как в Паскале написать, что данное число не может быть дробным? Никак не доходит...

[ZX Spectrum-128]

var
  code,n:integer;
  s:string;
begin
  readln(s);
  val(s,n,code);
  if (code=0) then
    if n>0 then
      writeln('Натуральное')
    else
      writeln('Не натуральное, целое')
  else
    writeln('Число дробное или ошибка в записи числа.'); 
  readln;
end.

[Полина19]

А как будет выглядить программа с mod или div?

[Аватар]

Сообщение от Полина19

А как будет выглядить программа с mod или div?

Гы, полагаю, что задача стоит так - является ли натуральное число простым. Не? Вот там mod и div. А здесь оно не нужно

[ZX Spectrum-128]

Никак. Тип числа вы указываете в разделе var. И в дальнейшем вы не можете изменить его тип.
То если дробное, то real, если целое, то integer.

[Полина19]

Нет, является ли данное число натуральным. Просто ход решения сложноват...Или мне так кажется.

В любом случае, спасибо всем за помощь)

[ZX Spectrum-128]

Ничего сложного в программе нет. Сначала вы вводите "число" как строку, затем процедура val пытается преобразовать введенный вами набор символов в целое число. Если все в порядке, то в переменную code будет записан 0, и можно проверять число на "натуральность".
Если же "число" было дробным (либо вовсе не число), то в переменную code будет записан номер символа, в котором встретилась ошибка.

[Вадим Мошев]

А что, если такой вариант.
если число положительно и функция frac от этого числа отличается от нуля не более чем на некоторый порог (грубо говоря, дробная часть равна нулю), то число натуральное.

Кстати, насколько я помню, нуль - не натуральное число.

[ZX Spectrum-128]

Да, такой вариант тоже рассматривался. И успешно сдавался.
Единственное, что препод подправил вариант с frac на вариант c round, заявив, что сравнение с машинным нулем - небезопасная операция.

var
  r:real;
begin
  readln(r);
//  if (frac(r)=0) and (r>0) then
  if (round(r)=r) and (r>0) then
    writeln('Натуральное')
  else
    writeln('Не натуральное');
  readln;
end.

[Вадим Мошев]

Я предлагал проверять не на равенство машинному нулю, а определить соотношение (больше/меньше).