калькулятор на языке с

[Krawzow]

помогите пожалуйста написать программу калькулятор на языке с:
плюс, минус, умножить, разделить, модуло (остаток от деления)

[marsela]

У меня задание было такое:
4. «Калькулятор» (см. «Пуск»-«Все программы»-«Стандартные»-«Калькулятор» )
Разработать приложение, реализующее калькулятор.
Основные функции:
1. Калькулятор должен выполнять основные арифметические функции над целыми и вещественными функциями
2. Удаление одного символа на табло (BackSpace)
3. Взятие числа с противоположным знаком
4. Поддержка расширенного режима, т.е. увеличение поля и появления дополнительных кнопок
5. Поддержка ввода как с клавиатуры, так и «мышкой»
6. Ведение истории, т.е. списка значений (ListBox) результатов всех операций.
7. Очистка истории
8. Функция «Drag & Drop», позволяющая перетащить число из истории на табло

Требование к коду:
Цифровые кнопки должны иметь один и тот же обработчик события.
И последнее:
Любые действия пользователя с клавиатурой и мышкой не должны приводить к краху программы.

код такой:

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString kn="0";
int zr=0;
double a=0;
bool eu=true;
int n=0;
bool k=true;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::LB1DragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
  Accept=((Source==LB1)&&(LB1->ItemIndex>=0));  // Источник
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ST1DragDrop(TObject *Sender,
      TObject *Source, int X, int Y)
{ SpeedButton1->Enabled=true;
ST1->Caption=LB1->Items->Strings[LB1->ItemIndex];
}
//---------------------------------------------------------------------------
void deistvie(void)
 { try
      { if (kn=="/")
          if (StrToFloat(Form1->ST1->Caption)!=0)
           a=a/StrToFloat(Form1->ST1->Caption);
          else {ShowMessage("Деление на 0");
               kn=0;
               a=0;}
        if (kn=="*") a=a*StrToFloat(Form1->ST1->Caption);
        if (kn=="-") a=a-StrToFloat(Form1->ST1->Caption);
        if (kn=="+") a=a+StrToFloat(Form1->ST1->Caption);
        if (kn=="0") a=StrToFloat(Form1->ST1->Caption);
        Form1->ST1->Caption=FloatToStr(a);

          if (kn!="0") Form1->LB1->Items->Add(Form1->ST1->Caption);
        if (Form1->LB1->Count>15) Form1->LB1->Items->Delete(0);
      }
    catch(...)
      {ShowMessage("Слишком большое значение!");
      }
  }

[MaTBeu]

Вот есть прога у меня готовая. Когда-то делал. Вроде не вылетает. Пользуйся на здоровье

[Cricket2007]

Могу выложить вариант своего консольного калькулятора exe файлом нужен?

[Ramzes14-08]

помогите пожалуйста написать программу калькулятор на языке Delphi: только с использыванием квадратного корня, кубического корня, синуса и косинуса (без стандартных действий: + - * /)! Просто у меня препод зверь, требует много, а учит малому!
Буду очень благодарен!