Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.05.2020, 12:16   #1
MaidDragon
 
Регистрация: 14.05.2020
Сообщений: 8
По умолчанию Работа с указателями

Условие:

Одно из возможных представлений "длинного" текста - это разделить
его на участки (строки) равной длины и создать массив ссылок на эти строки:

const d =...; {Длина строки }
n =...; {Максимальное число строк}
type stroka = string[d];
Ref = ^stroka;
tekst = Array [1..n] of Ref;

Если текст содержит менее n строк, то последние элементы массива равны Nil. Если в операции над текстом указан номер отсутствующей строки, т.е. элемент массива с этим номером равен Nil, то такая операция не выполняется. Используя данное представление текста, описать процедуру Удалить(T,i), удаляющую i-ю строку из текста T, а следующие за ней строки сдвигает.
Код:
program lab11;
 
const
  d = 250; {Длина строки }
  n = 5;{Максимальное число строк}
 
type
  stroka = string[d];
  Ref = ^stroka;
  tekst = Array [1..n] of Ref;
 
procedure Delete(var T: tekst; i: Integer);
begin
  Dispose(T[i]);
  while (i < n) and (T[i + 1] <> nil) do
  begin
    T[i] := T[i + 1]; Inc(i);
  end;
  T[i] := nil;
end;
 
begin
end.
Что нужно добавить\исправить чтобы работало и было выполнено то что в задании?
MaidDragon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
работа с указателями compiler90 Visual C++ 1 04.06.2012 18:52
Работа с указателями Byurrer Общие вопросы C/C++ 8 02.04.2011 21:09
Работа с указателями stas135642 Общие вопросы C/C++ 2 21.11.2010 15:05
Работа с указателями Mango Помощь студентам 2 23.11.2008 10:33
Работа с указателями!!! HKBD Общие вопросы C/C++ 1 06.10.2008 07:52