• Дан файл символьного типа. Распечатать коды ASC11 записанных в него символов двумя способами

Ответы 4

  • А ничего, что перебором пойдут непечатаемые коды, управляющие?
    • Автор:

      lilly26
    • 6 лет назад
    • 0
  • Но не будут же выводится, только сравниваться с текущим символом
  • Да, согласен. Тупой способ, но все же существующий))
    • Автор:

      chainoayr
    • 6 лет назад
    • 0
  • 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.
    • Автор:

      cambil
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years