Как сделать без исключений

@Sagamor · Регистрация: 11.02.2009

Студворк — интернет-сервис помощи студентам

Нужно переписать функцию что бы выдовала ошибку без участия исключений. ( как делали до исключений)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 try
 {
 double  a= StrToFloat(Edit5->Text);  
 double b = StrToFloat(Edit3->Text);
 double x;
 double y;
 Calc(a,b,x,y);
 Label4->Caption="Ответ: x="+FloatToStrF(x, ffFixed, 8, 2)+", y="+FloatToStrF(y, ffFixed, 8, 2)+",z=0";
 }
 catch(int)
 {
 ShowMessage("Радиус должен быть положителен");
 Edit5->SetFocus();
 }
}
//---------------------------------------------------------------------------
void TForm1::Calc(double a, double b,double &x, double &y)
{
 if (a>0)
 {
    x = a*cos(b);
    y = a*sin(b);
 }
 else
 {
 throw 1;
 }
}

@mirso · 15.04.2009, 23:43

Sagamor, а что для тебя исключение?

C++
1
2
3
4
try
{}
catch(EZeroDivide) - деление на ноль
{}

или

C++
1
if(a<0){ShowMesage("На нуль ни дили! Плоха!");return;}

В общем, по книжному или по смыслу?

@Sagamor · 15.04.2009, 23:53 **[ТС]**

нужно без try и catch
попробую вариант с if

Не получилось.
Ктонибудь знает способ который использовали до появления try и catch?

@Alexiski · 17.04.2009, 02:14

Не совсем понял. Если подразумевается самостоятельно генерируемое в коде исключение, то что мешает сделать так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   double a;
   double b;
   if (TryStrToFloat(Edit5->Text, a) && TryStrToFloat(Edit3->Text, b))
   {
       double x;
       double y;
       if (Calc(a,b,x,y))
       {
           Label4->Caption="Ответ: x="+FloatToStrF(x, ffFixed, 8, 2)+", ="+FloatToStrF(y, ffFixed, 8, 2)+",z=0";
           return;
       }
   }
   ShowMessage("Радиус должен быть положителен");
   Edit5->SetFocus();
}
 
//---------------------------------------------------------------------------
bool TForm1::Calc(double a, double b,double &x, double &y)
{
   if (a>0)
   {
      x = a*cos(b);
      y = a*sin(b);
      return true;
   }
   else
   {
      return false;
   }
}

@mirso · 18.04.2009, 01:31

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm1::Button3Click(TObject *Sender)
{
double a = StrToFloat(Edit5->Text);//mistakes (run time error)
double b = StrToFloat(Edit3->Text);
double x;
double y;
 
    if(Exception(a) == 0){ShowMessage("Радиус должен быть положителен");Edit5->SetFocus();return;}
 
    x = a*cos(b);
    y = a*sin(b);
    Label4->Caption="Ответ: x="+FloatToStrF(x, ffFixed, 8, 2) +  \
                         ", y="+FloatToStrF(y, ffFixed, 8, 2) +  \
                         ", z=0";
}
//---------------------------------------------------------------------------
 
int __fastcall TForm1::Exception(double a)
{
    int e = a + abs(a);
    return e;
}
//---------------------------------------------------------------------------

@Sagamor · 18.04.2009, 01:35 **[ТС]**

Всем спасибо я разобрался.

@mirso · 18.04.2009, 02:12

Пожалуйста! Но, не ты один разбираешься. Форум! Понимаешь ли!!!

Что возвращает функция типа bool !

Запусти - увидишь! Поменяй значения!

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
//---------------------------------------------------------------------------
bool Calc(double a);
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   double a;
 
   a = Edit1->Text.ToInt();//Edit1->Text = - 5;
 
   AnsiString s = "Функция Calc(a) возвращает < " + BoolToStr(Calc(a)) + "> значение";
 
   ShowMessage(s);
 
   if(Calc(a))
   {
        Edit1->Text = IntToStr((int)(100/a));
   }
   else
   {
        Edit1->Text = "Введите положительное число, большее нуля";
        for(int t = 0; t < 40; t++)
        {
            Sleep(50);
            Application->ProcessMessages();
        }
 
        Edit1->Text = "100";
   }
 
}
//---------------------------------------------------------------------------
bool Calc(double a)
{
    if(a > 0)return (-1);
    else     return ( 0);
}
//---------------------------------------------------------------------------

Добавлено через 9 минут 21 секунду
Даже! Если поменять

C++
1
2
3
4
5
bool Calc(double a)
{
    if(a > 0)return (-122);
    else     return ( 0);
}

Возвращаемое значение будет (-1) при true.

Добавлено через 4 минуты 7 секунд

На нуль ни дили! Плоха!

и

положительное число, большее нуля

были конечно шуткой!

@QenT · 18.04.2009, 03:17

не много, не по теме:
Application->ProcessMessages();
расскажите пожалуйста по подробнее(примерно я понял), что делает этот метод

@mirso · 18.04.2009, 04:22

Сообщения, хоть изредка - поступают!
Каждые 50/1000 секунды

В прорыв!

@QenT · 18.04.2009, 04:58

Сообщение от mirso

Сообщения, хоть изредка - поступают!
Каждые 50/1000 секунды

Не только, с этим методом, даже если подать паузу в 5000ms я могу работать с формой(нет зависания), хотел узнать как это можно применить в других случаях, например если я загрузил программу сложным вычислением, как мне сделать так, чтобы пока он думал, я мог с прогой еще чтонибудь делать(паралельно).

@mirso · 18.04.2009, 05:37

в тело вычислений
(наверняка же там будет хоть один цикл).
if(i % t == 0) A->PM() ;//i - итератор перебора; t - предполагаемое время отклика.

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@Sagamor 0 / 0 / 0 Регистрация: 11.02.2009 Сообщений: 57
	15.04.2009, 23:53 [ТС]
	нужно без try и catch попробую вариант с if Не получилось. Ктонибудь знает способ который использовали до появления try и catch? 0

@Sagamor 0 / 0 / 0 Регистрация: 11.02.2009 Сообщений: 57
	18.04.2009, 01:35 [ТС]
	Всем спасибо я разобрался. 0

@QenT 40 / 40 / 8 Регистрация: 29.01.2009 Сообщений: 244
	18.04.2009, 03:17
	не много, не по теме: Application->ProcessMessages(); расскажите пожалуйста по подробнее(примерно я понял), что делает этот метод 0

@mirso 562 / 373 / 55 Регистрация: 05.04.2009 Сообщений: 767
	18.04.2009, 05:37
	в тело вычислений (наверняка же там будет хоть один цикл). if(i % t == 0) A->PM() ;//i - итератор перебора; t - предполагаемое время отклика. 1