Операция сложения двух чисел

@Giroskop · Регистрация: 21.01.2013

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

Написать программу в которой вводятся два числа (типа float) в многострочное окно редактирования Memo , затем к ним применяется операция сложение и результат выводится с помощью Panel.

LK · 25.05.2013, 11:22

На форме: Memo1, Button1, Panel1. Числа в мему вводите ручками, каждое число в новой строке. При нажатии на кнопку:

C++

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  Memo1->Clear();
  Panel1->Caption = "";
  Button1->Caption = "Summ";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  float fltFirst,fltSecd,fltSumm;
  AnsiString sFirst,sSecd,sMess1,sMess2,sSummTxt,sSummRes;
  sFirst = Memo1->Lines->Strings[0];
  sSecd = Memo1->Lines->Strings[1];
  sMess1 = "Введите число с плавающей запятой в первой строке.";
  sMess2 = "Введите число с плавающей запятой во второй строке.";
  sSummTxt = "Результат сложения: ";
  if (Memo1->Lines->Strings[0]!="") {
    fltFirst = StrToFloat(sFirst);
  }
  else {
    ShowMessage(sMess1);
    Memo1->SetFocus();
  }
  if (Memo1->Lines->Strings[1]!="") {
    fltSecd = StrToFloat(sSecd);
}
  else {
    ShowMessage(sMess2);
    Memo1->SetFocus();
  }
  fltSumm = fltFirst+fltSecd;
  sSummRes = FloatToStrF(fltSumm,ffFixed,15,2);
  Panel1->Caption = sSummTxt+sSummRes;
}
//---------------------------------------------------------------------------

LK · 25.05.2013, 11:35

-------------------------------

@Giroskop · 25.05.2013, 12:01 **[ТС]**

а это в 6м билдере?

LK · 25.05.2013, 12:25

нет, это в ХЕ, но ничто не мешает ему работать в 6м
и, пардон, не

C++

1
2

sMess1 = "Введите число с плавающей запятой в первой строке.";
sMess2 = "Введите число с плавающей запятой во второй строке.";

, а

C++

1
2

sMess1 = "Введите число с плавающей точкой в первой строке.";
sMess2 = "Введите число с плавающей точкой во второй строке.";

, а то будет ошибка, иначе, следует явно указать DecimalSeparator

@Kotenok94 · 08.05.2014, 15:33

А что если будем вводить допустим две запятых или буквы, как прописать ошибку?

@D1973 · 10.05.2014, 13:20

Я бы сократил код, представленный LK,

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  float fltFirst,fltSecd;
  String sSummRes;
  if (!TryStrToFloat(Memo1->Lines->Strings[0], fltFirst))
    {
      ShowMessage("Введите число с плавающей точкой в первой строке.");
      Memo1->SetFocus();
             return;
    }
  if (!TryStrToFloat(Memo1->Lines->Strings[1], fltSecd))
    {
      ShowMessage("Введите число с плавающей точкой во второй строке.");
      Memo1->SetFocus();
             return;
    }
  sSummRes = FloatToStrF(fltFirst+fltSecd,ffFixed,15,2);
  Panel1->Caption = sSummRes;
}

Этим самым получаем ответ на вопрос пользователя Kotenok94,

@Giroskop 0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 56
		1
	Операция сложения двух чисел 25.05.2013, 10:19. Показов 1978. Ответов 6 Метки нет (Все метки) Написать программу в которой вводятся два числа (типа float) в многострочное окно редактирования Memo , затем к ним применяется операция сложение и результат выводится с помощью Panel. 0

LK Заблокирован
	25.05.2013, 11:35	3
	------------------------------- 1

@Giroskop 0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 56
	25.05.2013, 12:01 [ТС]	4
	а это в 6м билдере? 0

@Kotenok94 0 / 0 / 0 Регистрация: 16.01.2014 Сообщений: 3
	08.05.2014, 15:33	6
	А что если будем вводить допустим две запятых или буквы, как прописать ошибку? 0

	10.05.2014, 13:20