0 / 0 / 1
Регистрация: 20.05.2016
Сообщений: 11
1

Первую подходящую цифру исходной строки добавить в конец же строки

20.05.2016, 20:12. Показов 417. Ответов 1
Метки нет (Все метки)

помогите пожалуйста со вторым методом!!!

Объект 1: поле - строка; методы: является ли первая половина строки симметричной; первую подходящую цифру исходной строки добавить в конец этой же строки.
Обьект2: ноле - однонаправленный список (информационное поле - строка) ; методы: основные методы работы с однонаправленным списком; преобразовать элементы списка по методу2 объекта 1; получить новый список, содержащий только элементы, удовлетворяющие методу 1 объекта1



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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
const   sim=[',','.','!','?'];
 
type obj1=object
         s:string;
         k:integer;
         constructor init;
         function mesto:string;virtual;
         function kol:integer;virtual;
         end;
 
 
constructor obj1.init;
   begin
      writeln('vvedite text');
      readln(s);
   end;
 
 
 
function obj1.mesto:string;
   var i:integer;
      c:char;
   begin
      writeln('Input string');
      readln(s);
      for i:=1 to length(s) div 2 do
   begin
      c:=s[i];
      s[i]:=s[i+length(s) div 2];
      s[i+length(s) div 2]:=c;
   end;
      mesto:=s;
      readln;
   end;
 
 
 
function obj1.kol:integer;
  var i:integer; j:char;
  begin
     for i:=1 to length(s) do
     if  (s[i] in sim) and (i mod 2=0)  then
     k:=k+1;
     kol:=k;
  end;
 
 
 
 type   list=^elem;
        elem=record
         info:string;
         next:list;
         end;
 
       obj2=object(obj1)
            l:list;
            p:list;
            constructor init;
            function mesto:string;virtual;
            function kol:integer;virtual;
            procedure now;virtual;
         end;
 
 
 
 constructor obj2.init;
   var q:list;
   begin
   writeln('заполните');
   readln(s);
   if s<>'' then
      begin
      new(l);
      l^.info:=s;   {perviy}
      l^.next:=nil; {sled-nil}
      p:=l;
      readln(s);
      end;
    while s<>'' do
       begin
       new(q);        {}
       q^.info:=s;
       q^.next:=nil;
       p^.next:=q;
       p:=q;
       readln(s);
       end;
     s:=p^.info;
     end;
 
 
 
  function obj2.mesto:string;                                  (как я понимаю, следующие методы мои не верны)
    var
      i:integer;
      c:char;
  begin
 
     for i:=1 to length(s) div 2 do
  begin
     c:=s[i];
     s[i]:=s[i+length(s) div 2];
     s[i+length(s) div 2]:=c;
  end;
     mesto:=s;
     readln;
  end;
 
 
 
  function obj2.now:integer;
 begin
   p:=l;
   if p<>nil then
 begin
   while p^.next<>nil do
   p:=p^.next; {v konec}
   new(q); {ў **з*«®}
   q^.info:=x;
   p^.next:=q;
   p:=q;
 end
   else
   new(q);
   q^.info:=x;
   q^.next:=nil;
   p:=q;
 end;
 
 
  begin
  clrscr;
 
  obj1.init;
  writeln(obj1.kol);
  writeln;
 
  obj2.init;
  writeln(obj2.init(k))
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2016, 20:12
Ответы с готовыми решениями:

Присоединение исходной строки в конец строки получателя
Напишите процедуру Str_concat, которая присоединяет исходную строку в конец строки- получателя. Для...

Добавить в конец первой строки, последние n2-n1 слов второй строки
помогите пожалуйста! Даны две строки. Пусть n1 - число слов в первой строке, а n2 - во второй...

Добавить в конец каждой строки необходимо количество «*» что бы выровнять текст по правому краю большей строки
Дано некоторое количество строк, не больше как размер текстового окна. Добавить в конец каждой...

C Builder 10. Функция t_str() меняет конец исходной строки.
Всем доброго времени суток! Решил перевести свой старый проект, написанный в 5-ом билдере, в...

1
0 / 0 / 1
Регистрация: 20.05.2016
Сообщений: 11
23.05.2016, 14:13  [ТС] 2
люди, подскажите пожалуйста, что делать со вторым методом!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2016, 14:13

Конкатенация строк: В конец исходной строки дописывается мусор
доброго времени суток.надо написать функцию которая делает конкатенацию строк. функцию написал,но...

Формирование строки из исходной путем заданного числа повторений исходной строки (TASM)
Задание: Написать программу формирования строки из исходной путем заданного числа повторений...

Формирование строки из исходной путём заданного числа повторений исходной строки
Помогите пожалуйста написать программку формирования строки из исходной путём заданного числа...

Формирование строки из исходной путем заданного числа повторений исходной строки
Помогите написать программу формирования строки из исходной путем заданного числа повторений...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru