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

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


НазваниеWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms
Размер2.01 Kb.
ТипДокументы

unit Unit2;


interface


uses

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

Dialogs, StdCtrls, Buttons;


type

TForm2 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

BitBtn1: TBitBtn;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form2: TForm2;


implementation


{$R *.dfm}


procedure TForm2.Button1Click(Sender: TObject);

var a,b,c:real;

d,x1,x2:real;

s1,s2:string[6];code:integer;

begin

val(edit1.text,a,code);

val(edit2.text,b,code);

val(edit3.text,c,code);

d:=b*b-4*a*c;

if d<0 then label5.Caption:='Корней нет';

if d=0 then

begin

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

str(x1:6:2,s1);

label5.Caption:='Корень уравнения:'+chr(10)+'x1='+s1;

end;

if d>0 then

begin

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

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

str(x1:6:2,s1);

str(x2:6:2,s2);

label5.Caption:='Корни уравнения:'+chr(10)+'x1='+s1+chr(10)+'x2='+s2;

end;

end;


procedure TForm2.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';label5.Caption:='';

edit1.Setfocus;

end;


end.

Похожие:

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

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

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

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

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconОперационные системы WINDOWS 95 и WINDOWS 98
Концепция, заложенная в основу Windows 95, полностью сохранена в Windows 98. Графический интерфейс также изменился незначительно....
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconWindows 7 Windows 7
Сервер коллегой Windows 7,Windows Server 2008 R2, была выпущена в то же время. Windows 7 сменяется Windows 8, которая была выпущена...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconУказатель на структуру типа wsadata, в которую будут записаны сведения о конкретной реализации интерфейса Windows Sockets. В случае успеха функция
В процессе инициализации приложение должно зарегистрировать себя в библиотеке wsock32. Dll, которая предоставляет приложениям интерфейс...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconПримерный перечень вопросов для зачета по Операционным системам
Основы работы в Windows; работа с мышью; клавиатура; элементы интерфейса; Windows; завершение работы с Windows; перетаскивание и...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconУстановка Windows 7 на нетбуке с помощью флэш-накопителя usb при наличии установочного диска Windows 7
...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconAvon predstavitel в списке найденных контактов выберите: Полное имя
Если Вы устанавливаете Skype для Windows, то для работы Skype на Вашем компьютере должна быть установлена операционная система Windows...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms iconИнструкция пПрошивка телефона, с помощью Flashtool
Драйвера (пользователям Windows 7 x64 нужно перед установкой драйверов выставить в свойствах файла совместимость с Windows Vista...
Вы можете разместить ссылку на наш сайт:
Документы


При копировании материала укажите ссылку ©ignorik.ru 2015

контакты
Документы