Ввод длинной строки с клавиатуры, Как ввести строку длиной 1100 символов с клавиатуры Опции

[Tan]

1. Забавное задание, в чём его смысл ?
2. Именно если ввести то просто посимвольно считываешь и потом можно скинуть в массив чаров и вывести.

[Tan]

sum:=0;
repeat
 ch:=readkey;
 inc (sum);
until (ord(ch) = 13) or (sum = 1100); {ENTER}

Ну условие цикла сам под задание подредактируй. А так по идее если ты работать будешь с каждым элементом в отдельности, то создай массив чаров ms : array [1..1100] of char и после чтения пиши туда свой символ. Очень интересно для решения какого задания ты используешь такую операцию, отпиши главное задание если не трудно. Возможно это не лучший метод.

Сообщение отредактировано: Tan - 11.04.2007 15:48

[anchik]

sum:=0;
repeat
 ch:=readkey;
 inc (sum);
until (ord(ch) = 13) or (sum = 1100); {ENTER}

Ну условие цикла сам под задание подредактируй. А так по идее если ты работать будешь с каждым элементом в отдельности, то создай массив чаров ms : array [1..1100] of char и после чтения пиши туда свой символ. Очень интересно для решения какого задания ты используешь такую операцию, отпиши главное задание если не трудно. Возможно это не лучший метод.

Упс. Запрещено использовать CRT.
Что делать, если и файл не использовать?