Showing posts with label sum and product of two numbers in turbo pascal. Show all posts
Showing posts with label sum and product of two numbers in turbo pascal. Show all posts

Friday, March 17, 2017

Sum and Product of Two Numbers in Turbo Pascal

In this article I would like to share with you a sample program that will ask the user to give two numbers and then our program will compute the sum and product of the two given numbers using Turbo Pascal for Windows as our compiler. The code uses function to return the computed value. I hope you will find my work useful. Thank you.

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

Program Square_Number;
Uses WinCrt;

var val_1,val_2, add,multiply  : integer;

Function sum(a,b : integer) : integer;
Begin
   sum := (a+b);
End;

Function product(a,b : integer) : integer;
Begin
   product := (a*b);
End;

Begin
clrscr;
 writeln('SUM AND PRODUCT OF TWO NUMBERS IN PASCAL');
 writeln;
 Write('Enter First Number : ');
 Readln(val_1);

 Write('Enter Second Number : ');
 Readln(val_2);
   
 add := sum(val_1,val_2);

 multiply := product(val_1,val_2);
  
 writeln;
 write('The sum of ',val_1, ' and ' ,val_2, ' is ' ,add,'.');
 writeln;
 write('The product of ',val_1, ' and ' ,val_2, ' is ' ,multiply,'.');
 writeln;
 writeln;
 writeln('  END OF PROGRAM  ');
readln;
End.