Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 14.05.2020, 13: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 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
работа с указателями 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 16:05
Работа с указателями Mango Помощь студентам 2 23.11.2008 11:33
Работа с указателями!!! HKBD Общие вопросы C/C++ 1 06.10.2008 07:52


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS