Методы программирования Знакомство с DELPHI. Методы программирования. Создать приложение с двумя кнопками операция и выход,по нажатию на выход происходит закрытие приложения

• Название: Создать приложение с двумя кнопками операция и выход,по нажатию на выход происходит закрытие приложения
• Анкор: Методы программирования Знакомство с DELPHI
• Дата: 04.11.2020
• Размер: 174.07 Kb.
• Имя файла: Методы программирования.docx
• Тип: Документы; #147992

Пример № 1

Создать приложение с двумя кнопками : операция и выход ,по нажатию на выход происходит закрытие приложения .



Код программы :

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.

Пример № 2

Создать приложение с двумя кнопками и элементом для ввода в текста. Кнопки :операция и выход ,по нажатию на закрыть происходит закрытие приложения ,по нажатию на операция происходит чтение текста из элемента для ввода и происходит запись в текстовый файл .



После ввода текста и нажатия на кнопку операция происходит создание файла и запись в него :





Код программы :

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

F: TextFile;

S: String;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

S:=Edit1.text;

Edit1.Text:='';

end;

INITIALIZATION

AssignFile(F,'File1.txt');

Rewrite(F);

FINALIZATION

Writeln(F,S); CloseFile(F);

end.

Пример № 3

Подготовить форму “Пример 3” и тексты обработчиков для программы вычис-ления расстояния между двумя точками на плоскости по их координатам X1, Y1 и X2, Y2.







Код программы :

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,math;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label3: TLabel;

Label2: TLabel;

Label4: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Label5: TLabel;

Label6: TLabel;

Edit4: TEdit;

Button1: TButton;

Button2: TButton;

Label7: TLabel;

Label8: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

result:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

result:= sqrt(

IntPower(

StrToInt(Edit3.Text)- StrToInt(Edit1.Text),2)+

IntPower(

StrToInt(Edit4.Text)- StrToInt(Edit2.Text),2)) ;

label8.Caption:=floatToStrF(result,ffGeneral,8,1);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.

Пример № 4

Подготовить форму “Пример4” и тексты обработчиков событий для програм-мы вычисления корней квадратного уравнения y=ax2 + bx + c.

Ввод исходных данных a, b, c и вывод результатов x1, x2 осуществить аналогич-но предыдущему примеру.

Выполнить компиляцию, отладку (при необходимости) и запуск программы на выполнение.







Код программы :

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,Math;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Label4: TLabel;

Label5: TLabel;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

var x1,x2:real;

begin

x1:= (-StrToInt(Edit2.Text)-

sqrt(IntPower(StrToInt(Edit2.Text),2)

-4*StrToInt(Edit1.Text)*StrToInt(Edit3.Text))

)

/(2*StrToInt(Edit1.Text));

x2:= (-StrToInt(Edit2.Text)+

sqrt(IntPower(StrToInt(Edit2.Text),2)

-4*StrToInt(Edit1.Text)*StrToInt(Edit3.Text))

)

/(2*StrToInt(Edit1.Text));

label4.Caption:=label4.Caption+floatToStrF(x1,ffGeneral,8,1);

label5.Caption:=label5.Caption+floatToStrF(x2,ffGeneral,8,1);

end;

end.