Помощь - Поиск - Пользователи - Календарь
Полная версия: задача с заменой строк
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Кристина
21.05.2004 20:55
Помогите с решением :p2:
Код
Const N = 100;
Type Str = string;
Ref = ^String;
Tekst = array [1..N] of Ref;

(если в тексте менее N строк, то последние элементы массива равны nil; в начале
массива ссылок nil не должно быть)
Используя данное представление текста, описать процедуру Change!(T,i), заменяющую i-ю строку текста Т на цепочку из "!" (той же длины)
BlackShadow
24.05.2004 15:47
А где ты учишься, если не секрет? А то эти Ref=^... уж что-то часто попадаться начали smile.gif
Код

Procedure Change(T:Tekst;i:Integer);
Var
 j:Integer;
Begin
 If Tekst[i]=Nil Then
   Exit;
 For j:=1 To Length(Tekst[i]^) Do
   Tekst[i]^[j]:='!'
End;

Приблизительно так.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.