Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Петр Смирнов
0 / 0 / 2
Регистрация: 05.12.2014
Сообщений: 24
#1

Массивы указателей: вставить после i-ой строчки текста копию j-ой строчки того же текста - Turbo Pascal

22.01.2015, 22:57. Просмотров 391. Ответов 2
Метки нет (Все метки)

Текст дан массивом показателей на строчки длиной н символов. Общая размерность массива-д. Если строчек меньше чем д,то последние элементы содержат пустые посылки.
Описать процедуру, которая вставляет после и-ой строчки текста копию дж-ой строчки того же текста.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.01.2015, 22:57
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Массивы указателей: вставить после i-ой строчки текста копию j-ой строчки того же текста (Turbo Pascal):

Вставить нулевую строчку после каждой строчки массива
Вставить нулевую строчку после каждой строчки массива, где количество...

Вычислить сумму элементов матрицы первого столбца, последнего столбца, первой строчки и последней строчки
Вычислить сумму элементов матрицы в области, оьозначенной Х ХХХХХХХХХХХ Х...

Заменить в текстовом файле, разбитом на строчки предпоследний символ каждой строчки на "m"
Правильно ли сделано? program pr; var f1,f2:text; s,sn,sp:string;...

Создать типизированный файл, содержащий несколько строк текста, после чего вывести эти строки текста
Создать типизированный файл, содержащий несколько строк текста, после чего...

После каждого положительного элемента исходного массива, вставить его копию
помогите решить, очень необходимо. 1) Дано:массив целых чисел. Требуется...

Вставить таблицу после последней строчки (цитаты)
<style type="text/css"> <!-- body { background-color: #3366FF; } -->...

2
Петр Смирнов
0 / 0 / 2
Регистрация: 05.12.2014
Сообщений: 24
17.02.2015, 12:49  [ТС] #2
Лучший ответ Сообщение было отмечено Петр Смирнов как решение

Решение

не могу найти ошибку

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
59
60
61
62
63
64
65
66
67
68
69
70
71
program lab11;
uses crt;
 
const m=30;
size=100;
 
type st=string[m];
pst=^st;
ar=array[1..size] of pst;
 
 
procedure copy(i,j:integer; var a:ar);
var p:pst;
begin
    p^:=a[j]^;
        a[i+1]^:=p^;
        end;
 
 
var a:ar;
 
          i,j,  n,er:integer;
               s:string;
 
 
 
BEGIN
clrscr;
 
                repeat
                write('please,input number of elements of our array: n - ');
                readLn(n);
                until (n>0) and (n<=size);
 
                for i:=1 to n do
                begin
                new(a[i]);
                write('input ',i,' element: ');
                readLn(a[i]^);
                end;
 
                if n<>size then
                for i:=n+1 to size do
                            a[i]:=nil;
 
                repeat
                writeLn('input number of string which we will copy:');
                write('j = ');
                readLn(j);
                until (j>0) and (j<=n);
 
                repeat
                writeLn('input number of string after which we will copy our string:');
                write('i = ');
                readLn(i);
                until (i>0) and (i<=n);
 
                            copy(i,j,a);
 
                            for i:=1 to n do
                            write(a[i]^, '   ');
 
                            for i:=1 to n do
                            begin
                            dispose(a[i]);
                                      a[i]:=nil;
                                      end;
 
                                      readln;
 
END.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
18.02.2015, 13:03 #3
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
const
  n=30; d=100;
type
  PString=^TString;
  TString=String[n];
  TStrings=array [1..d] of PString;
 
procedure Ins(var a: TStrings; var m: Integer; i, j: Integer);
var t: TString;
begin
  t:=a[j]^;
  if m<d then Inc(m) else Dispose(a[d]);
  for j:=m downto i+2 do a[j]:=a[j-1];
  New(a[i+1]); a[i+1]^:=t;
end;
 
var
  a: TStrings;
  i, j, m: Integer;
begin
  repeat
    Write('Введите количество строк (1..',d,'): '); ReadLn(m);
  until m in [1..d];
  WriteLn('Введите строки:');
  for i:=1 to m do begin
    Write(i:3,': '); New(a[i]); ReadLn(a[i]^);
  end;
  repeat
    Write('Введите i, j (1..',m,'): '); ReadLn(i,j);
  until (i in [1..m]) and (j in [1..m]);
  Ins(a,m,i,j);
  for i:=1 to m do begin
    WriteLn(i:3,': ',a[i]^); Dispose(a[i]);
  end;
end.
Добавлено через 2 минуты
«Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте».
Мартин Голдинг
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2015, 13:03
Привет! Вот еще темы с решениями:

Добавление и удаление строчки текста на странице
Помогите написать на php (сам практически не знаю как). Надо, чтобы была...

Выдернуть некоторые строчки текста из сайта включая ссылки
Здравствуйте. К примеру есть сайт вот часть его кода Как выдернуть от туда...

Вывод текста в TextBox каждый раз с новой строчки без затирания предыдущей
Подскажите как выводить текст в TextBox причём с новой строчки без удаления...

Нужно удалить все строчки, которые удовлетворяют условию заданой строчки
нужно удалить все строчки которые удовлетворяют условию заданой строчки, а то...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru