Решение квадратного уравнения

@Desolator_- · Регистрация: 16.11.2020

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

Здраствуйте знатоки форума)
Я хотел бы в этом коде если указывает текст то надо показать что цифры должны написать. Я написал в конце код. Ощибка дает. Помогите пжл-ста!

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "kvadratildiz2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  float a, b, c, d, x1, x2;
 
  a=StrToFloat(Edit1->Text);
  b=StrToFloat(Edit2->Text);
  c=StrToFloat(Edit3->Text);
        Label4->Visible =False;
        Label5->Visible =False;
   d=b*b-4*a*c;
 
   if (d>0) {
    x1=(-b+sqrt(d))/2*a;
    x2=(-b-sqrt(d))/2*a;
       Label4->Visible =True;
       Label5->Visible =True;
       Label4->Caption="x1="+FloatToStr(x1);
       Label5->Caption="x2="+FloatToStr(x2);
       }
    else if (d==0)
    {
    x1=-b/2*a;
    Label4->Visible =True;
    Label5->Visible =True;
    Label4->Caption="Bu tenglamaning ildizlari yagona bo'lib, ";
    Label5->Caption="x1=x2="+FloatToStr(x2);
    }
   else if(d<0)
   {     Label4->Visible =True;
   Label4->Caption="Bu tenglama yechimga emas, ya'ni haqiqiy ildizi mavjud emas, ";
   Label5->Visible =False;
   }
    else
    {    Label4->Visible =True;
   Label4->Caption="Son qiymat kiritish kerak, ";
   Label5->Visible =False;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Edit1->Clear();
  Edit2->Clear();
  Edit3->Clear();
  Label4->Visible=False;
  Label5->Visible=False;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
        Form1->Close();        
}
//---------------------------------------------------------------------------

@gunslinger · 02.03.2023, 09:30

Как вариант, можно использовать функцию TryStrToFloat (надеюсь, она есть в 6-ом билдере).
Либо проверять ввод на наличие "букв и прочего" (вручную либо с помощью "встроенных" функций).

@Desolator_- · 02.03.2023, 09:34 **[ТС]**

ощибку даёт. Можете код выписать?

@Desolator_- · 02.03.2023, 09:36 **[ТС]**

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

Как вариант, можно использовать функцию TryStrToFloat (надеюсь, она есть в 6-ом билдере).
Либо проверять ввод на наличие "букв и прочего" (вручную либо с помощью "встроенных" функций).

ощибку даёт. Можете код выписать?

@gunslinger · 02.03.2023, 10:40

Прочитай описание функции.
У нее должно быть два параметра, а не один. Во второй заносится значение в случае успешного преобразования строки в число. И возвращает функция true или false.

Converts a given string to a floating-point value, with a Boolean success code.

Use TryStrToFloat to convert a string, S, to a floating-point value. S must consist of an optional sign (+ or -), a string of digits with an optional decimal point, and an optional mantissa. The mantissa consists of 'E' or 'e' followed by an optional sign (+ or -) and a whole number. Leading and trailing blanks are ignored.

The DecimalSeparator global variable defines the character that must be used as a decimal point. Thousand separators and currency symbols are not allowed in the string. If S does not contain a valid value, TryStrToFloat returns Default.

TryStrToFloat places the result in Value, and returns True if the conversion was successful, False otherwise.

The first three forms of TryStrToFloat are not thread-safe, because they use localization information contained in global variables. The second three forms of TryStrToFloat, which are thread-safe, refer to localization information contained in the AFormatSettings parameter. Before calling the thread-safe forms of TryStrToFloat, you must populate AFormatSettings with localization information. To populate AFormatSettings with a set of default locale values, call TFormatSettings.Create.

@Desolator_- · 02.03.2023, 13:15 **[ТС]**

C++
1
2
3
a=StrToFloat(Edit1->Text);
  b=StrToFloat(Edit2->Text);
  c=StrToFloat(Edit3->Text);

вместо это добавил

C++
1
2
3
a=TryStrToFloat (Edit1->Text);
  b=TryStrToFloat (Edit2->Text);
  c=TryStrToFloat (Edit3->Text);

ощибку даёт(((

@Si14 · 02.03.2023, 14:03

C++
1
2
3
4
5
6
7
8
9
10
11
12
float a;
AnsiString t = "123";
bool success;
success = TryStrToFloat(t, a);
if (!success)
{
    ShowMessage("Не число!");
}
else
{
    ShowMessage("число");
}

@gunslinger · 02.03.2023, 14:11

Desolator_-, ты принципиально ответы не читаешь?

P.S.: можно еще так сделать (вариант "наброска кода")

C++
1
2
3
4
  if (TryStrToFloat(Edit1->Text, a) && TryStrToFloat(Edit2->Text, b) && TryStrToFloat(Edit3->Text, c))
    d = b * b - 4 * a * c;
  else
    // тут выводим сообщение, что нужно вводить числа

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@gunslinger place status here 3186 / 2220 / 640 Регистрация: 20.07.2013 Сообщений: 6,013
	02.03.2023, 09:30
	Как вариант, можно использовать функцию TryStrToFloat (надеюсь, она есть в 6-ом билдере). Либо проверять ввод на наличие "букв и прочего" (вручную либо с помощью "встроенных" функций). 0

@Desolator_- 0 / 0 / 0 Регистрация: 16.11.2020 Сообщений: 11
	02.03.2023, 09:34 [ТС]
	ощибку даёт. Можете код выписать? Миниатюры 0