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

@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.

Вернуться к обсуждению:
Как написать калькулятор в DELPHI С ФУНКЦИЯМИ +,-,/,*. Delphi

Следующий ответ

Другие темы раздела
Delphi надо посчитать логарифм и напечатать его в текст-боксе https://www.cyberforum.ru/ delphi/ thread3547.html надо посчитать логарифм в напечатать его в текст-боксе все хорошо, считается, а когда присваиваю бокс значение результата - выдает Project faulted with message: 'access violation at 0x0040b565: write of address 0x00030f84' на сколько понял - ошибка записи вот только я не понимаю, что ее вызывает. вот код: begin i := 0; n := 1; arr := 0;	Задаче о рюкзаке Delphi Хочу сделать программу на Delphi "задачу о рюкзаке": из 7 предметов, для которых вес и стоимость задается рандомно(цена от 100 до 300, вес от 1 до 6), выбрать такие, чтобы суммарный вес был менее сумме всех весов деленных на два , а стоимость - наибольшей. Заранее большое большое спасибо!!! Егор
Delphi Считывание данных из файла https://www.cyberforum.ru/ delphi/ thread3507.html Всем привет. Очень нужна помощь! Сделал прогу на Delphi для добавления записей. Но ещё нужно, чтобы при запуске приложения можно было считать данные из файла. Как это реализовать, не получается. Помогите, очень нужно сегодня.	Delphi Где можно взять Borland Delphi https://www.cyberforum.ru/ delphi/ thread3481.html где можно скачать Borland Delphi
Delphi Реализация скобок в калькуляторе на Делфи Люди помогите, чем можете реализовать в делфи скобки для калькулятора. Заранее спасибочки!	Delphi Программирование в команде... https://www.cyberforum.ru/ delphi/ thread3325.html Народ, кто что думает по поводу создания команды? И дальнейшего совместного программирования (направление и прочие организационные вопросы - оставьте на потом, сейчас другой вопрос: ЕСТЬ ЛИ ЖЕЛАЮЩИЕ?)
Delphi перехват клавиш https://www.cyberforum.ru/ delphi/ thread3295.html я использую вот эту процедуру procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_Right then Form1.Caption := 'Right'; if Key = VK_LEFT then Form1.Caption := 'Left'; if Key = VK_DOWN then Form1.Caption := 'Down';	Delphi Как откомпилировать написанную программу? Народ прошу помогите!!!Я так уже зхадолбался сил нет ,скажите как мне откомпилировать написанную программу,там где я писал её ,там нет компилятора что мне делать, прошу помогите!!!
Delphi Как корректно сохранить из PAS в EXE? https://www.cyberforum.ru/ delphi/ thread3227.html Здарово!!! У меня такая проблема пишу прогу сохраняю ,сохраняется в PAS ,но она не открываеться как мне из зделать чтобы она открывалась,или перегнать её в EXE (сохраняю просто в ЕХЕ Не чего не происходит иногда просто пишет "проц.нашёл не допустимую инструкцию" Народ помогите позарез надо, и ещё я тут уже перекачал несколько компеляторов но какоето фуфло то не запускаеться ,то вообще какаято...	Delphi Нужна программа генерации паролей https://www.cyberforum.ru/ delphi/ thread3221.html Здравствуйте! Помогите - нужна прога, генерирующая пароли, ещё нужны проги запароливающие Word-овский документ и перебирающая пароли до необходимого. Спасибо.
Траблы с Random'ами и не только Delphi Люди, хэлп! Нужно мне для решения задачи два рандомных числа в пределах от 0 до MAX (переменной). Задаю так (отрывок процедуры): a := Random(round(max)); b := Random(round(max)); if (a = 0.0) or (b = 0.0) then break; if b>(log10(a)*log10(a)/a) then hit := hit + 1;Дело в том, что все числа ВСЕГДА выпадают одинаковые, и a и b. Что с этим делать? И еще проблема....	Delphi Как сохранить код чтобы программа запустилась? Народ тут и меня такая проблема, как мне зделать так чтобы моя написаная прога запускалась,я сохраняю и в com и в exe не хочет запускать ,иногда просто выходит ,а иногдапишет что процесор нашёл недопустимую инструкцию,и то прочие,помогите!!! И ещё незнаете где можно скачать хорошие учебники по delphi или pascal? https://www.cyberforum.ru/ delphi/ thread3214.html

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

	31.01.2008, 21:07

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

Решение