Язык Pascal в среде Delphi

[Olga]

Сделала

(открыть/скрыть)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  X1,X2,Y:Real;

  implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin   // нажатие на кнопку плюс
 X1 := StrToFloat(Edit1.Text);
 X2 := StrToFloat(Edit2.Text);
 Y  := X1 + X2;
 Label1.Caption := FloatToStr(Y);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 X1 := StrToFloat(Edit1.Text);
 X2 := StrToFloat(Edit2.Text);
 Y  := X2 - X1;
 Label1.Caption := FloatToStr(Y); // нажатие на кнопку минус

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 X1 := StrToFloat(Edit1.Text);
 X2 := StrToFloat(Edit2.Text);
 Y  := X1 * X2;
 Label1.Caption := FloatToStr(Y);   // нажатие на кнопку умножить

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 X1 := StrToFloat(Edit1.Text);
 X2 := StrToFloat(Edit2.Text);
 Y  := X2 / X1;
 Label1.Caption := FloatToStr(Y);   // нажатие на кнопку разделить

end;

procedure TForm1.Button5Click(Sender: TObject);
begin   // нажатие на кнопку очистки
 Edit1.Text := '';
 Edit2.Text := '';
 Label1.Caption := '';
end;

end.

[технарь]

Ок, получилось. Единственный нюанс в обработчике вычитания

Код: [Выделить]

Y  := X2 - X1;

Я думаю что нужно было из X1 вычитать X2, но это уже тонкости...

Так... никуда не уходите, щас новое задание дам, чуть усложним.... :smile:

[технарь]

Как думаете, сможете сделать как на картинке?
Если не знаете с чего начать - не стесняйтесь, сделаю подсказку. :smile:

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

[Olga]

Сделала

(открыть/скрыть)

procedure TForm1.Button1Click(Sender: TObject);
begin   // íàæàòèå íà êíîïêó ïëþñ
 X1 := StrToFloat(Edit1.Text);
 X2 := StrToFloat(Edit2.Text);
 Label1.Caption:=FloatToStr(X1)+'+'+FloatToStr(X2);
 Y  := X1 + X2;
 Label1.Caption:=Label1.Caption+'='+FloatToStr(Y);
end;

[технарь]

Замечательно!
Ну давайте теперь попробуем, как вы хотели.
Интерфейс чуть меняем - сдвигаем кнопку Сброс чуть левее, а рядом добавляем новую кнопку Равно.

[attach=1]

Теперь. Что хотим сделать?
До этого мы вводили первое число, потом вводили второе число и только потом нажимали кнопку действия, что и приводило к вычислениям. Такой режим не совсем обычен для обычных арифметических калькуляторов (он используется в калькуляторах программируемых), но мы пока особо ничего менять не будем. Сделаем просто, что бы вычисление можно было бы делать не одно, а несколько.

Для этого делаем так...
Набираем первое число, набираем второе число, нажимаем кнопку действия - вычисления производятся, но результат копируется в первое поле ввода, второе поле очищается, а в поле результата выводится сделанное действие. Сейчас попробую реализовать...

[технарь]

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

Код: [Выделить]

 X1 := StrToFloat(Edit1.Text);
 X2 := StrToFloat(Edit2.Text);
 Y  := X1 + X2;
 Edit1.Text := FloatToStr(Y);
 Edit2.Text := '';

А вот с выводом информации в поле результата дело обстоит чуть сложнее.
Фишка в том, что есть разница - это первое вычисление или это вычисление последующее. Нужно будет использовать команды условий.

[технарь]

Процедура для сложения должна выглядеть так

Код: [Выделить]

procedure TForm1.Button1Click(Sender: TObject);
begin   // нажатие на кнопку плюс
 X1 := StrToFloat(Edit1.Text);
 X2 := StrToFloat(Edit2.Text);
 Y  := X1 + X2;
 Edit1.Text := FloatToStr(Y);
 Edit2.Text := '';
 If (Label1.Caption = '') then
  begin
     Label1.Caption := FloatToStr(X1);
  end;
 Label1.Caption := Label1.Caption + '+' + FloatToStr(X2);
end;

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

Попробуйте сделать, что бы работали и остальные арифметические клавиши, а если сообразите, то и обработчик кнопки Равно сделайте. :smile:

[Olga]

Я вот такой калькулятор сделала

Вроде все работает.

[attach=1]

(открыть/скрыть)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  X1,X2,Y:Real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 X1:=StrToFloat(Edit1.Text);
 X2:=StrToFloat(Edit2.Text);
 Y:=X1+X2;
 Edit1.Text:=FloatToStrF((Y),ffFixed,9,5);
 Edit2.Text:=' ';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 X1:=StrToFloat(Edit1.Text);
 X2:=StrToFloat(Edit2.Text);
 Y:=X1-X2;
 Edit1.Text:=FloatToStrF((Y),ffFixed,9,5);
 Edit2.Text:=' ';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 X1:=StrToFloat(Edit1.Text);
 X2:=StrToFloat(Edit2.Text);
 Y:=X1*X2;
 Edit1.Text:=FloatToStrF((Y),ffFixed,9,5);
 Edit2.Text:=' ';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 X1:=StrToFloat(Edit1.Text);
 X2:=StrToFloat(Edit2.Text);
 Y:=X1/X2;
 Edit1.Text:=FloatToStrF((Y),ffFixed,9,5);
 Edit2.Text:=' ';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 Edit1.Text:=' ';
 Edit2.Text:=' ';
end;

end.
 

Добавить бы проценты,возведение в степень и извлечение квадратного корня и получилось бы вообще прекрасно  :good:

[технарь]

Вроде все работает.

Да, код посмотрел - особых ошибок вроде нет. Правда у себя запустить не могу - нужен весь ваш проект.

Добавить бы проценты,возведение в степень и извлечение квадратного корня и получилось бы вообще прекрасно

Делайте по аналогии. Добавляйте кнопки, прописывайте обработчики. Ничего особого...

[Olga]

Могу скинуть на мыло.Вот еще бы и иконку изменить,а я пока в этом профан,если ты поможешь.

[технарь]

Вот еще бы и иконку изменить

Ищите в свойствах формы

[attach=1]

[Olga]

Вот мой калькулятор.
Там иконку надо создавать, готовых нет.

[Olga]

А теперь предлагаю перейти ко второй лабе.

(открыть/скрыть)

Программирование арифметических выражений.

   
Содержание задания.
   Измените Заголовок формы с помощью свойства Caption.  Заголовок должен содержать группу, ФИО студента,  вариант задания.
 Например: ГР-12-2 Иванов М.И., вар.2 

   Изменить цвет формы и размер шрифта (произвольно).
   Вычислить в тетради значения выражений U и R. Записать в тетради заданные арифметические выражения A и B в соответствии с требования алгоритмического языка. Набор выражений и значения исходных данных определяются вариантами заданий, соответствующих порядковому номеру студента в списке журнала группы.
   Значения X и Y ввести произвольно.
   Вывести на форму  все заданные значения (константы).
   Вывести на форму значения U,R,A,B  с комментариями (U=…).
    A,B вывести: без формата, с плавающей точкой, с фиксированной
     точкой   ( точность три знака ).

Для выполнения данной лабораторной работы следует использовать
компоненты Button, Edit, Label .
5. U=32 - 11 div 3*4 ;    R=58 mod 7*5+4;       
где t = 17; z = 0.828   

[технарь]

Для выполнения данной лабораторной работы следует использовать
компоненты Button, Edit, Label

Да мы её уже выполнили в произвольной форме, не интересно... (((

[технарь]

В самом калькуляторе ещё море доработок можно сделать.
Например исключить вариант неверного ввода.

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