close

Вход

Забыли?

вход по аккаунту

?

Отчет (21)

код для вставкиСкачать

Лабораторная работа № 7
Вариант 6
Задание:
В оконном приложении исходные данные вводить из компоненты Edit в ListBox (заканчивать нажатием Enter). Скалярный результат выводить в компоненту Label. Для выхода из программы использовать кнопку "Close". Из строки, состоящей из букв, цифр, запятых, точек, знаков + и - , выделить подстроку, которая соответствует записи целого числа..
Программа:
Код: void __fastcall TForm1::ComboBoxClick(TObject *Sender)
{
int combobox_position = ComboBox->ItemIndex;
String str = ComboBox->Items->Strings[combobox_position];
//Ïîèñê ÷èñåë â ñòðîêå
Memo->Clear();
int digit_pos = -1;
int num_counter = 0;
for (int i = 1; i <= str.Length(); i++)
{
if(isdigit(str[i])
|| (i != str.Length() && digit_pos == -1 && isdigit(str[i+1]) &&
((str[i] == '-') || str[i] == '+')))
{
if(digit_pos == -1)
{
digit_pos = i;
}
if(i == str.Length())
{
String num = str.SubString(digit_pos,i + 1 - digit_pos);
Memo->Lines->Add(num);
num_counter++;
break;
}
}
else if (digit_pos != -1)
{
String num = str.SubString(digit_pos,i - digit_pos);
Memo->Lines->Add(num);
num_counter++;
digit_pos = -1;
if(str[i] == '+' || str[i] == '-')
{
i--;
}
}
}
Label1->Caption = "Êîëè÷åñòâî öåëûõ ÷èñåë:"+IntToStr(num_counter);
}
Документ
Категория
Рефераты
Просмотров
29
Размер файла
52 Кб
Теги
отчет
1/--страниц
Пожаловаться на содержимое документа