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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
| unit Unit1;
interface
{Обменять местами первое самое длинное слово первой строки и первое
самое короткое слово второй строки.}
procedure Proc1(var S1, S2 : String);
{Вернуть объединение первого слова первой строки, состоящего из наибольшего количества
различных букв, и первого слова второй сроки, состоящего из наименьшего количества различных букв.}
function Proc2(S1, S2 : String) : String;
{Вставить в конец первой строки количество слов с чётной длиной,
а в конец второй – количество слов с нечётной длиной.}
procedure Proc3(var S1, S2 : String);
{Упрощённое решение. Удалить из первой строки слова, которые присутствуют во второй строке.}
procedure Proc4(var S1 : String; S2 : String);
{Решение без упрощения. Удалить из первой строки слова, которые присутствуют во второй строке.}
procedure Proc5(var S1 : String; S2 : String);
implementation
{Перевод букв строки в верхний регистр. Для кодовой страницы CP866 (DOS).}
function UpCase866(const aStr : String) : String;
var
S : String;
i : Integer;
begin
S := aStr;
for i := 1 to Length(S) do
if S[i] in ['а'..'п'] then
S[i] := Chr(Ord(S[i]) - 32)
else if s[i] in ['р'..'я'] then
S[i] := Chr(Ord(S[i]) - 80)
else if S[i] = 'ё' then
S[i]:='Ё'
else
S[i] := UpCase(S[i]);
UpCase866 := S;
end;
{Обменять местами первое самое длинное слово первой строки и первое
самое короткое слово второй строки.}
procedure Proc1(var S1, S2 : String);
const
{Множество разделителей слов.}
D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
SMin, SMax : String;
i, Len, LenW, LenMin, LenMax, PMin, PMax : Integer;
begin
PMax := 0; {Начальная позиция первого самого длинного слова в первой строке.}
LenMax := 0; {Длина самого длинного слова в первой строке.}
PMin := 0; {Начальная позиция первого самого короткого слова во второй строке.}
LenMin := Length(S2); {Длина первого самого короткого слова во сторой строке.}
{Находим положение первого самого длинного слова в первой строке.}
Len := Length(S1);
LenW := 0; {Длина очередного слова.}
for i := 1 to Len do {Перебор символов строки слева - направо.}
if not (S1[i] in D) then {Если символ принадлежит слову.}
begin
Inc(LenW); {Учитываем очередной символ в длине слова.}
if (i = Len) or (S1[i + 1] in D) then {Отслеживаем конец слова.}
begin
if LenW > LenMax then {Уточняем размер самого длинного слова.}
begin
PMax := i - LenW + 1;
LenMax := LenW;
end;
LenW := 0;
end;
end;
{Находим положение первого самого короткого слова во второй строке.}
Len := Length(S2);
LenW := 0; {Длина очередного слова.}
for i := 1 to Len do {Перебор символов строки слева - направо.}
if not (S2[i] in D) then {Если символ принадлежит слову.}
begin
Inc(LenW); {Учитываем очередной символ в длине слова.}
if (i = Len) or (S2[i + 1] in D) then {Отслеживаем конец слова.}
begin
if LenW < LenMin then {Уточняем размер самого короткого слова.}
begin
PMin := i - LenW + 1;
LenMin := LenW;
if LenMin = 1 then {Если длина оказалась наименьшей возможной, то завершаем поиск.}
Break;
end;
LenW := 0;
end;
end;
if (PMax <> 0) and (PMin <> 0) then
begin
SMax := Copy(S1, PMax, LenMax); {Первое самое длиное слово первой строки.}
SMin := Copy(S2, PMin, LenMin); {Первое самое короткое слово второй строки.}
{В первой строке на место самого длинного слова записываем самое короткое слово второй строки.}
Delete(S1, PMax, LenMax);
Insert(SMin, S1, PMax);
{Во второй строке на место самого короткого слова записываем самое длинное слово первой строки.}
Delete(S2, PMin, LenMin);
Insert(SMax, S2, PMin);
end;
end;
{Вернуть объединение первого слова первой строки, состоящего из наибольшего количества
различных букв, и первого слова второй сроки, состоящего из наименьшего количества различных букв.}
function Proc2(S1, S2 : String) : String;
const
{Множество разделителей слов.}
D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
SRes : String;
i, Len, LenW, CntW, PF, LenF, CntF : Integer;
Dw : set of Char;
begin
S1 := UpCase866(S1); {Перевод букв в верхний регистр.}
S2 := UpCase866(S2); {Перевод букв в верхний регистр.}
SRes := ''; {Склейка искомых слов.}
{В первой строке находим положение первого слова с наибольшим количеством разных букв.}
Len := Length(S1); {Длина строки.}
PF := 0; {Начальная позиция искомого слова.}
LenF := 0; {Длина искомого слова.}
CntF := 0; {Количество различных букв в искомом слове.}
LenW := 0; {Длина текущего слова.}
CntW := 0; {Количество различных букв в текущем слове.}
Dw := []; {Множество букв, из которых состоит текущее слово.}
for i := 1 to Len do {Перебор символов строки слева - направо.}
if not (S1[i] in D) then {Если символ принадлежит слову.}
begin
{Учитываем очередной символ в длине текущего слова.}
Inc(LenW);
{Подсчёт различных букв в текущем слове.}
if not (S1[i] in Dw) then
begin
Inc(CntW);
Dw := Dw + [S1[i]];
end;
{Отслеживаем конец слова.}
if (i = Len) or (S1[i + 1] in D) then
begin
if CntW > CntF then {Уточняем сведения об искомом слове.}
begin
PF := i - LenW + 1; {Начальная позиция искомого слова.}
LenF := LenW; {Длина искомого слова.}
CntF := CntW; {Количество разных букв в искомом слове.}
end;
LenW := 0;
CntW := 0;
Dw := [];
end;
end;
if PF > 0 then {Добавляем в склейку искомое слово из первой строки.}
SRes := Copy(S1, PF, LenF);
{Во второй строке находим положение первого слова с наименьшим количеством разных букв.}
Len := Length(S2); {Длина строки.}
PF := 0; {Начальная позиция искомого слова.}
LenF := 0; {Длина искомого слова.}
CntF := Length(S2); {Количество различных букв в искомом слове.}
LenW := 0; {Длина текущего слова.}
CntW := 0; {Количество различных букв в текущем слове.}
Dw := []; {Множество букв, из которых состоит текущее слово.}
for i := 1 to Len do {Перебор символов строки слева - направо.}
if not (S2[i] in D) then {Если символ принадлежит слову.}
begin
{Учитываем очередной символ в длине текущего слова.}
Inc(LenW);
{Подсчёт различных букв в текущем слове.}
if not (S2[i] in Dw) then
begin
Inc(CntW);
Dw := Dw + [S2[i]];
end;
{Отслеживаем конец слова.}
if (i = Len) or (S2[i + 1] in D) then
begin
if CntW < CntF then {Уточняем сведения об искомом слове.}
begin
PF := i - LenW + 1; {Начальная позиция искомого слова.}
LenF := LenW; {Длина искомого слова.}
CntF := CntW; {Количество разных букв в искомом слове.}
if CntW = 1 then {Если количество разных букв наименьшее, то завершаем поиск.}
Break;
end;
LenW := 0;
CntW := 0;
Dw := [];
end;
end;
if PF > 0 then {Добавляем в склейку искомое слово из второй строки.}
SRes := SRes + '/' + Copy(S2, PF, LenF);
Proc2 := SRes;
end;
{Вставить в конец первой строки количество слов с чётной длиной,
а в конец второй – количество слов с нечётной длиной.}
procedure Proc3(var S1, S2 : String);
const
{Множество разделителей слов.}
D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
S : String;
i, Len, LenW, Cnt : Integer;
begin
{В первой строке находим количество слов с чётной длиной.}
Len := Length(S1); {Длина строки.}
LenW := 0; {Длина текущего слова.}
Cnt := 0; {Количество искомых слов.}
for i := 1 to Len do {Перебор символов строки слева - направо.}
if not (S1[i] in D) then {Если символ принадлежит слову.}
begin
Inc(LenW); {Учитываем очередной символ в длине текущего слова.}
if (i = Len) or (S1[i + 1] in D) then {Отслеживаем конец слова.}
begin
if LenW mod 2 = 0 then {Если длина слова чётная, то подсчитываем это слово.}
Inc(Cnt);
LenW := 0;
end;
end;
Str(Cnt, S);
S1 := S1 + '/количество слов с чётной длиной: ' + S;
{Во второй строке находим количество слов с НЕчётной длиной.}
Len := Length(S2); {Длина строки.}
LenW := 0; {Длина текущего слова.}
Cnt := 0; {Количество искомых слов.}
for i := 1 to Len do {Перебор символов строки слева - направо.}
if not (S2[i] in D) then {Если символ принадлежит слову.}
begin
Inc(LenW); {Учитываем очередной символ в длине текущего слова.}
if (i = Len) or (S2[i + 1] in D) then {Отслеживаем конец слова.}
begin
if LenW mod 2 <> 0 then {Если длина слова НЕчётная, то подсчитываем это слово.}
Inc(Cnt);
LenW := 0;
end;
end;
Str(Cnt, S);
S2 := S2 + '/количество слов с НЕчётной длиной: ' + S;
end;
{Упрощённое решение. Удалить из первой строки слова, которые присутствуют во второй строке.}
procedure Proc4(var S1 : String; S2 : String);
const
{Множество разделителей слов.}
D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
Sw : String;
i, j, Len, LenW : Integer;
begin
S2 := UpCase866(S2); {Приводим буквы к верхнему регистру.}
{Перебор различающихся слов во второй строке.}
Len := Length(S2);
LenW := 0; {Длина текущего слова.}
for i := 1 to Len do {Перебор символов строки слева - направо.}
begin
if not (S2[i] in D) then {Если символ принадлежит слову.}
begin
Inc(LenW); {Учитываем очередной символ в длине текущего слова.}
if (i = Len) or (S2[i + 1] in D) then {Отслеживаем конец слова.}
begin
{Выделяем текущее слово из второй строки.}
Sw := Copy(S2, i - LenW + 1, LenW);
{Удаляем в первой строке все слова, совпадающие с текущим.}
LenW := 0;
for j := Length(S1) downto 1 do {Перебор символов строки справа - налево.}
if not (S1[j] in D) then {Если символ принадлежит слову.}
begin
Inc(LenW); {Учитываем очередной символ в длине текущего слова.}
if (j = 1) or (S1[j - 1] in D) then {Отслеживаем начало слова.}
begin
if Sw = UpCase866(Copy(S1, j, LenW)) then {Если слово совпадает с Sw, то удаляем его.}
Delete(S1, j, LenW);
LenW := 0;
end;
end;
end;
end;
end;
end;
{Решение без упрощения. Удалить из первой строки слова, которые присутствуют во второй строке.}
procedure Proc5(var S1 : String; S2 : String);
const
{Множество разделителей слов.}
D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
Sw : String;
i, j, k, LenW : Integer;
begin
S2 := UpCase866(S2); {Приводим буквы к верхнему регистру.}
{Перебор различающихся слов во второй строке.}
LenW := 0; {Длина текущего слова.}
i := 1;
while i <= Length(S2) do {Перебор символов строки слева - направо.}
begin
if not (S2[i] in D) then {Если символ принадлежит слову.}
begin
Inc(LenW); {Учитываем очередной символ в длине текущего слова.}
if (i = Length(S2)) or (S2[i + 1] in D) then {Отслеживаем конец слова.}
begin
{Выделяем текущее слово из второй строки.}
Sw := Copy(S2, i - LenW + 1, LenW);
{Удаляем во второй строке все другие слова, совпадающие с текущим.}
LenW := 0;
for j := Length(S2) downto i + 1 do {Перебор символов строки справа - налево.}
if not (S2[j] in D) then {Если символ принадлежит слову.}
begin
Inc(LenW); {Учитываем очередной символ в длине текущего слова.}
if (j = 1) or (S2[j - 1] in D) then {Отслеживаем начало слова.}
begin
if Sw = Copy(S2, j, LenW) then {Если слово совпадает с Sw, то удаляем его.}
Delete(S2, j, LenW);
LenW := 0;
end;
end;
{Удаляем в первой строке все слова, совпадающие с текущим.}
LenW := 0;
for k := Length(S1) downto 1 do {Перебор символов строки справа - налево.}
if not (S1[k] in D) then {Если символ принадлежит слову.}
begin
Inc(LenW); {Учитываем очередной символ в длине текущего слова.}
if (k = 1) or (S1[k - 1] in D) then {Отслеживаем начало слова.}
begin
if Sw = UpCase866(Copy(S1, k, LenW)) then {Если слово совпадает с Sw, то удаляем его.}
Delete(S1, k, LenW);
LenW := 0;
end;
end;
end;
end;
Inc(i);
end;
end;
end. |
(
Сообщение было отмечено ridikyu как решение
Сообщение от ridikyu
Ясное понимание условия задачи - это половина решения.
