Автор: Кристина 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=^... уж что-то часто попадаться начали
Код
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;
Приблизительно так.