Wednesday, May 23, 2018

Sum of Five Numbers in Turbo Pascal

In this article I would like to share with you a simple program that will ask the user to give five numbers and the  our program will compute the sum of the five number being provided by our user. I am using Turbo Pascal for Windows in writing this program.

I am currently accepting programming work, it project, school 

programming projects , thesis and capstone projects, IT consulting 

work and web development work kindly contact me in the following email address for further details.  If you want to advertise in my website kindly contact me also in my email address also. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.




Sample Program Output


Program Listing

sum.pas

(* Written By: Mr. Jake R. Pomperada *)
(* May 22, 2018                      *)
(* Product of Bacolod City, Negros Occidental Philippines *)

Program SumofFive;
Uses WinCrt;

Var
  a,b,c,d,e,sum : Integer;


Begin
  Write('Sum of Five Numbers in Turbo Pascal');
  Writeln;
  Writeln;
  Write('Written By Mr. Jake R. Pomperada, MAED-IT');
  Writeln;
  Writeln;
  Write('Give Five Numbers : ');
  Readln(a,b,c,d,e);
  Writeln;
  Writeln;
  sum := (a+b+c+d+e);
  Writeln('The sum of five numbers is ',sum,'.');
  Writeln;
  Writeln('End of Program');
  Writeln;
  Readln;
End.

No comments:

Post a Comment