Ссылки

[vitekbest]

Здравствуйте, господа, программеры, прошу помочь с задачей на ссылки.

const d=...;{длина строки}
n=...;{максимальное число строк}
type строка=packed array[1..d] of char;
ссылка=строка;
текст=array[1..n] of ссылка;
Используя данное представление текста, описать процедуру удалить (T,i), удаляющую i-тую строку из текста T.

Заранее благодарен.

[puporev]

Что- то еле разобрался в этих типах, один из которых лишний, пока не врубился, что это просто двумерный массив символов. Надо же так запудрить мозги. С горя написал маленькую программу с этой процедурой.

uses crt;
const d=5;
      n=5;
type Tstr=packed array[1..d] of char;
     Tssl=Tstr;//совершенно лишнее, для чего тип через тип?
     T=array[1..n] of Tssl;
var j,p,nm:integer;
    s:T;
    ss:Tssl;
Procedure Udal(var a:T;i:integer);//передаем в процедуру массив и номер удаляемой строки
var k:integer;
begin
for k:=i to n-1 do
for p:=1 to d do
a[k,p]:=a[k+1,p];//сдвигаем строки вверх на одну до нужной, она удаляется
end;
begin
clrscr;
writeln('Vvedite ',n*d,' simvolov');//вводим в одну строку все символы
for j:=1 to n do
for p:=1 to d do
read(s[j,p]);
readln;
clrscr;
writeln('Ishodnyj text:');
writeln;
for j:=1 to n do //выводим их в виде матрицы
   begin
     for p:=1 to d do
     write(s[j,p]);
     writeln;
   end;
writeln;
write('nm=');readln(nm);//номер удаляемой строки
Udal(s,nm);  //вызов процедуры
writeln('Rezultat:');
writeln;
for j:=1 to n-1 do
   begin
     for p:=1 to d do
     write(s[j,p]);
     writeln;
   end;
readln;
end.