!************************************** ! Name: Square Root Solver in Delphi ! Description:Here is a simple program that I wrote in Delphi that will ask the user to give a number and then our program will convert the given number by the user into its square root equivalent. Add me at Facebook my addressis jakerpomperada@gmail.com and jakerpomperada@yahoo.com. My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com. My mobile number here in the Philippines is 09173084360. ! By: Jake R. Pomperada ! ! ! Inputs:None ! ! Returns:None ! !Assumes:None ! !Side Effects:None !************************************** unit squareroot; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Label5: TLabel; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} Var value : real; procedure TForm1.Button1Click(Sender: TObject); begin value:=sqrt(strtoint(Edit1.text)); label5.caption := 'The Square Root Equivalent of ' + Edit1.text + ' is ' + FloatToStr(value) + '.'; end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.text :=''; label5.caption := ''; edit1.setfocus; end; end.