задача с заменой строк Опции

[Кристина]

Помогите с решением :p2:

Код

Const N = 100;
Type Str = string;
Ref = ^String;
Tekst = array [1..N] of Ref;

(если в тексте менее N строк, то последние элементы массива равны nil; в начале
массива ссылок nil не должно быть)
Используя данное представление текста, описать процедуру Change!(T,i), заменяющую i-ю строку текста Т на цепочку из "!" (той же длины)

Сообщение отредактировано: volvo - 21.01.2005 9:30

[BlackShadow]

А где ты учишься, если не секрет? А то эти Ref=^... уж что-то часто попадаться начали

Код

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;

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