Определить тип введенного числа (Case..of)

[LittleMonkey]

Простите, но я не сильна в программировании, по-этому и обратилась сюда за помощью( я лишь предполагаю возможный вариант решения, может есть решение попроще.. Буду признательна за любую помощь!

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

[ZX Spectrum-128]

Попроще?
Можно.
"Число" вводим строкой. Проверяем, есть ли символ "точка", если есть - тип real.
Иначе поехали по диапазонам: переведя предварительно в число - strtoint
-128..127 - наверное shortint, а также любой знаковый;
0..255 - возможно, byte;
-32768..32767 - какой-то целый
Ну и тюдю

[LittleMonkey]

Простите, а в что не так с диапазоном?

Задумка мне понятна, но пользователь может и запятую поставить, а зная своего учителя и слово введет)

[ZX Spectrum-128]

Легко.
Перед обработкой числа дергаем его функцией val
Val(chislo, x, code);
If code<>0 then {вот и и поймали тичера, не число он ввел}

[LittleMonkey]

Если Вам не сложно, не могли бы Вы написать кусочек программы до использования case of? Буду очень Вам признательна!

[ZX Spectrum-128]

Хорошо, напишу. Только не на Абс, а на fpc.

[LittleMonkey]

Хорошо, спасибо Вам за помощь!!

[min@y™]

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

Давай скрин с переводом на русский.

[LittleMonkey]

Тема: программирование алгоритмов разветвленной структуры с использование оператора выбора case of
Цель: научиться программировать анализ данных.

Моя задача в конце, №10.

[ZX Spectrum-128]

Var
  s:string;
  x:real;
  y,v,i,code:integer;
begin
  v:=-MaxInt;
  write('Введите число: '); readln(s);
  { Проверяем, число ли вообще. }
  val(s,x,code);
  if code<>0 then
    begin
      writeln('Ошибка! Введено не число!');
      exit;
    end;
  { Проверяем, на вещественное число. }
  for i:=1 to length(s) do
    if s[i]='.' then
      begin
        v:=0;
        break;
      end;
  if v<>0 then
    begin
      val(s,y,code);
      if code<>0 then
        begin
          writeln('Тип целого числа не удалось определить. Возможно, слишком большое число.');
          exit;
        end
      else
        begin
          if (y>=-128) and (y<=127) then
            v:=1;
          { Остальные диапазоны ввести самостоятельно}
        end;
    end;
  case v of
    0: writeln('Тип числа: real.');
    1: writeln('Тип числа: целое, возможно shortint.'); 
  else
    writeln('Тип числа не удалось определить.');
  end;
  readln;
end.