How can I write a Pascal program that computes and displays a cumulative sum of integers from 1 to 100?

Answer 1

Here is a program that calculates the sum of the first N integers; SImply input 100 when prompted...

Program SumFirstNIntegers (input,output)

{*********************************************************}

Function SumFirstNInteger ( N : integer) : longint

var iLoop : integer;

var SumReturn : longint;

Begin

SumReturn:=0;

For iLoop:= 1 to N do

SumReturn := SumReturn + iLoop;

if (sumReturn= ( N * (N+1)/2)) then

SumFirstNInteger:=SumReturn

else begin

SumFirstNInteger:=-1;

writeln(' Calcualtion Fails ');

end;

end;

{**********************************************************}

VAR

N : integer;

BEGIN

{* uncomment this for input *}

repeat

write(' Please input N :>');

readln(N);

until (N>0);

{* comment this out if using input *}

N:=100;

writeln(SumFirstNInteger(N));

END.