Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ задача с заменой строк

Автор: Кристина 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;

Приблизительно так.