tutorials
/
tutorials
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add second Pascal program

This commit is contained in:
Timothy Warren 2021-09-17 10:04:36 -04:00
parent ee883decc3
commit 7dfaf19686
2 changed files with 48 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pascal/SumAverage.pas
View File

@ -17,13 +17,13 @@ begin
sum := num1 + num2 + num3 + num4 + num5;
mean := sum / NUM_COUNT;
writeln('Number of integers = ':25, NUM_COUNT);
writeln('Number1 = ':25, num1);
writeln('Number2 = ':25, num2);
writeln('Number3 = ':25, num3);
writeln('Number4 = ':25, num4);
writeln('Number5 = ':25, num5);
writeln('Sum = ':25, sum);
writeln('Average = ':25, mean);
writeln('Number of integers = ', NUM_COUNT);
writeln('Number1 = ', num1);
writeln('Number2 = ', num2);
writeln('Number3 = ', num3);
writeln('Number4 = ', num4);
writeln('Number5 = ', num5);
writeln('Sum = ', sum);
writeln('Average = ', mean);
end.

40
pascal/SumAverage2.pas Normal file
View File

@ -0,0 +1,40 @@
program SumAverage2;
const NUM_COUNT = 5;
var
num1, num2, num3, num4, num5 : integer;
sum : integer;
mean : real;
begin
writeln('Enter the first number:');
readln(num1);
writeln('Enter the second number:');
readln(num2);
writeln('Enter the third number:');
readln(num3);
writeln('Enter the fourth number:');
readln(num4);
writeln('Enter the fifth number:');
readln(num5);
sum := num1 + num2 + num3 + num4 + num5;
mean := sum / NUM_COUNT;
writeln();
writeln('Number of integers = ', NUM_COUNT);
writeln();
writeln('Number1:', num1:8);
writeln('Number2:', num2:8);
writeln('Number3:', num3:8);
writeln('Number4:', num4:8);
writeln('Number5:', num5:8);
writeln('================');
writeln('Sum:', sum:12);
writeln('Average:', mean:8);
end.