Add second Pascal program
This commit is contained in:
parent
ee883decc3
commit
7dfaf19686
@ -17,13 +17,13 @@ begin
|
|||||||
sum := num1 + num2 + num3 + num4 + num5;
|
sum := num1 + num2 + num3 + num4 + num5;
|
||||||
mean := sum / NUM_COUNT;
|
mean := sum / NUM_COUNT;
|
||||||
|
|
||||||
writeln('Number of integers = ':25, NUM_COUNT);
|
writeln('Number of integers = ', NUM_COUNT);
|
||||||
writeln('Number1 = ':25, num1);
|
writeln('Number1 = ', num1);
|
||||||
writeln('Number2 = ':25, num2);
|
writeln('Number2 = ', num2);
|
||||||
writeln('Number3 = ':25, num3);
|
writeln('Number3 = ', num3);
|
||||||
writeln('Number4 = ':25, num4);
|
writeln('Number4 = ', num4);
|
||||||
writeln('Number5 = ':25, num5);
|
writeln('Number5 = ', num5);
|
||||||
writeln('Sum = ':25, sum);
|
writeln('Sum = ', sum);
|
||||||
writeln('Average = ':25, mean);
|
writeln('Average = ', mean);
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
40
pascal/SumAverage2.pas
Normal file
40
pascal/SumAverage2.pas
Normal 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.
|
Loading…
Reference in New Issue
Block a user