p align="justify">// gt; AllowDrop=true; gt; AutoScaleDimensions=System :: Drawing :: SizeF (6, 13); gt; AutoScaleMode=System :: Windows :: Forms :: AutoScaleMode :: Font ; gt; ClientSize=System :: Drawing :: Size (487, 465);gt;Controls-gt;Add(this-gt;label8);gt;Controls-gt;Add(this-gt;label7);gt;Controls-gt;Add(this-gt;textBox5);gt;Controls-gt;Add(this-gt;button5);gt;Controls-gt;Add(this-gt;textBox4);gt;Controls-gt;Add(this-gt;button4);gt;Controls-gt;Add(this-gt;label6);gt;Controls-gt;Add(this-gt;label4);gt;Controls-gt;Add(this-gt;button3);gt;Controls-gt;Add(this-gt;button2);gt;Controls-gt;Add(this-gt;label3);gt;Controls-gt;Add(this-gt;label2);gt;Controls-gt;Add(this-gt;label1);gt;Controls-gt;Add(this-gt;textBox3);gt;Controls-gt;Add(this-gt;button1);gt;Controls-gt;Add(this-gt;textBox2);gt;Controls-gt;Add(this-gt;textBox1);gt;Controls-gt;Add(this-gt;radioButton2);gt;Controls-gt;Add(this-gt;radioButton1);gt;Controls-gt;Add(this-gt;menuStrip1);gt;MainMenuStrip =This- gt; menuStrip1; gt; Name=L Form1 raquo ;; gt; RightToLeftLayout=true; gt; Text=L Form1 raquo ;; gt; Load +=gcnew System :: EventHandler (this, amp;Form1::Form1_Load);gt;menuStrip1-gt;ResumeLayout(false);gt;menuStrip1-gt;PerformLayout();gt;ResumeLayout(false);gt;PerformLayout();
}
# pragma endregionLineFind (array lt; Char gt; ^ fstr, int m)
{i=0, j=0, s=0, k=- 1, res=0; (true)
{++; kol ++;=strlen (arr [k] .str); (arr [k] .id!=- 10)
{= - 1; kol ++; (true)
{++;=0; kol ++; ((j lt; m) amp; amp; (arr [k] .str [i + j] == fstr [j]))
{++; ++; ((j == m) || (i == s-m))
{++; (j == m)
{++;
textBox3- gt; Text += Підрядок знайдена в рядку + (k) + за адресою + (I) + r n raquo ;;
res=1;
}
}
} (i gt; s) break;
} (k == n);
}
} res;
} Addline ()
{^ str=textBox4- gt; Text;=longstr + str- gt; Length; (str- gt; Length!=0)
{++; [n] .id=n; * str2=(char *) (void *) Marshal :: StringToHGlobalAnsi (str); (arr [n] .str, str2);- gt; Text +=arr [n] .id + : Raquo; + Gcnew String (arr [n] .str) + r n raquo ;;
//kolstr=kolstr + n;
//label5- gt; Text= Кількість елементарних ітерацій: + (N);
return 1;
} 0;
} ShowStruct ()
{(int i=0; i lt;=n; i ++) (arr [i] .id!=- 10) - gt; Text +=arr [i] .id + : Raquo; + Gcnew String (arr [i] .str) + r n raquo ;;
} algorithm_KMP (array lt; Char gt; ^ fstr, int l)
{i=0, j=- 1, N, M;=strlen (arr [l] .str);=fstr- gt; Length; * d=(int *) malloc (M * sizeof (int));// Динамічний масив довжини М
//Обчислення префікс-функції [0]=- 1; (i lt; M - 1)
{++; ((j gt;=0) amp; amp; (fstr [j]!=fstr [i]))
{= d [j]; ++;
} ++; ++; (fstr [i] == fstr [j])
{[i]=d [j]; ++;
}
{[i]=j; ++;
}
}
/* пошук */(i=0, j=0; (i lt; N) amp; amp; (j lt; M); i ++, j ++) ((j gt;=0) amp; amp; (fstr [ j]!=arr [l] .str [i]))
{= d [j]; ++;
} (d);/* Звільнення пам'яті масиву d */
if (j == M) i-j;/* i == N */- 1;
}: System :: Void textBox1_TextChanged (System :: Object ^ sender, System :: EventArgs ^ e)
{
}: System :: Void Form1_Load (System :: Object ^ sender, System :: EventArgs ^ e)
{ gt; Text= Пошук підрядка raquo ;; - gt; SetToolTip (textBox2, Введіть шукану підрядок ); - gt; IsBalloon=true; - gt; FileName= raquo ;; - gt; Filter = Текстові файли (* .txt) | * .txt | All files (*. *) | *. * raquo ;;
//button5- gt; Enabled=false;
//textBox5- gt; Enabled=false;=new line [10000];
}: System :: Void button2_Click (System :: Object ^ sender, System :: EventArgs ^ e)
{- gt; Clear (); (wcslen (file)!=0)
{input; .open (file); (! input.eof ())
{++; gt; gt; arr [n] .str;=longstr + strlen (arr [n] .str); [n] .id=n;
}. close (); (); - gt; Text= Кількість символів: + Longstr;
} :: Show ( Оберіть файл: Файл - відкрити );
}: System :: Void button1_Click (System :: Object ^ sender, System :: EventArgs ^ e)
{(n!=- 1)
{textBox3- gt; Clear (); a, b=0;=0; Time1, Time2; lt; Char gt; ^ fstr=textBox2- gt; Text- gt; ToCharArray ();=fstr- gt; Length ; (m!=0)
{= omp_get_wtime (); (choice == 1)
{(LineFind (fstr, m) == 0) - gt; Text...
