Yvision.kzYvision.kz
kk
Разное
Разное
399 773 постов41 подписчиков
Всяко-разно
0
21:46, 20 октября 2010

С++

Есеп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();
}
//---------------------------------------------------------------------------

 

0
430
0