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

Використання рядків типу AnsiString

Читайте также:
  1. Алгоритм використання ІКТ в роботі з дошкільниками
  2. Аналіз використання обладнання та виробничої потужності підприємства
  3. Аналіз ефективного використання матеріальних ресурсів
  4. Аналіз ефективності використання викор с/г угідь
  5. Аналіз ефективності використання оборотних коштів на підприємстві
  6. Аналіз ефективності використання основних фондів
  7. Аналіз ефективності використання основних фондів на підприємстві
  8. Аналіз ефективності використання підприємством трудових ресурсів
  9. Аналіз забезпеченості й використання матеріальних ресурсів на п-ві
  10. Аналіз забезпеченості, інтенсивності і ефективності використання основних засобів підприємства
  11. Аналіз стану та ефективності використання основних засобів ставить на
  12. Валовий національний дохід і валовий внутрішній дохід до використання. Особистий дохід домашніх господарств.

 

Проект 1. Ввести речення, розбити його на слова:

 

Код програми: Скрін програми:

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

AnsiString str, s1, st;

int k=0;

str = Edit1->Text;

Memo1->Lines->Clear();

for(int i=1; i<str.Length(); i++)

if (!str.IsDelimiter(",.!", i))

s1 = s1+str[i];

else

{

k++;

st = IntToStr(k)+". ñëîâî " + " "+s1 + " " + " ì³ñòèòü " + IntToStr(s1.Length())+"ñèìâîë³â\n";

Memo1->Lines->Add(st);

s1 = "";

} }

void __fastcall TForm1::BitBtn2Click(TObject *Sender)

{

Close();

}

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

Проект 2 по варіантах:

В-1. Складіть програму кодування тексту так: перший символ замінити на 4-й, що розміщений в алфавіті після нього (тобто замінити з кроком зміщення 4).

Введіть текст за допомогою компонента Edit, а результат виведіть, наприклад, у Label.

Фрагмент програми на С++:

 

Код програми: Скрін програми:

void __fastcall TForm1::BitBtn1Click(TObject *Sender){

int k,n; AnsiString a;

a = Edit1->Text;

Memo1->Lines->Clear();

for (n=1; n<=a.Length(); n++)

{ k=a[n]+4; a[n]=k;

}

Memo1->Lines->Add(a); }

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

void __fastcall TForm1::BitBtn2Click(TObject *Sender)

{

Close(); }

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

 

 

Проект3. Ввести список прізвищ та вивести його за такими ознаками:

— за заданим закінченням прізвища;

— за заданою першою літерою прізвища;

— для випадку, коли дві попередні ознаки діють одночасно, тобто задається перша літера прізвища і його закінчення.

Код програми: Скрін програми:

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

const n=7;

AnsiString sp[n], st, okn, s;

int i, k, m;

k = okn.Length();

Label3->Caption = "";

for (i = 0; i < n; i++)

{ sp[i]=InputBox("Ââåäåííÿ ñïèñêó", "Ââåä³òü "+ IntToStr(i+1)+" ïð³çâèùå"," ");

Label3->Caption=Label3->Caption+IntToStr(i+1)+ " "+sp[i]+'\n'; }

AnsiString p = Edit1->Text;

okn = Edit2->Text;

k = okn.Length();

m = 0;

Label4->Caption=" ";

for (i = 0; i < n; i++)

{ s = sp[i];

st = sp[i].SubString(sp[i].Length()-k+1,k);

if (p.IsEmpty())

if (st == okn)

{ m++;

Label4->Caption = Label4->Caption+IntToStr(m) + " " + sp[i]+ '\n'; }

if (okn.IsEmpty())

{ if (s.SetLength(1) == p)

{ m++;

Label4->Caption=Label4->Caption+IntToStr(m) +" " + sp[i] + '\n'; }

}

else

if ((s.SetLength(1) == p) && (st == okn))

{ m++;

Label4->Caption=Label4->Caption+IntToStr(m) +" " + sp[i] +'\n';

}}

}

 

 


1 | 2 | 3 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)