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

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

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

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

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

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

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

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

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

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
3893 / 2554 / 2081
Регистрация: 22.11.2013
Сообщений: 7,124
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

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

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

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


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

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

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