Showing posts with label summation of values in pascal. Show all posts
Showing posts with label summation of values in pascal. Show all posts

Sunday, March 19, 2017

Total Sum of Values in Turbo Pascal

Here is a sample program using one dimensional array to ask the user to give five numbers and then our program will compute the total sum of the five numbers being given by our user. I am using Turbo Pascal for Windows as my Pascal compiler in this sample program.

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

{Written By: Mr. Jake R. Pomperada, MAED-IT }
{Date : March 19, 2017    Sunday            }
{Metro Manila, Philippines                  }
{jakerpomperada@yahoo.com and jakerpomperada@gmail.com }

Program One_Dimensional;
Uses WinCrt;

Type

List_Array = Array[1..5] of Integer;

var val : List_Array;

    b,sum   : Integer;

Begin
clrscr;
 writeln('TOTAL SUM OF VALUES IN PASCAL');
 writeln;
 for b := 1 to 5 Do
  Begin
     Write('Give value in item no. ' ,b, ' : ');
     Readln(val[b]);
  End;
 Writeln;
 Write('List of Given Values');
 Writeln;
 Writeln;
   for b := 1 to 5 Do
  Begin
    Write(' ',val[b],' ');
    sum := sum + val[b];
  End;
 writeln;
 writeln;
 write('The total sum of values is ' ,sum,'.');
 writeln;
 Writeln;
 writeln('  END OF PROGRAM  ');
readln;
End.