Вопрос по информатике:
Дан файл символьного типа. Распечатать коды ASC11 записанных в него символов двумя способами
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.06.2017 09:38
- Информатика
- remove_red_eye 7953
- thumb_up 28
Ответы и объяснения 1
var
f: Text;
i: integer;
c: char;
begin
Assign(f, 'in.txt');
Reset(f);
while not (EOF(f)) do
begin
read(f, c);
writeln(c, ' ', ord(c));
end;
writeln('===================');
reset(f);
while not (EOF(f)) do //Второй способ, перебором получить код
begin
i := 0;
read(f, c);
repeat
i := i + 1;
until (chr(i) = c);
writeln(c, ' ', i);
end;
end.
- 27.06.2017 00:27
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.