Showing posts with label square root in delphi. Show all posts
Showing posts with label square root in delphi. Show all posts

Saturday, October 8, 2016

Square Root Solver in Delphi

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.





Sample Program Output


Program Listing

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.