Добрый день. нужно исправить код( ссылочные типы)

26.06.2010, 12:00. Показов 614. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

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

Pascal
1
2
3
4
5
Const 
N = 100; 
Type Str = string; 
Ref = ^String; 
Tekst= array [1..N] of Ref;

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Const
  N = 5;
Type Str = string;
  Ref = ^String;
  Tekst= array [1..N] of Ref;
 
var f: text;
    T,y: tekst;
    s: string;
    i,p,k,l:byte;
    m: char;
 
procedure input(var f: text; var T: tekst);
begin
  reset(f);
  i:=1;
  while not eof(f) do
  begin
      readln(f,s);
      new(T[i]);
      if s<>'' then T[i]^:=s else t[i]:=nil;
      inc(i);
  end;
  close(f);
end;
 
procedure output(var t: tekst);
var i:byte;
begin
  for i:=1 to n do
  if t[i]<> nil then writeln(T[i]^);
end;
 
 
procedure Add(var t:tekst;k,l:integer);
var Tstr:ref;
begin
writeln('k=');
  readln(k);
  writeln('l=');
  readln(l);
for i:=1 to n do
begin
t[i+k]:=t[k+1];
t[k+l]:=t[l]
end;
end;
 
 
begin
  assign(f,'182.txt');
  input(f,t);
  output(t);
 
  Add(t,k,l);
  output(t);
  readln;
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

26.06.2010, 12:00

Ответы с готовыми решениями:

Добрый день не приходят 2 вложения на почту,как исправить?
<?php $from = "<ГенСтройФаворит>"; if (isset($_POST)) {$mailTo = $_POST;} if (isset($_POST)) {$phone =...

Всем добрый день! Кто-нибудь знает как исправить это?
https://pp.vk.me/c625822/v625822049/3a869/cr3hbcL44_4.jpg Нарушение правил п.5.8. Запрещено публиковать ссылки на другие форумы, а...

Добрый день, нужна консультация!ОЧЕНЬ НУЖНО.ГОРЮ
Добрый день! ACCESS 2010 Суть вопроса такова: Имеется имеется БД "Платная медицинская клиника". Всё Сделала, теперь нужно...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

26.06.2010, 12:00

Помогаю со студенческими работами здесь

День добрый! Можете прокомментировать код программы на Лиспе
Помогите разобраться в коде) Множества заданы списками строк L1 и L2. Получить в виде списка L3 множество L1\L2. Код программы: ...

Типы значения и ссылочные типы
Здравствуйте. Мог бы кто-нибудь простыми словами объяснить что такое типы значения и ссылочные типы применительно к структурам? ...

Ссылочные типы
Написать логическую функцию Search(T,c,i,j), определяющую, входит ли литера с в текст Т, и, если входит, присваивающую параметрам i и j...

ссылочные типы
Одно из возможных представлений "длинного" текста - это разделить его на строки и создать массив ссылок на эти строки Const N =...

Ссылочные типы данных
На языке Java в( Java (JDK7) + NetBeans 7.x) Задание 1. В тексте после k-того символа вставить заданную подстроку. Задание 2.Создать...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

Наверх