FXPELIVE
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Одно из возможных представлений "длинного" текста - это разделить его на участки равной длины и создать массив ссылок на эти строки:
Const
d=..; {длина строки}
n=..; {число строк }
Type
Stroka=Array[1..d] of Char;
PtrStr=^Stroka;
Tekst=Array[1..n] of PtrStr;
Если текст содержит менее n строк, то последние элементы массива равны Nil. Если в операции над текстом указан номер отсутствующей строки, т.е. элемент массива с этим номером равен Nil, то такая операция не выполняется. Используя данное представление текста, описать процедуру Вывод(Т) выводящую на экран построчно текст, Ввод(Т) считывающую из входного файла последовательность литер до первой точки и формирующую из них текст Т. |
