Исходные тексты программ.

unit Unit1;

 

interface

 

uses

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

Dialogs, StdCtrls, Menus;

 

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Button1: TButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Box1: TComboBox;

Box2: TComboBox;

Label5: TLabel;

Button2: TButton;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

GroupBox1: TGroupBox;

MainMenu1: TMainMenu;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

a,b,c,d,x1,x2:real;

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

c:=strtofloat(edit3.Text);

d:=sqr(b)-4*a*c;

if d<0 then

begin

label1.Caption:= 'Внимание! Данное уравнение не имеет решения(корней)! '+

floattostr(d)+' дискриминант меньше 0';

 

end;

if d>=0 then

begin

button2.Enabled:= true;

x1:=(-b-sqrt(d))/2*a;

x2:=(-b+sqrt(d))/2*a;

label1.Caption:= floattostr(x1) +' -первый корень '+ floattostr(x2)+' -второй корень '+ floattostr(d)+' -дискриминант';

end;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

label5.Caption:= 'Ваше уравнение: '+ edit1.Text + label6.Caption + box2.Text+

edit2.Text + label7.Caption + box1.Text+edit3.Text;

label8.Caption:= 'вычисляем дискриминант: ' +

'd= '+ edit2.Text+'^' + ' - '+

'4 *'+edit1.Text+' * '+edit3.Text +';'+ ' d= '+ floattostr(d) + ';'+

' вычислим корни: '+

'x1= '+ '(-'+edit2.Text+ ' - кв.к '+floattostr(d)+') /2 * '+edit1.Text +'; x1= '+

floattostr(x1) + ';'+

'x2= '+ '(-'+edit2.Text+ ' + кв.к '+floattostr(d)+') /2 * '+edit1.Text +'; x2= '+

floattostr(x2);

if d<0 then

begin

label5.Caption:= 'Ваше уравнение: '+ edit1.Text + label6.Caption + box2.Text+

edit2.Text + label7.Caption + box1.Text+edit3.Text;

label8.Caption:= 'НЕ ИМЕЕТ РЕШЕНИЯ! '

end;

end;

 

end.

 

Результаты выполнения.

В результате прохождения практики я изучил язык программирования Delphi. Изучил теоретические сведения, необходимые для реализации программы.

 

Список используемой литературы.

http://www.kraysi.ru/files_view_file13705-Button-Shop-416.html

http://progbook.net/delphi/

Нил Дж. Рубенкинг. Язык программирования Delphi для «чайников». Введение в Borland Delphi 2006 = Delphi for Dummies — М.: Диалектика, 2007. — 336 с.

Хавьер Пашеку. Программирование в Borland Delphi 2006 для профессионалов = Delphi for.NET Developer’s Guide — М.: Вильямс, 2006. — 944 с.

А. Н. Вальвачев, К. А. Сурков, Д. А. Сурков, Ю. М. Четырько. Программирование на языке Delphi. Учебное пособие — 2005