место в рейтинге
  • 103191
  • 154
  • 45
Нравится блог?
Подписывайтесь!

С++

Есеп1. +++ танбалардан туратын создердин санын аныктау

sl.Pos("+++")) Pos функциясы +++ танбаларын создин ишинде издейди, егер бар болса оны к++ оны экранга шыграмыз. Бул есеп тек С++ Builder истейди

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

#include <vcl.h>
#include <math.h>
#include <iostream.h>
#include <stdio.h>
#include <string.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::BitBtn1Click(TObject *Sender)
{
int i,z,k=0;
AnsiString sl,s;
s=Edit1->Text;
sl=AnsiString(); s+='.';
Memo1->Lines->Add(s);
for (i=1;i<=s.Length();i++)
{
if (s[i]==' ' || s[i]==',' || s[i]==';' || s[i]=='.' || s[i]=='!' || s[i]=='?')
{
if (sl.Pos("+++")){
Memo1->Lines->Add(sl);

k++;
}
sl=AnsiString();

}
else sl=sl+s[i];
}

Memo1->Lines->Add("Sani "+IntToStr(k));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

Есеп2. в-дан басталатын жане в-дан аякталатын создердин санын аныктау. Мына есепти создин биринши символын создин сонымен салыстырганда узындыгын алаы саламызда биринши символмен салыстырамыз. Егер сиздин есепте создин биринши символы сонгы символмен бирдей болса онда шартты былай жазамыз.

if (sl[1]=='в' && sl[sl.Length()]=='в') оны былай етип ауыстырамыз

if (sl[1]==sl[sl.Length()])

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

#include <vcl.h>
#include <math.h>
#include <iostream.h>
#include <stdio.h>
#include <string.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::BitBtn1Click(TObject *Sender)
{
int i,z,k=0;
AnsiString sl,s;
s=Edit1->Text;
sl=AnsiString(); s+='.';
Memo1->Lines->Add(s);
for (i=1;i<=s.Length();i++)
{
if (s[i]==' ' || s[i]==',' || s[i]==';' || s[i]=='.' || s[i]=='!' || s[i]=='?')
{
if (sl[1]=='в' && sl[sl.Length()]=='в'){ // мына жерди озгерту
Memo1->Lines->Add(sl);
k++;
}
sl=AnsiString();

}
else sl=sl+s[i];
}

Memo1->Lines->Add("Sani "+IntToStr(k));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

Есеп3. а әрпінен басталатын ең ұзын сөзді анықтау. Бұл есепте бірінші а-дан басталатын создерді тауып алып, баска екінші массивке жазып аламыз. Содан кейін массивтін ішінде ең сөзді тауып аламыз.

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

#include <vcl.h>
#include <math.h>
#include <iostream.h>
#include <stdio.h>
#include <string.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::BitBtn1Click(TObject *Sender)
{
int i,z,k=0,max=1;
AnsiString sl,s;
String c[10];
s=Edit1->Text;
sl=AnsiString(); s+='.';
Memo1->Lines->Add("Бастапкы матин ="+s);
for (i=1;i<=s.Length();i++)
{
if (s[i]==' ' || s[i]==',' || s[i]==';' || s[i]=='.' || s[i]=='!' || s[i]=='?')
{
if (sl[1]=='а' ){
k++;
//for(int i=1;i<=s.Length();i++)
c[k]=sl;
Memo1->Lines->Add(sl);

}
sl=AnsiString();

}
else sl=sl+s[i];
}

Memo1->Lines->Add("а-дан басталатын создердин саны = "+IntToStr(k));
for(int i=1;i<=k;i++)
Memo1->Lines->Add("c="+c[i]);

for(int i=2;i<=k;i++)
{
if(c[i].Length()>c[1].Length())
max=i;
}
Memo1->Lines->Add("а арпинен ен узын соз = "+c[max]);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

 

Данияр Мырзаканов dan_ntu
Добрый и анкау емеспин.
21 октября 2010, 9:46
931

Загрузка...
Loading...

Комментарии

Оставьте свой комментарий

Спасибо за открытие блога в Yvision.kz! Чтобы убедиться в отсутствии спама, все комментарии новых пользователей проходят премодерацию. Соблюдение правил нашей блог-платформы ускорит ваш переход в категорию надежных пользователей, не нуждающихся в премодерации. Обязательно прочтите наши правила по указанной ссылке: Правила

Также можно нажать Ctrl+Enter

Популярные посты

«Предатели Русского мира». Кто учит нас, какими буквами писать и чью культуру любить

«Предатели Русского мира». Кто учит нас, какими буквами писать и чью культуру любить

Истерический вой, поднявшийся в российских СМИ по поводу перевода казахского языка на латиницу, блогер и публицист из Казани Римзиль Валеев оценил довольно-таки точно, на наш взгляд.
openqazaqstan
18 апр. 2017 / 16:47
  • 32872
  • 249
Казахстан сидит на чемоданах. А некоторые из нас – непосредственно в них

Казахстан сидит на чемоданах. А некоторые из нас – непосредственно в них

Откуда я знаю, спросите вы? Да очень просто. Голые мужики в сауне могут врать только про баб. Про машины и планы переездов – только по-чесноку. Чего уж скрывать, если все остальное напоказ.
Lesch
17 апр. 2017 / 23:30
  • 6318
  • 23
Школа High Tech High – дети здесь самостоятельны так же, как и профессионалы в офисах

Школа High Tech High – дети здесь самостоятельны так же, как и профессионалы в офисах

Известный казахстанский бизнесмен становится первопроходцем и создает школу, о которой можно только мечтать. То, что мы, как взрослые, делаем в бизнесе, дети будут делать в этой школе.
Zhumanova
сегодня / 16:29
  • 3543
  • 1
Как выбрать новостройку в Алматы: инсайты, критерии и личный опыт

Как выбрать новостройку в Алматы: инсайты, критерии и личный опыт

Я прекрасно понимаю тех, кто долго ищет подходящую квартиру - сама искала, потратила на поиск 1,5 года. Что, прежде всего, повлияло на мой выбор при покупке квартиры в новостройке Алматы?
Zhumanova
21 апр. 2017 / 10:04
  • 3333
  • 10
«А ты покушала?» или Как завоевать сердце женщины простой заботой

«А ты покушала?» или Как завоевать сердце женщины простой заботой

Так как опыт хождения по свиданиям у меня немаленький, да и с интуицией давно дружу, я быстро отсеиваю тех, с кем будут проблемы. Как я это определяю? Очень просто.
Bonittta
22 апр. 2017 / 14:10
«Третья мировая война начнётся в мае 2017 года» – провидец из Португалии

«Третья мировая война начнётся в мае 2017 года» – провидец из Португалии

Провидец из Португалии по имени Горацио Вильегас считает, что новая мировая война состоится уже в текущем году. Считается, что португалец два года назад объявил, что Трамп станет президентом.
Seattle
21 апр. 2017 / 15:33
  • 2819
  • 12
Депутат сената Айтимова: «Не нужно критиковать депутатов, так как вы сами их избирали»

Депутат сената Айтимова: «Не нужно критиковать депутатов, так как вы сами их избирали»

Наши депутаты известны не достижениями и работой, а своими высказываниями. Сегодня в СМИ вышла новость, где депутат сената Бырганым Айтимова ответила на критику народа.
tala03
20 апр. 2017 / 13:44
  • 2410
  • 19
Меня вывели из себя ученики 8 класса. Я осознала, что не хочу быть учителем

Меня вывели из себя ученики 8 класса. Я осознала, что не хочу быть учителем

Когда я пришла в первый раз на работу, слышала как доносятся крики из разных кабинетов. Крики это были не детей, а учителей, которые не могут сдержаться, когда уже все силы иссякли...
teacher1210
19 апр. 2017 / 7:56
  • 2574
  • 61
Стихия всё спишет. Почему дамба за 200 миллионов никого не спасла?

Стихия всё спишет. Почему дамба за 200 миллионов никого не спасла?

Наводнение в Атбасаре, размытые дороги, подтопленные сёла по всему Центральному и Северному Казахстану... Что происходит?
openqazaqstan
19 апр. 2017 / 15:20
  • 2366
  • 14