3.28.2013 How to add two numbers

Okey. Adding is not the first thing you did. But teaching a computer how to add two numbers is something worth learning.


Simple program


We start by a simple command line program. It will ask for two numbers and then add the numbers and show the result.

Create a new project: Project->New Project->Application->OK. Copy-paste the following code into appropriate part:
var
  num1, num2: Integer;
begin
  // A simple program for adding two numbers.

  WriteLn('This program will add two numbers');
  WriteLn();

  WriteLn('Enter the first number:');
  ReadLn(num1);

  WriteLn('Enter the second number');
  ReadLn(num2);

  WriteLn('The result is: ', num1 + num2);

  WriteLn('Press ENTER to end.');
  ReadLn();
end.


Now press F9 to run the program. Test it with as many numbers as you like, for as many times. Hey, that's a good thing about computers - they never get tired!

But try a number with decimals. For example: 2.5 or 10.6. And you will get an error like this:


Enhancing the program


This error occurred because we have defined our two variables num1 and num2 as integers. And integers cannot hold any number greater than 2147483647 or less than -2147483648. No decimal place is allowed. See this reference wiki. So we will use the type double which can hold numbers with decimal point. We will solve the problem by slightly changing the code.

Change the line "num1, num2: Integer;" with "num1, num2: Double;". Now run the program. Test it.

The graphical interface

Well, there are many people out there who like the glitz and glamor of a graphical interface. Me too. If you test things yourself, a command line program is enough. If you want to give it to your friend you will have to a GUI (Graphical User Interface). Let's make that:

Create a new project. Project->New Project->Application->OK.
Click the TEdit control button on toolbar and click and drag in the form to create a TEdit control. Change the property text to blank. Right click the TEdit and click Copy. Then right click on the form and select paste. Create a TButton. Change its caption to "Add!" You may change the name properties of the Teditboxes and the Tbutton. But I will leave it to you. The summary of the properties are below:

Edit1
  Text = (Delete the value)
Edit2
  Text = (Delete the value)
Edit3
  Text = (Delete the value)
Button1
  Caption = "Add!"

Coding

Double click the button and enter the following code:

var
  num1, num2: double;
begin
  num1 := StrToFloat(Edit1.Text);
  num2 := StrToFloat(Edit2.Text);
  Edit3.Text := FloatToStr(num1+num2);
end;


Now Run it. Then test it with the decimal place numbers or whatever.

Now you have it! your very own adding machine! Add your modifications to the form design to make it perfect.

Here is an explanation of the code:

We use StrToFloat to convert our Editbox text to double. If we did not convert the string (TEdit.Text) to Double then we could not sum them up (num1 + num2). We cannot sum strings! That's why the conversion.

Then again we cannot assign a double value to a string/TCaption (Tedit.Text). So we need to convert the numerical result to a string through FloatToStr() function. That's why Edit3.Text := FloatToStr(num1+num2);

Download Sample Zip

Download source code here: http://db.tt/QamzMLhC
or http://drive.google.com/uc?export=download&id=0B9WrDtlrEzlSY2JmZGkzaERDTkk

It includes compiled executable file (exe).

0 comments:

 
Copyright 2013 LazPlanet
Carbon 12 Blogger template by Blogger Bits. Supported by Bloggermint