Здраствуйте, помогите пожалуйста решить задачку, что-то у меня не получается.
Дан символьный файл f. В файле f не менее двух компонент. Определить, являются ли два первых символа файла цифрами. Если да, то установить, является ли число, образованное этими цифрами, четным.
Полная версия: Работа с файлами
Stepa
Ну и в чем проблема? Читай первые 2 символа (char) из файла, и проверяй на принадлежность к цифрам:
if ch in ['0'..'9'] then { символ является цифрой }
else { это не цифра }
Далее - по заданию...
Ну и в чем проблема? Читай первые 2 символа (char) из файла, и проверяй на принадлежность к цифрам:
Код
if ch in ['0'..'9'] then { символ является цифрой }
else { это не цифра }
Далее - по заданию...
Ухты быстро 
А символьный файл это типизированный или не типизированный?
А символьный файл это типизированный или не типизированный?
Символьный - насколько я понимаю:
Var f: File Of Char;
Так будет проще...
Хотя может быть и просто текстовый...
Код
Var f: File Of Char;
Так будет проще...
Хотя может быть и просто текстовый...
А проверка на чётность? Ведь теперь числа в файле - char.
Как из 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
{ символы цифрами не являются }
Код
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
{ символы цифрами не являются }
Вот где обитают Гуру!
Хе спасибо, а я через цикл писал
Но эта - короче. Спасибо, что помог, Респект!
Хе спасибо, а я через цикл писал
Но эта - короче. Спасибо, что помог, Респект!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.