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
|
program Ch1;
{$mode objfpc}
uses
SysUtils,StrUtils,Types,GVector;
type
TVec = specialize TVector<AnsiString>;
var
I:Integer;
A1:TStringDynArray = ('Hello','Alaska','Dad','Peace');
A2:TStringDynArray = ('ONG','Bye');
Res1,Res2:TVec;
function AllMatch(Needle,Haystack:AnsiString):Boolean;
var
I:Integer;
begin
for I := Low(Needle) to High(Needle) do
if FindPart(Needle[I],Haystack) = 0 then Exit(False);
Exit(True);
end;
function KeyboardWord(var Arr:TStringDynArray):TVec;
var
I,J:Integer;
Qwerty:TStringDynArray = ('qwertyuiop','asdfghjkl','zxcvbnm');
begin
Result := TVec.Create;
for I := Low(Arr) to High(Arr) do Arr[I] := LowerCase(Arr[I]);
for I := Low(Qwerty) to High(Qwerty) do
for J := Low(Arr) to High(Arr) do
if AllMatch(Arr[J],Qwerty[I]) then Result.PushBack(Arr[J]);
end;
begin
Res1 := KeyboardWord(A1);
Res2 := KeyboardWord(A2);
for I := 0 to Pred(Res1.Size) do Write(Res1[I],' '); WriteLn;
for I := 0 to Pred(Res2.Size) do Write(Res2[I],' '); WriteLn;
FreeAndNil(Res1);
FreeAndNil(Res2);
end.
|
