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

[Chudo4258]

Мне нужно считать с файла, возможные варианты

как ты их считываешь??? вначеле в строку???

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

[Chudo4258]

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

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

а если число 0,2

[Grag]

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

как ты их считываешь??? вначеле в строку???

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

Да из файла нужно читать посимвольно до пробела... Элементы похоже разделяются пробелом и хранятся в текстовом файле... А далее читай мой пост #10

[Sparky]

все вопрос закрыт, ступила Grad спасибо