место в рейтинге
  • 113741
  • 155
  • 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
980

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

Комментарии

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

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

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

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

Зачем Forbes.kz пытается дискредитировать программу латинизации?

Зачем Forbes.kz пытается дискредитировать программу латинизации?

Буквально вчера заинтересовался одним любопытным сайтом. Не зря заинтересовался, взбесил он меня не по-детски. Да и не только меня. С этим хитрым сайтом был связан настоящий взрыв негатива в Казнете.
Rulan_Oteshev
13 сент. 2017 / 16:32
Почему GGG, при любом результате боя, не войдёт в историю как великий боксёр

Почему GGG, при любом результате боя, не войдёт в историю как великий боксёр

16 сентября в Лас-Вегасе состоится боксёрский вечер, главным событием на котором станет бой за титул чемпиона мира в среднем весе между Геннадием Головкиным и Саулем «Канело» Альваресом.
openqazaqstan
13 сент. 2017 / 13:44
  • 5281
  • 33
Дорога Алматы – Хоргос. Впечатления от первой поездки

Дорога Алматы – Хоргос. Впечатления от первой поездки

Если раньше путь до Хоргоса занимал около 5 часов по Кульджинской трассе, то сейчас время до границы с Китаем сокращается до 2,5-3 часов. Уже сейчас можно ехать по 4-полосной дороге с цементобетонным покрытием.
theYakov
15 сент. 2017 / 9:35
  • 5162
  • 12
Посол Польши: «Переход на латиницу для Казахстана станет цивилизационной революцией»

Посол Польши: «Переход на латиницу для Казахстана станет цивилизационной революцией»

Сегодня в Казахстане активно обсуждают предложенный латинский алфавит казахского языка в Парламенте, мнения высказываются самые разные, некоторые даже предпочли вообще отказаться от такого перехода.
Shimanskaya
13 сент. 2017 / 12:28
  • 2936
  • 45
Работа в Mc Donald's. Советы и лайфхаки для гостей

Работа в Mc Donald's. Советы и лайфхаки для гостей

За три месяца я поработала в трёх разных сферах. И сегодня, хочу поведать вам о работе в одной из богатейших компаний мира. Звучит значительно лучше, чем «Я работаю в Mc Donald’s».
madiNAtty
15 сент. 2017 / 12:44
  • 2854
  • 16
Фильм «Крылья, подаренные матерью» учит ценить своих близких в любых ситуациях

Фильм «Крылья, подаренные матерью» учит ценить своих близких в любых ситуациях

Вчера состоялся предпремьерный показ нашего отечественного фильма "Крылья, подаренные матерью", после просмотра которого защемило сердце - настолько правдоподобной казалась эта история.
Gulmira-I
14 сент. 2017 / 9:34
  • 2221
  • 0
Фотопрогулка по Алматы. Иностранцам не интересны наши стеклянные здания и моллы

Фотопрогулка по Алматы. Иностранцам не интересны наши стеклянные здания и моллы

Алматы - самый лучший город для меня, так как родной и самый близкий. Так как я много лет прожил за рубежом, могу сказать свою точку зрения, что надо делать у нас.
Ispanec
15 сент. 2017 / 6:20
  • 1896
  • 21
«Моя депрессия длилась больше двух лет». История о том, как я была готова сдаться

«Моя депрессия длилась больше двух лет». История о том, как я была готова сдаться

По данным статистики 2017 года Казахстан занимает 4 место по самоубийствам. Говорить об этом - социальное табу. Мы игнорируем разговоры о депрессиях. Потому что нам страшно.
goribaldi
18 сент. 2017 / 15:45
  • 1779
  • 27
Почему депутат Божко хочет ограничить приток сельской молодёжи в города?

Почему депутат Божко хочет ограничить приток сельской молодёжи в города?

Вице-спикер Мажилиса Владимир Божко остановился на некоторых деталях известного конфликта в Астане возле строящегося «Абу Даби Плаза», затронув проблему «многочисленной сельской молодёжи»...
openqazaqstan
вчера / 13:16
  • 1654
  • 52