Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Калькулятор, Проблема с умножением и делением дробных 
:(
    Опции темы
JIuTEoH
Дата 14.4.2009, 10:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 9.4.2009

Репутация: нет
Всего: нет
Код


#include <vcl.h>
#include <math.h>
#pragma hdrstop

#include "Calculator.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
double accum;
int op;
int f,z;
TForm1 *Form1;
//Form---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{ f=0;
  op=0;
  StaticText1->Caption=0;
}
//Button 0---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{ if(f!=0)
  StaticText1->Caption=StaticText1->Caption+'0';
}
//Button1
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{ if(f==0)
  { StaticText1->Caption='1';
    f=1;
  }
  else StaticText1->Caption=StaticText1->Caption+'1';
}
//Button2
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{ if(f==0)
  {
  StaticText1->Caption='2';
  f=1;
  }
  else StaticText1->Caption=StaticText1->Caption+'2';
}
//Button3
void __fastcall TForm1::BitBtn4Click(TObject *Sender)
{ if(f==0)
  {
    StaticText1->Caption='3';
    f=1;
  }
  else StaticText1->Caption=StaticText1->Caption+'3';
}
//Button4
void __fastcall TForm1::BitBtn5Click(TObject *Sender)
{ if(f==0)
  {
    StaticText1->Caption='4';
    f=1;
  }
  else StaticText1->Caption=StaticText1->Caption+'4';
}
//Button5
void __fastcall TForm1::BitBtn6Click(TObject *Sender)
{ if(f==0)
  {
    StaticText1->Caption='5';
    f=1;
  }
  else StaticText1->Caption=StaticText1->Caption+'5';
}
//Button6
void __fastcall TForm1::BitBtn7Click(TObject *Sender)
{ if(f==0)
  {
    StaticText1->Caption='6';
    f=1;
  }
  else StaticText1->Caption=StaticText1->Caption+'6';
}
//Button7
void __fastcall TForm1::BitBtn8Click(TObject *Sender)
{ if(f==0)
  {
    StaticText1->Caption='7';
    f=1;
  }
  else StaticText1->Caption=StaticText1->Caption+'7';
}
//Button8
void __fastcall TForm1::BitBtn9Click(TObject *Sender)
{ if(f==0)
  {
    StaticText1->Caption='8';
    f=1;
  }
  else StaticText1->Caption=StaticText1->Caption+'8';
}
//Button9
void __fastcall TForm1::BitBtn10Click(TObject *Sender)
{ if(f==0)
  {
    StaticText1->Caption='9';
    f=1;
  }
  else StaticText1->Caption=StaticText1->Caption+'9';
}
//Point
void __fastcall TForm1::BitBtn11Click(TObject *Sender)
{ if(f==0)
  {
    StaticText1->Caption="0,";
    f=1;
  }
  else
  { if(StaticText1->Caption.Pos(",")==0)
      StaticText1->Caption=StaticText1->Caption+',';
  }
}
//Sbros(C)
void __fastcall TForm1::BitBtn12Click(TObject *Sender)
{ StaticText1->Caption='0';
  accum=0;
  op=0;
  f=0;
}
//Operation
void __fastcall TForm1::DoOp(void)
{ float op2=StrToFloat(StaticText1->Caption);
  switch(op)
  { case 0 : accum = op2; break ;
    case 1 : accum += op2; break;
    case 2 : accum -= op2; break;
    case 3 : accum *= op2; break;
    case 4 : accum /= op2; break;
    case 5 : accum = sin(op2); break;
    case 6 : accum = cos(op2); break;
    case 7 : accum = sqrt(op2); break;
    case 8 : accum = op2*op2; break;
  }
  StaticText1->Caption = FloatToStrF(accum,ffGeneral,5,3);
}
//Button(+)
void __fastcall TForm1::BitBtn13Click(TObject *Sender)
{ if(f!=0)
  { DoOp();
    f=0;
  }
  op=1;
}
//Button(-)
void __fastcall TForm1::BitBtn14Click(TObject *Sender)
{ if(f!=0)
  { DoOp();
    f=0;
  }
  op=2;
}
//Ravno
void __fastcall TForm1::BitBtn15Click(TObject *Sender)
{ if(f!=0)
  { DoOp();
    f=0;
  }
  op=0;
}
//Button(*)

void __fastcall TForm1::BitBtn16Click(TObject *Sender)
{ if(f!=0)
  { DoOp();
    f=0;
  }
  op=3;
}
//Button(/)
void __fastcall TForm1::BitBtn17Click(TObject *Sender)
{ if(f!=0)
  { DoOp();
    f=0;
  }
  op=4;
}
//(-/+)--------------------------------------------------------------------------
void __fastcall TForm1::BitBtn18Click(TObject *Sender)
{ float c=StrToFloat(StaticText1->Caption);
  if(c>0)
  { c-=c*2;
    StaticText1->Caption = FloatToStrF(c,ffGeneral,5,3);
  }
  else
  { c+=c*(-2);
    StaticText1->Caption = FloatToStrF(c,ffGeneral,5,3);
  }
}
//Sin------------------------------------------------------------------------
void __fastcall TForm1::BitBtn19Click(TObject *Sender)
{ op=5;
  DoOp();
  f=0;
}
//Cos---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn20Click(TObject *Sender)
{ op=6;
  DoOp();
  f=0;
}
//Koren----------------------------------------------------------------------
void __fastcall TForm1::BitBtn22Click(TObject *Sender)
{ op=7;
  DoOp();
  f=0;
}
//Square---------------------------------------------------------------------

void __fastcall TForm1::BitBtn21Click(TObject *Sender)
{ op=8;
  DoOp();
  f=0;
}

Вот полностью код программы,не понимаю где нужно провести проверку делителя,чтобы он не был равен нулю.Помогите,подскажите
PM MAIL   Вверх
xvr
Дата 14.4.2009, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Я фигею, дорогая редакция  smile Нафигачить прогу в 200 строк и не смочь поставить один if в строке 132 - это что то
Код

    case 4 : if (op2==0) ShowMessage("На ноль делить нельзя!"); else accum /= op2; break;
PM MAIL   Вверх
JIuTEoH
Дата 14.4.2009, 12:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 9.4.2009

Репутация: нет
Всего: нет
Пробовал так,ни черта не выводит
PM MAIL   Вверх
xvr
Дата 14.4.2009, 12:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Цитата(JIuTEoH @ 14.4.2009,  12:11)
Пробовал так,ни черта не выводит

А что получается? Можно еще проверять не на 0, а на нечто маленькое
Код

case 4: if (fabs(op2)<1e-6) ShowMessage("На ноль делить нельзя!"); else accum /= op2; break;
PM MAIL   Вверх
JIuTEoH
Дата 14.4.2009, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 9.4.2009

Репутация: нет
Всего: нет
Не,чет ваще ни как,просто сообщение это не выводит
Ошибок нет
Значит так,ввожу я число,нажимаю на кнопку деления,затем наждимаю на ноль,все,больше ни чего не происходит,на равно если нажать,тоже ни чего
PM MAIL   Вверх
xvr
Дата 14.4.2009, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Значит деление тут не при чем - оно а вас ничем не отличается от остальных операций. Где то косяк с логикой работы программы. Посмотрите в отладчике, что присходит в DoOp при нажатиях / и =, и вызывается ли она вообще  smile 
PM MAIL   Вверх
Anikmar
Дата 15.4.2009, 08:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59
Цитата(xvr @  14.4.2009,  12:19 Найти цитируемый пост)
А что получается? Можно еще проверять не на 0, а на нечто маленькое

ИМХО
Не можно, а нужно. К float оператор == лучше не применять.
PM MAIL ICQ   Вверх
xvr
Дата 15.4.2009, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Цитата(Anikmar @ 15.4.2009,  08:40)
Цитата(xvr @  14.4.2009,  12:19 Найти цитируемый пост)
А что получается? Можно еще проверять не на 0, а на нечто маленькое

ИМХО
Не можно, а нужно. К float оператор == лучше не применять.

Вообще да, но в данном конкретном случае можно
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0525 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.