Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Протоколы Объективного обследования

Виконав:

Студент групи ВЛ-03

Гаваза О.Ю.

Київ 2011

Завдання:

Розробити програму для пошуку заданої підстроки в тексті. Програма має виводити на екран номери з яких починаються підстроки та кількість шуканих підстрок.

Середовище програмування Borland C++Builder 6.

Блок схема:

Описання роботи програми:

1.Вводимо текст.

2.Вводимо підстроку.

3.Натискаємо кнопку «знайти».

4.Отримуємо номери перших символів у шуканих під строках та їх кількість.

5.Натискаємо кнопку «вийти».

Скріншот програми

Код програми.

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

AnsiString AS,A,B;

Char *L,*C;

int i=0,j=0,k=-1,n=0;

A=Edit1->Text;

C=A.c_str();

while (C[k]!=0)

k++;

AS=Memo1->Text;

L=AS.c_str();

while (L[i]!=0)

{

while (L[i+j]==C[j])

{

if (j==k)

{

n++;

B=B+"№"+IntToStr(n)+"-"+IntToStr(i)+" ";

}

j++;

}

j=0;

i++;

}

if (B==0)

Label1->Caption="Нічого не знайвено";

else

Label1->Caption=B;

Label2->Caption=IntToStr(n);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Close ();

}

//---------------------------------------------------------------------------

Протоколы Объективного обследования