IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Консоль и Read
сообщение
Сообщение #1


Гость






Доброго времени суток! Неловко даже с такой проблемой соваться, но, видимо, придется. Необходимо сделать программу в консольном режиме. Суть программы неважна - я ее уже сделал. Но вот проблема - ввод у меня задан следующим образом:
Код

var
  S: array of Char;
  I: Integer;

begin
  WriteLn('Input the string: ');
  I := -1;
  repeat
    I := I + 1;
    if I mod 4 = 0 then
      SetLength(S, I + 4);
    Read(S[I]);
  until S[I] = '.';

При этом не удается ввести последовательность больше 254 символов за раз - на 254-ом отображение их прекращается и курсор замирает. Препод требует, чтобы строка не прерывалась при вводе. Естественно, ввести требуется больше 254 символов. Можно ли с этим что-либо сделать? Есть такие мысли, что можно делать ввод построчно, пимпать enter в конце каждой строки. Но при вводе последнего символа в строке курсор автоматически переностится на новую, а если это делать не на последних символах, то не будет непрерывности. Может быть есть какие-нибудь спецсимволы для переноса курсора на строку вверх? В общем, буду очень благодарен за помощь.
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.10.2020 16:00
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name