Символ или число

[Sparky]

Добрый день, есть задание реализовать гетерогенный списков в котором могут храниться целые,вещественные числа и символы. С тем как их хранить я разобралась, но появился другой вопрос, как определить значение какого типа ввводится, как быть с целыми вещественными понятно, читаем всегда вещественные, а затем при помощи frac(введеное число) определеяем если дробная часть 0 то целое. А вот как определить символ или число я не знаю, подскажите пожалуйста

[Grag]

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

Добрый день, есть задание реализовать гетерогенный списков в котором могут храниться целые,вещественные числа и символы. С тем как их хранить я разобралась, но появился другой вопрос, как определить значение какого типа ввводится, как быть с целыми вещественными понятно, читаем всегда вещественные, а затем при помощи frac(введеное число) определеяем если дробная часть 0 то целое. А вот как определить символ или число я не знаю, подскажите пожалуйста

Целые числа являются подмножеством вещественных...

[Sparky]

так ладно более конкретно: мне нужно при вводе с клавиатуры определить что введено буква или вещественное число, как такое реализовать?

[Stilet]

Ну если эта строка - число то приведение его к типу числа не даст ошибки.
Ты о каком языке то говоришь? ато frac в нескольких есть.

мне нужно при вводе с клавиатуры определить что введено буква или вещественное число

Буква или Цифра? Или именно число?

[Grag]

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

так ладно более конкретно: мне нужно при вводе с клавиатуры определить что введено буква или вещественное число, как такое реализовать?

Вообще-то при вводе с клавиатуры из буфера клавиатуры считываются скэн-коды клавиш, поэтому скэн-код для цифр 0..9 и символов '0'..'9' будут одинаковы...

[DeKot]

Если надо использовать ограничение ввода только цифровых символов, разделительной запятой и знака минус, применяйте следующую конструкцию

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   { Ввод только цифр и знаков ',' (зпт) и '-' (минус)}
   if not (Key in ['0'..'9',',','-']) then Key:= #0;
end;

Введенное в Edit1 число в виде строковой переменной затем преобразуется в вещественное число функцией
StrToFloat(Form1.Edit1.Text);

[Chudo4258]

А вот как определить символ или число я не знаю, подскажите пожалуйста

var S:string; //или char
     X:real;
     C:integer;
begin
readln(S);
Val(S,X,C);
if C=0 then //введенное S является числом, и тут уже определяешь какой вид числа, целый или дробный
         else //введенное S является символом
end;

[Grag]

Sparky писал

А вот как определить символ или число я не знаю

и еще

мне нужно при вводе с клавиатуры определить что введено буква или вещественное число

Так ты бы уж определился конкретно что нужно определять символ или букву

[Sparky]

программу нужно писать на паскале и консольную. Мне нужно считать с файла, возможные варианты: 0.2 1 s
Перобразовывать все в строки нельзя, дак вот как понять что было введено значение типа char.
Допустим чтобы определиться целое или вещетсвенное делаю так:

if frac(x)=0 then
        begin
//обработка целого
        end
       else
        begin
//обработка вещественного
        end;

[Grag]

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

программу нужно писать на паскале и консольную. Мне нужно считать с файла, возможные варианты: 0.2 1 s
Перобразовывать все в строки нельзя, дак вот как понять что было введено значение типа char.
Допустим чтобы определиться целое или вещетсвенное делаю так:

if frac(x)=0 then
        begin
//обработка целого
        end
       else
        begin
//обработка вещественного
        end;

Да проще простого...
Читаешь очередной элемент списка и определяешь входит ли он в множество символов
if S in ['a'..'Z'] then // это символ латиницы...
тоже самое нужно сделать и для кириллицы.
Если не входит, то определяй какое это число - целое или вещественное...