nie dziala przycisk "przecinek" w kalkulatorze C++ builder

pytanie zadane 9 października 2016 w C i C++ przez kontaktgw Nowicjusz (140 p.)

Witam

Chcialem napisac prosty kalkulator w C++ Builder. jednak przycisk "przecinek " nie dziala prawidlowo. 1,1+1=2,09999990463257. Co moge porawiac aby dzialal poprawnie.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

char wybor;
float liczba1;
float liczba2;
float wynik;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------



void __fastcall TForm1::JedenClick(TObject *Sender)
{
Edit1 ->Text=Edit1 ->Text+'1';
}
//---------------------------------------------------------------------------

void __fastcall TForm1::DwaClick(TObject *Sender)
{
    Edit1 ->Text=Edit1 ->Text+'2';
}
//---------------------------------------------------------------------------


void __fastcall TForm1::TrzyClick(TObject *Sender)
{
Edit1 ->Text=Edit1 ->Text+'3';
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CzteryClick(TObject *Sender)
{
Edit1 ->Text=Edit1 ->Text+'4';
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PiecClick(TObject *Sender)
{
Edit1 ->Text=Edit1 ->Text+'5';
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SzescClick(TObject *Sender)
{
Edit1 ->Text=Edit1 ->Text+'6';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SiedemClick(TObject *Sender)
{
Edit1 ->Text=Edit1 ->Text+'7';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OsiemClick(TObject *Sender)
{
Edit1 ->Text=Edit1 ->Text+'8';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DziewiecClick(TObject *Sender)
{
Edit1 ->Text=Edit1 ->Text+'9';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ZeroClick(TObject *Sender)
{
Edit1 ->Text=Edit1 ->Text+'0';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CzyszczenieClick(TObject *Sender)
{
        Edit1 ->Clear();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ZnakClick(TObject *Sender)
{
Edit1 ->Text= -1*Edit1 ->Text.ToDouble();       
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PlusClick(TObject *Sender)
{
liczba1=Edit1 ->Text.ToDouble();
Edit1 ->Clear();
wybor='+';
}
//---------------------------------------------------------------------------

void __fastcall TForm1::MinusClick(TObject *Sender)
{
liczba1=Edit1 ->Text.ToDouble();
Edit1 ->Clear();
wybor='-';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MnozenieClick(TObject *Sender)
{
liczba1=Edit1 ->Text.ToDouble();
Edit1 ->Clear();
wybor='*';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DzielenieClick(TObject *Sender)
{
liczba1=Edit1 ->Text.ToDouble();
Edit1 ->Clear();
wybor='/';
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Rowna_sieClick(TObject *Sender)
{

liczba2=Edit1 ->Text.ToDouble();
Edit1 ->Clear();

switch (wybor)

        {
          case '+': wynik =liczba1 + liczba2;break;
          case '-': wynik =liczba1 - liczba2;break;
          case '*': wynik =liczba1 * liczba2;break;
          case '/':
          {
                if (liczba2 !=0) wynik = liczba1 / liczba2;
                else ShowMessage("Nie wolno dzielic przez zero");
                break;
          }     
        }
       

       Edit1->Text=FloatToStr(wynik);


}
//---------------------------------------------------------------------------
void __fastcall TForm1::PrzecinekClick(TObject *Sender)
{
   Edit1 ->Text=Edit1 ->Text+',';
}
//---------------------------------------------------------------------------

2 odpowiedzi

odpowiedź 9 października 2016 przez Łukasz Rząsa Użytkownik (830 p.)

A tu nie chodzi czasem o to, że powinna być kropka, a nie przecinek?

komentarz 9 października 2016 przez kontaktgw Nowicjusz (140 p.)

Jezeli zamienia na kropke to daje mi inny komunikat

"4.7 is not a valid floating point value"

odpowiedź 9 października 2016 przez criss Mędrzec (172,590 p.)

Tzn. gdzie ten przecinek jest?

Co do:

1,1+1=2,09999990463257

Tzn. 1,1 + 1 daje ci taki wynik? 0,1 (1/10, jedna dziesiąta) nie da się zapisać zupełnie dokładnie binarnie. Dlatego daje ci taki wynik - zbliżony do 2,1, ale nie dokładnie tyle. Dlatego, że komputer działa na liczbach binarnych, a 0.1 nie da się zapisać w systemie binarnym (przynajmniej nie na tylu bitach ile oferuje float).