Как написать калькулятор в DELPHI С ФУНКЦИЯМИ +,-,/,*.

22.11.2007, 20:22. **Показов** 67934. **Ответов** 29

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

Помогите найти калькулятор!!!

@Lord_Voodoo · 22.11.2007, 20:34

да там и писать-то нечего

@LastSoul · 22.11.2007, 21:47

Сообщение от pokoi7

Помогите найти калькулятор!!!

c:/windows/system32/calc.exe

- может это поможет

зы: да и ваще, с подобными вопросами можно обращаться в поисковики =(
зыы: если есть вопросы(проблемы) при разработке калькулятора, то естественно обращайся на форум... но с таким вопрос имхо эта тема - флуд

@Lord_Voodoo · 23.11.2007, 09:48

Сообщение от LastSoul

c:/windows/system32/calc.exe

- может это поможет

зы: да и ваще, с подобными вопросами можно обращаться в поисковики =(
зыы: если есть вопросы(проблемы) при разработке калькулятора, то естественно обращайся на форум... но с таким вопрос имхо эта тема - флуд

абсолютно поддерживаю, если такая примитивная задача ставит в тупик, то зачем вообще ставать программером

@Dam · 31.01.2008, 21:07

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls,unit2, Menus;
 
type
  TForm1 = class(TForm)
 
    Panel1: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Panel2: TPanel;
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    A1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Panel3: TPanel;
    Label1: TLabel;
    procedure Button5Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
  mode:integer; 
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
  uses Unit3;
{$R *.dfm}
 
var
  i,p,r:real;
procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'1';
end;
 
procedure TForm1.Button12Click(Sender: TObject);
begin
i:=StrToFloat(Edit1.Text);
 mode:=2;  Edit1.Text:='';
 button2.Enabled:=true;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
case mode of
1:begin
p:=StrToFloat(Edit1.Text);
r:=i+p;   Edit1.Text:=FloatToStr(r);
    end;
2:begin
p:=StrToFloat(Edit1.Text);
r:=i-p;   Edit1.Text:=FloatToStr(r);
   end;
3:begin
p:=StrToFloat(Edit1.Text);
r:=i/p;  Edit1.Text:=FloatToStr(r);
end;
4:begin
 
p:=StrToFloat(Edit1.Text);
r:=i*p;  Edit1.Text:=FloatToStr(r);
button2.Enabled:=true;
 end;
 
 
  
          end;
      end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'0';
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'2';
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'3';
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'4';
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'5';
end;
 
procedure TForm1.Button11Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'6';
end;
 
procedure TForm1.Button13Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'7';
end;
 
procedure TForm1.Button14Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'8';
end;
 
procedure TForm1.Button15Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'9';
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
i:=StrToFloat(Edit1.Text);  mode:=3;  Edit1.Text:='';
button2.Enabled:=true;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
  i:=StrToFloat(Edit1.Text);  mode:=4;  Edit1.Text:='';
  button2.Enabled:=true;
end;
 
procedure TForm1.Button16Click(Sender: TObject);
begin
i:=StrToFloat(Edit1.Text);  mode:=1; Edit1.Text:='';
button2.Enabled:=true;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+',';
button2.Enabled:=false;
end;
 
procedure TForm1.Button17Click(Sender: TObject);
begin
edit1.Clear;
button2.Enabled:=true;
end;
 
procedure TForm1.Button18Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
edit1.Width:=265;
panel1.Width:=280;
panel2.Width:=280;
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
edit1.Width:=177;
panel1.Width:=200;
panel2.Width:=200;
end;
 
procedure TForm1.Button19Click(Sender: TObject);
begin
 i:=StrToFloat(Edit1.Text);
Edit1.Text:=FloatToStr(sin(i));
 
 
end;
 
procedure TForm1.Button20Click(Sender: TObject);
begin
 i:=StrToFloat(Edit1.Text);
Edit1.Text:=FloatToStr(cos(i));
 
end;
 
procedure TForm1.Button21Click(Sender: TObject);
begin
i:=StrToFloat(Edit1.Text);
Edit1.Text:=FloatToStr(i*i);
 
end;
 
procedure TForm1.Button22Click(Sender: TObject);
begin
i:=StrToFloat(Edit1.Text);
Edit1.Text:=FloatToStr(SQRT(i));
 
end;
 
procedure TForm1.Button25Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'3,1415926535897932384626433832795';
end;
 
procedure TForm1.Button24Click(Sender: TObject);
begin
 i:=StrToFloat(Edit1.Text);
Edit1.Text:=FloatToStr(ln(i));
end;
 
procedure TForm1.Button23Click(Sender: TObject);
begin
 i:=StrToFloat(Edit1.Text);
Edit1.Text:=FloatToStr (Sin(i) / Cos(i));
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
panel2.Caption:=datetimetostr (now);
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
edit1.Width:=177;
panel1.Width:=200;
panel2.Width:=200;
end;
 
procedure TForm1.N4Click(Sender: TObject);
begin
edit1.Width:=265;
panel1.Width:=280;
panel2.Width:=280;
end;
 
procedure TForm1.N1Click(Sender: TObject);
begin
Close
end;
 
procedure TForm1.Button26Click(Sender: TObject);
begin
label1.Caption:=edit1.Text;
panel3.Caption:='M';
end;
 
procedure TForm1.Button28Click(Sender: TObject);
begin
label1.Caption:='';
panel3.Caption:='';
end;
 
procedure TForm1.Button27Click(Sender: TObject);
begin
edit1.Text:=label1.Caption;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
aboutbox.Show
end;
 
procedure TForm1.N7Click(Sender: TObject);
begin
form3.Show
end;
 
end.

14.03.2009, 17:48

а как узнать как вы Button расположили по форме, это ведь можно разными способами сделать

@alexanderwdark · 14.03.2009, 20:06

см. вложение - пример полнофункционального инженерного кальтулятора на уровне windows calc

13.09.2009, 13:49

Помогите пожалуйста, я просмотрела очень много веб страниц по созданию калькуляторов, но не одина не описивает то, что бы все действия не стерались, а оставались на табло.
Может кто-то подскажет как это можно сделать?

@hkdkest · 07.04.2010, 23:29

Сообщение от Silyria

Помогите пожалуйста, я просмотрела очень много веб страниц по созданию калькуляторов, но не одина не описивает то, что бы все действия не стерались, а оставались на табло.
Может кто-то подскажет как это можно сделать?

ну видимо не нужно очищать табло

@Sweethome · 08.04.2010, 15:34

а подскажите пожалуйста, нам задали калькулятор сделать....ну ненормальный. в нем всего 2 функции: сложение и вычитание, но прикол в другом. в окне нужно писать типа "два плюс два", а калькулятор это должен распознать как "2+2" и выдать 4. подскажите пожалуйста

@kolxoznik1 · 09.04.2010, 14:20

Сообщение от Sweethome

а подскажите пожалуйста, нам задали калькулятор сделать....ну ненормальный. в нем всего 2 функции: сложение и вычитание, но прикол в другом. в окне нужно писать типа "два плюс два", а калькулятор это должен распознать как "2+2" и выдать 4. подскажите пожалуйста

Я вижу это так, сделать для вводимого поля разрешение для симболов 1,2,3,4,5,6,7,8,9,+,-,/,* а после все вводимые симболы распозновать их код в таблице и применаять соответствующие действия к ним, думаю не много условий должно получиться.

@dimafarafontov · 09.04.2010, 17:37

Тема бьёт все рекорды просмотров!
Сделай массив чтото типо
a[1]:='один'
a[2]:='два'
...
...
потом ищи эти слова в строке и по индексу узнавай значение
также и для операций можно
b[1]:='+'
b[2]:='-'
...
...

Добавлено через 2 минуты
можно val еще для первого числа использовать (эта функция преобразует до первого ошибочного символа) потом делать скидку на действие (+,- ...) и снова val

Добавлено через 2 минуты
блин тормажу это я для '2+2' описал ошибся

@getto371 · 09.04.2010, 23:25

вот свой выкладываю он точно подойдет)

@getto371 · 09.04.2010, 23:41

и да Dam ты походу переболщил там 2строчки написать надо формулы и все)

@Sweethome · 10.04.2010, 17:30

спасибо))))а вот если написано будет "двадцать два минус пятнадцать"? это ж какай длинный case получится...а покороче никак?

Добавлено через 2 часа 19 минут
и....это конечно маленькая наглость, но все же......я делфи видела 2 раза, поэтому пожалуйста, можно код проги?.......

@getto371 · 10.04.2010, 19:21

м...самое смешное что я видел делфи 1раз и учусь в 9классе так что я понулям просто сам ток начал делфи изучать=)

@getto371 · 10.04.2010, 19:25

Короче я видел делфи сам 1раз и я учусь в 9классе так что я ток начал его изучать так что код и все остальное я понулям ну вот кидаю тебе всю прогу так что сам смотри)

@getto371 · 11.04.2010, 12:14

Ой патсаны это не вам это друг заказывал недеюсь вы не против что я тут написал=)

@badjik89 · 15.09.2010, 11:01

всем привет...народ подмогните и мне тоже пожалуйста,калькулятор создал , но этого оказалось мало,надо чтоб вводил дробные числа и работал с ними....подскажите как прописать саму кнопку '.'(запятая)...

@Puporev · 15.09.2010, 11:40

Да также как и цифры.

pokoi7
		1
	Как написать калькулятор в DELPHI С ФУНКЦИЯМИ +,-,/,. 22.11.2007, 20:22. Показов* 67934. Ответов 29 Метки нет (Все метки) Помогите найти калькулятор!!!

@Lord_Voodoo Почетный модератор 8784 / 2537 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	22.11.2007, 20:34	2
	да там и писать-то нечего 0

@LastSoul 7 / 9 / 10 Регистрация: 22.08.2006 Сообщений: 378
	22.11.2007, 21:47	3
	Сообщение от pokoi7 Помогите найти калькулятор!!! c:/windows/system32/calc.exe - может это поможет зы: да и ваще, с подобными вопросами можно обращаться в поисковики =( зыы: если есть вопросы(проблемы) при разработке калькулятора, то естественно обращайся на форум... но с таким вопрос имхо эта тема - флуд 1

@Lord_Voodoo Почетный модератор 8784 / 2537 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	23.11.2007, 09:48	4
	Сообщение от LastSoul c:/windows/system32/calc.exe - может это поможет зы: да и ваще, с подобными вопросами можно обращаться в поисковики =( зыы: если есть вопросы(проблемы) при разработке калькулятора, то естественно обращайся на форум... но с таким вопрос имхо эта тема - флуд абсолютно поддерживаю, если такая примитивная задача ставит в тупик, то зачем вообще ставать программером 0

Гидаят
	14.03.2009, 17:48	6
	а как узнать как вы Button расположили по форме, это ведь можно разными способами сделать

Silyria
	13.09.2009, 13:49	8
	Помогите пожалуйста, я просмотрела очень много веб страниц по созданию калькуляторов, но не одина не описивает то, что бы все действия не стерались, а оставались на табло. Может кто-то подскажет как это можно сделать?

@hkdkest 6 / 6 / 0 Регистрация: 03.02.2009 Сообщений: 31
	07.04.2010, 23:29	9
	Сообщение от Silyria Помогите пожалуйста, я просмотрела очень много веб страниц по созданию калькуляторов, но не одина не описивает то, что бы все действия не стерались, а оставались на табло. Может кто-то подскажет как это можно сделать? ну видимо не нужно очищать табло 0

@Sweethome 0 / 0 / 0 Регистрация: 23.11.2015 Сообщений: 3
	08.04.2010, 15:34	10
	а подскажите пожалуйста, нам задали калькулятор сделать....ну ненормальный. в нем всего 2 функции: сложение и вычитание, но прикол в другом. в окне нужно писать типа "два плюс два", а калькулятор это должен распознать как "2+2" и выдать 4. подскажите пожалуйста 0

@kolxoznik1 5 / 5 / 1 Регистрация: 28.03.2010 Сообщений: 94
	09.04.2010, 14:20	11
	Сообщение от Sweethome а подскажите пожалуйста, нам задали калькулятор сделать....ну ненормальный. в нем всего 2 функции: сложение и вычитание, но прикол в другом. в окне нужно писать типа "два плюс два", а калькулятор это должен распознать как "2+2" и выдать 4. подскажите пожалуйста Я вижу это так, сделать для вводимого поля разрешение для симболов 1,2,3,4,5,6,7,8,9,+,-,/,* а после все вводимые симболы распозновать их код в таблице и применаять соответствующие действия к ним, думаю не много условий должно получиться. 0

@dimafarafontov 2 / 1 / 0 Регистрация: 06.02.2010 Сообщений: 20
	09.04.2010, 17:37	12
	Тема бьёт все рекорды просмотров! Сделай массив чтото типо a[1]:='один' a[2]:='два' ... ... потом ищи эти слова в строке и по индексу узнавай значение также и для операций можно b[1]:='+' b[2]:='-' ... ... Добавлено через 2 минуты можно val еще для первого числа использовать (эта функция преобразует до первого ошибочного символа) потом делать скидку на действие (+,- ...) и снова val Добавлено через 2 минуты блин тормажу это я для '2+2' описал ошибся 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	15.09.2010, 11:40	20
	Да также как и цифры. 0

	15.09.2010, 11:40

@getto371 6 / 6 / 0 Регистрация: 22.03.2010 Сообщений: 36
	09.04.2010, 23:41	14
	и да Dam ты походу переболщил там 2строчки написать надо формулы и все) 0

@Sweethome 0 / 0 / 0 Регистрация: 23.11.2015 Сообщений: 3
	10.04.2010, 17:30	15
	спасибо))))а вот если написано будет "двадцать два минус пятнадцать"? это ж какай длинный case получится...а покороче никак? Добавлено через 2 часа 19 минут и....это конечно маленькая наглость, но все же......я делфи видела 2 раза, поэтому пожалуйста, можно код проги?....... 0

@getto371 6 / 6 / 0 Регистрация: 22.03.2010 Сообщений: 36
	10.04.2010, 19:21	16
	м...самое смешное что я видел делфи 1раз и учусь в 9классе так что я понулям просто сам ток начал делфи изучать=) 0

@getto371 6 / 6 / 0 Регистрация: 22.03.2010 Сообщений: 36
	11.04.2010, 12:14	18
	Ой патсаны это не вам это друг заказывал недеюсь вы не против что я тут написал=) 1

@badjik89 1 / 1 / 0 Регистрация: 01.05.2010 Сообщений: 24
	15.09.2010, 11:01	19
	всем привет...народ подмогните и мне тоже пожалуйста,калькулятор создал , но этого оказалось мало,надо чтоб вводил дробные числа и работал с ними....подскажите как прописать саму кнопку '.'(запятая)... 0

Как написать калькулятор в DELPHI С ФУНКЦИЯМИ +,-,/,*.

Решение