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

@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
    // тут выводим сообщение, что нужно вводить числа

Новые блоги и статьи Все статьи Все блоги /
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .

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

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