From Chris Muyna@21:1/5 to All on Tue Sep 24 01:27:32 2019
1. Write a program called Sum and Average to produce the sum of 1,2,3,...
to an upper bound (e.g 100). Also compute and display the average.

the sum is 5050
the average is 50.5

anyone can me a scrip about that question? PASCUL TURBO

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)
• From David Snowdon@21:1/5 to Chris Muyna on Wed Sep 25 09:28:32 2019
Below is code that will perform the task you have specified:

+++++++++++++++++++++++++++++

PROGRAM Successive_Sum;

Uses Crt;

Var sum, value, tmp : INTEGER;
avg : SINGLE;

BEGIN
ClrScr;
Writeln('Program to find the sum of 0, 1, 2, 3, ...');
Writeln;
Write('Enter stop value ');
Writeln;

sum := 0;
For tmp := 0 to value Do
sum := sum + tmp;

Writeln('The sum from 0 to ', value, ' is ', sum);
avg := sum/value;
Writeln('The mean average is ', avg:3:2);
Writeln;
END.

+++++++++++++++++++++++++++++

PDF book:

"The Turbo Pascal Tutor" 2nd Edition (1986) https://archive.org/details/bitsavers_borlandturersion2.01986_16488828

You might also download the manuals for the version of Turbo Pascal you
are using, specifically:

the Users Guide,
Language Guide, and
Programmers Guide

- which can also be found at www.archive.org/

David

---
Chris Muyna wrote:
1. Write a program called Sum and Average to produce the sum of 1,2,3,...
to an upper bound (e.g 100). Also compute and display the average.

the sum is 5050
the average is 50.5

anyone can me a scrip about that question? PASCUL TURBO

---
This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)