Работа с файлами Опции

[Stepa]

Здраствуйте, помогите пожалуйста решить задачку, что-то у меня не получается.

Дан символьный файл f. В файле f не менее двух компонент. Определить, являются ли два первых символа файла цифрами. Если да, то установить, является ли число, образованное этими цифрами, четным.

[volvo]

Stepa
Ну и в чем проблема? Читай первые 2 символа (char) из файла, и проверяй на принадлежность к цифрам:

Код

 if ch in ['0'..'9'] then { символ является цифрой }
 else { это не цифра }

Далее - по заданию...

[Guest]

Ухты быстро

А символьный файл это типизированный или не типизированный?

[volvo]

Символьный - насколько я понимаю:

Код

Var f: File Of Char;

Так будет проще...

Хотя может быть и просто текстовый...

Сообщение отредактировано: volvo - 17.11.2004 21:07

[Guest]

А проверка на чётность? Ведь теперь числа в файле - char.

[volvo]

Как из 2-х символов "собрать" число?

Код

var ch1, ch2: char;
number: byte;
...
read(f, ch1, ch2);
if (ch1 in ['0'..'9']) and (ch2 in ['0'..'9']) then
 begin
   number := 10*(ord(ch1)-ord('0')) + (ord(ch2) - ord('0'));
   if odd(number) then {число нечетное }
   else { число четное }
 end
else
 { символы цифрами не являются }

[Stepa]

Вот где обитают Гуру!
Хе спасибо, а я через цикл писал
Но эта - короче. Спасибо, что помог, Респект!