Transcript บทที่ 4: ภาษาปาสคาล แบบเลือก

บทที่ 4 (ส่ วนที่ 2)
การเขียนโปรแกรมภาษาปาสคาลโดยใช้ คาสั่ งควบคุม
(Control Statements)
แบบเลือก (Selection) : if-else, case
แบบทาซ้า (Loop) : while , repeat, for
204101 Introduction to Computer
1
if-then
if condition then statement;
if condition then
No
Yes
begin {compound st.}
condition
statement1;
statement2;
statement(s)
statement3;
…
end;
ิ ใจว่าต้องการให้ทางาน
condition เงือ
่ นไขในการต ัดสน
หรือไม่ ถ้าเงือ
่ นไขเป็นจริง (True) จึงจะทางาน
statement คาสง่ ั ทีต
่ อ
้ งการให้ทางานในกรณีทเี่ งือ
่ นไขเป็นจริง
ถ้า statement มีหลายคาสง่ ั ต้องอยูภ
่ ายใน begin และ end;
204101 Introduction to Computer
2
ตัวอย่ าง 1.1
จงเขียนโปรแกรมในการรับตัวอักษร 1 ตัว จากผู้ใช้ ถ้ าตัวอักษรทีร่ ับมา
เป็ น C ให้ แสดงข้ อความว่ า Cat
START
Read A
No
A =‘C’
Yes
write 'Cat'
STOP
204101 Introduction to Computer
program Cat;
uses WinCrt;
var A : char;
begin
write('Input character : ');
readln(A);
if A = ‘C' then writeln('Cat');
end.
Input Character: C 
Cat
-
3
ตัวอย่ าง 1.1 (ต่ อ)
program Cat;
uses WinCrt;
var A : char;
begin
write('Input character : ');
readln(A);
if A = ‘C' then
writeln(‘I love cat.');
end.
204101 Introduction to Computer
ตัวอย่ างผลลัพธ์
การทางานของโปรแกรม
Input Character: C 
I love cat.
Input Character: G 
Input Character: c 
4
ตัวอย่ าง 1.2
จงเขียนโปรแกรมในการรับตัวอักษร 1 ตัว จากผู้ใช้ ถ้าตัวอักษรที่รับมาเป็ น C
ให้ แสดงข้ อความว่า Cat และ I love cat. โดยแสดงข้ อความละ 1 บรรทัด
program Cat2;
uses WinCrt;
ต ัวอย่างผลล ัพธ์การทางานของโปรแกรม
var A : char;
Input Character: C 
begin
Cat
write('Input character: ');
I love cat.
readln(A);
if A = ‘C' then
Input Character: G 
begin
writeln('Cat');
writeln('I love cat.');
Input Character: c 
end;
end.
_
ั
สงเกตว่
ามีหลายคาสง่ ั ต้องใส ่ begin end;
204101 Introduction to Computer
5
ตัวอย่ าง 1.3
จงเขียนโปรแกรมในการรับตัวอักษร 1 ตัว จากผู้ใช้ ถ้าตัวอักษรที่รับมาเป็ น c
หรือ C ให้ แสดงข้ อความว่ า Cat และ I love cat โดยแสดงข้ อความละ 1บรรทัด
program Cat3;
uses WinCrt;
ต ัวอย่างผลล ัพธ์การทางานของโปรแกรม
var A : char;
Input Character: C 
begin
Cat
write('Input character: ');
I love cat.
readln(A);
if (A = 'c') or (A = 'C') then
Input Character: G 
begin
writeln('Cat');
Input Character: c 
writeln('I love cat.');
Cat
end;
I love cat.
end.
204101 Introduction to Computer
6
if-then-else
if condition then
begin {A}
statement1;
statement2;
…
end
else
Begin {B}
statement1;
statement2;
…
end;
No
statementB(s)
condition
Yes
statementA(s)
มีหลายคาสง่ ั ต้องอยูภ
่ ายใน begin และ end;
ระว ัง! ก่อนหน้า else ไม่ตอ
้ งใสเ่ ครือ
่ งหมาย ;
if condition then statement
else statement;
204101 Introduction to Computer
7
ตัวอย่ าง 1.4
จงเขียนโปรแกรมในการรับตัวอักษร 1 ตัว จากผู้ใช้ ถ้าตัวอักษรทีร่ ับมาเป็ น c หรือ
C ให้ แสดงข้ อความว่า Cat และ I love cat โดยแสดงข้ อความละ 1 บรรทัด แต่ ถ้า
ตัวอักษรทีร่ ับมาไม่ ใช่ c หรือ C ให้ แสดงข้ อความว่ า Pet
program Cat4;
Input Character: C 
uses WinCrt;
Cat
var A : char;
I love cat.
begin
write('Input character: ');readln(A);
if (A = 'c') or (A = 'C') then
Input Character: G 
begin
Pet
writeln('Cat');
writeln('I love cat.');
Input Character: c 
end
Cat
ั
สงเกตว่
าก่อนหน้า else
else
I love cat.
ไม่ตอ
้ งใสเ่ ครือ
่ งหมาย ;
writeln('Pet');
end.
204101 Introduction to Computer
8
ตัวอย่ าง 2
จงเขียนโปรแกรมในการรับค่ าตัวแปรสองตัวจาก
ผู้ใช้ แล้ วแสดงค่ าตัวแปรทีม่ คี ่ ามากสุ ด
วิเคราะห์
ผลลัพธ์ คือ ตัวแปรทีม่ คี ่ ามากสุ ด กาหนดให้ เป็ น Max
ข้ อมูลเข้ า คือ ตัวแปรสองตัว กาหนดให้ เป็ น A และ B
การประมวลผลคือการเปรียบเทียบค่ าตัวแปรหาค่ ามากสุ ด
204101 Introduction to Computer
9
ตัวอย่ าง 2 (ต่ อ)
START
Read A,B
No
Yes
A>B
Max = B
Max = A
write Max
STOP
ต ัวอย่างผลล ัพธ์
Input A: -2 
Input B: 6 
Max = 6.00000
204101 Introduction to Computer
ั
สงเกตว่
า
program Maximum;
ก่อนหน้า else
uses WinCrt;
ไม่ตอ
้ งใส ่
var A, B, Max : real;
เครือ
่ งหมาย ;
begin
write('Input A: ');
readln(A);
write('Input B: ');
readln(B);
if A>B then
Max := A
else
Max := B;
writeln('Max = ', Max:1:5);
end.
10
if-then-else แบบ if_ซ้ อน_if
if condition1 then
yes
no
begin
condition1
statement1;
no
yes
statement2;
condition2
end
no
yes
else
statement3
condition3
if condition2 then
statement3
statement4
else
statement1
statement6
if condition3 then
statement5
begin
statement2
statement4;
statement5;
end
else
statement6;
กรณีท ี่ statement มีหลายคาสง่ ั ต้องอยูภ
่ ายใต้ begin และ end;
และทุก ๆ คาสง่ ั ในนนต้
ั้ องลงท้ายด้วยเครือ
่ งหมาย ;
204101 Introduction to Computer
11
ตัวอย่ าง 3
จงเขียนโปรแกรมในการรับค่ าอายุของผู้ป่วยแล้ วให้ แสดงข้ อความ
บอกถึงจานวนยาที่ต้องรับประทาน ดังนี้
อายุมากกว่ า 15 ปี
รับประทานยา 2 เม็ด
อายุมากกว่ า 5 ปี ถึง 15 ปี รับประทานยา 1 เม็ด
อายุแรกเกิดถึง 5 ปี
ห้ ามรับประทาน START
READ Age
no
no
Age > 5
DISPLAY
“Do not take”
204101 Introduction to Computer
Age > 15
yes
yes
DISPLAY
“Take 2 tablets”
DISPLAY
“Take 1 tablet”
STOP
12
ตัวอย่ าง 3(ต่ อ)
program Drug;
uses WinCrt;
var Age : integer;
START
READ Age
no Age > 15 yes
DISPLAY
no
yes
Age > 5
“Take 2 tablets”
DISPLAY
DISPLAY
“Do not take”
“Take 1 tablet”
begin
write('Input Age: ');
readln(Age);
STOP
if Age > 15 then writeln('2 Tablets')
else if Age > 5 then writeln('1 Tablet')
Input Age: 8 
else writeln('0 Tablet');
1 Tablet
end.
Input Age: 5 
ต ัวอย่างผลล ัพธ์การทางานของโปรแกรม
0 Tablet
204101 Introduction to Computer
13
ตัวอย่ าง 4
จงเขียนโปรแกรมในการรับเพศและอายุแล้ วแสดงข้ อความ ดังนี้
เพศชาย อายุ 1-15 ให้ แสดงข้ อความว่ า Boy
เพศชาย อายุ > 15 ให้ แสดงข้ อความว่ า Man
เพศหญิง อายุ 1-15 ให้ แสดงข้ อความว่ า Girl
เพศหญิง อายุ > 15 ให้ แสดงข้ อความว่ า Woman
กาหนดการใส่ ข้อมูลเพศจากผู้ใช้ โดย M แทน เพศชาย และ W แทน เพศหญิง
M
W
204101 Introduction to Computer
1 - 15
Boy
> 15
Man
1 - 15
Girl
> 15
Woman
14
ตัวอย่ าง 4 (ต่ อ)ต ัวอย่างผลล ัพธ์
program Gender_and_Age;
uses WinCrt;
การทางานของโปรแกรม
var Gender : char;
Input Gender : W 
var Age : integer;
Input Age : 6 
begin
write('Input Gender : ');readln(Gender);Girl
write('Input Age : '); readln(Age);
if Gender = 'M' then
begin
if Age > 15 then writeln('Man')
else if (0<Age) and (Age<15) then writeln('Boy');
end
else
if Gender = 'W' then
begin
if Age > 15 then writeln('Woman')
else if (0<Age) and (Age<15) then writeln('Girl');
end;
end.
15
204101 Introduction to Computer
case --> condition เป็ น operator มีค่า discrete
case condition of
constant1 : statement;
constant2 : statement;
constant3 : statement;
…
else statement;
end; {end of case}
condition
ต ัวแปรหรือ operator ชนิดไม่ตอ
่ เนือ
่ ง
่ ชนิด integer หรือ char
เชน
constant
ค่าคงทีข
่ องต ัวแปรหรือของ operator ที่
เก็บค่าหรือเป็นค่าไม่ตอ
่ เนือ
่ ง
่ ชนิด integer หรือ char ถ้าเป็น
เชน
char ค่าคงทีต
่ อ
้ งอยูภ
่ ายในเครือ
่ งหมาย' '
statement
คาสง่ ั
การทางาน
• ถ้ า condition มีค่าตรงกับ constant ตัวใด statement นั้นก็จะทางาน
• ในกรณีที่ไม่ ตรงกับ constant ใด ๆ เลย
• statement หลัง else จะถูกทางาน โดย else จะมีหรือไม่ มีกไ็ ด้
204101 Introduction to Computer
16
ตัวอย่ าง 5
จงเขียนโปรแกรมในการรับเลขจานวนเต็ม 1 จานวน
จากผู้ใช้ แล้ วแสดงข้ อความดังนี้
ถ้ ารับเลข 1
แสดงข้ อความHello Pascal
ถ้ ารับเลข 4 หรือ 5 แสดงข้ อความ Hello Java
ถ้ ารับเลข 9
แสดงข้ อความ Hello C++
ถ้ ารับเลขนอกเหนือจากข้ างต้ น START
จะแสดงข้ อความ Hello World Read T
1
DISPLAY
“Hello Pascal”
4,5
DISPLAY
“Hello Java”
other
T
9
DISPLAY
“Hello C++”
STOP
204101 Introduction to Computer
DISPLAY
“Hello World”
17
ตัวอย่ าง 5 (ต่ อ)
program Hello;
uses WinCrt;
START
Read T
1
4,5
9
DISPLAY
DISPLAY
DISPLAY
“Hello World”
“Hello Pascal” DISPLAY
“Hello Java” “Hello C++”
var T : integer;
begin
write('Input Integer: ');
readln(T);
case T of
1 : Writeln('Hello Pascal');
4,5 : Writeln('Hello Java');
9 : Writeln('Hello C++');
else
Writeln('Hello World');
end;
End.
204101 Introduction to Computer
T
other
STOP
ต ัวอย่างผลล ัพธ์
การทางานของโปรแกรม
Input Integer: 1 
Hello Pascal
18
จงวิเคราะห์ และเขียนโปรแกรมเพือ่ รับค่ าข้ อมูลจุดหนึ่งในระนาบ 2 มิตเิ ป็ น
เลขจานวนจริง 2 จานวน แล้ วตรวจสอบว่ าข้ อมูลจุดทีร่ ับเข้ ามาเป็ นข้ อมูล
จุดทีอ่ ยู่บน Quadrant ใด หรืออยู่บนแกน x หรือแกน y หรือเป็ น
จุด origin บนระนาบ 2 มิติ
ตัวอย่างผลการทางาน
204101 Introduction to Computer
19
คาสั่ งควบคุมแบบทาซ้า
 while
จานวนรอบไม่ แน่ นอน
 ตรวจสอบก่ อนทางาน
 อาจไม่ ได้ ทางานเลยแม้ แต่ ครั้ งเดียว ในกรณีเงื่อนไขเป็ นเท็จแต่
แรก
 repeat
จานวนรอบไม่ แน่ นอน
 ทางานก่ อนตรวจสอบ
 ได้ ทางานแน่ นอนอย่ างน้ อย 1 ครั้ ง แม้ เงื่อนไขเป็ นจริ งแต่ แรก
 for
204101 Introduction to Computer
จานวนรอบแน่ นอน
20
while --> while condition is true do loop
condition
yes
statement(s)
condition
statement
no
while condition do
begin
statement1;
statement2;
statement3;
…
end;
เงื่อนไขในการตัดสิ นใจว่ าต้ องการให้ ทางานหรือไม่
ถ้ าเงื่อนไขเป็ นจริง (True) จึงจะทางาน
คาสั่ งที่ต้องการให้ ทางานในกรณีที่เงื่อนไขเป็ นจริง
204101 Introduction to Computer
21
ตัวอย่ าง 6
ให้ รับค่ าเลขจานวนจริงค่ าหนึ่งแล้ วทาการแสดงผลของค่ ากาลัง
สองของเลขนั้น โดยกาหนดให้ ถ้ามีการป้ อนค่ าลบให้ สิ้นสุ ด
การรับข้ อมูล (ใช้ โครงสร้ าง While Do )
วิเคราะห์ โจทย์
ผลลัพธ์
คือ ค่ ากาลังสองของตัวเลขทีร่ ับเข้ ามา
ข้ อมูลเข้ า คือ เลขจานวนจริง
จานวนรอบไม่ แน่ นอน
ป้อนค่ าข้ อมูลเป็ นเลขลบ เงือ่ นไขในการหยุดวนทาซ้า
204101 Introduction to Computer
22
ตัวอย่ าง 6 (ต่ อ)
START
READ num
num  0
no
yes
Print
num2
READ num
STOP
204101 Introduction to Computer
program Power;
uses WinCrt;
var num : real;
begin
write('Input num: ');
readln(num);
while num >= 0 do
begin
writeln(‘Power of num=',num*num:10:5);
write('Input num: ');
readln(num);
end;
end.
23
ตัวอย่ าง 6 (ต่ อ)
program Power;
ต ัวอย่างผลล ัพธ์
uses WinCrt;
การทางานของโปรแกรม
var num : real;
Input num : 2.2 
begin
Power of num=^^^4.84000
Input num: 5.5 
write('Input num : ');
Power of num=^^30.25000
readln(num);
Input num: -1 
while num >= 0 do
begin
writeln(‘Power of num=‘,num*num:10:5);
write('Input num : ');
Input num : 0.005
readln(num);
Power of num=^^^0.00003
end;
Input num : -9 
end.
204101 Introduction to Computer
24
repeat  repeat loop until condition is true
statement(s)
no
condition
yes
condition
statement
repeat
statement1;
statement2;
statement3;
…
until condition;
ถ้ าเงื่อนไขเป็ นจริง (True) จะหยุดการทางาน
ถ้ าเงื่อนไขเป็ นเท็จ (False) จะทา loop รอบต่ อไป
คาสั่ งที่ต้องการให้ ทางานในกรณีที่เงื่อนไขเป็ นเท็จ
คาสั่ งหรือชุดคาสั่ งทีอ่ ยู่ใน loop
204101 Introduction to Computer
25
repeat (ต่ อ)
var Cont : char;
…
repeat
statement(s);
…
write('Continue (Y/N): ');
readln(Cont); {‘Y’เพือ
่ ทาloop}
until Cont <> 'Y';
statement(s)
READ Cont
no
yes
Cont <>'Y'
ข้ อสั งเกต การเขียนด้ วยภาษาปาสคาลกลุ่มของคาสั่ งต่ าง ๆ (statements)
ที่อยู่ภายใต้ เงื่อนไขการวนทาซ้า ไม่ ต้องมีเครื่องหมาย begin ... end; ซึ่ง
ต่ างกับการเขียนโปรแกรมแบบ pretest เช่ น while
204101 Introduction to Computer
26
ตัวอย่ าง 7
ให้ รับตัวเลขจากผู้ใช้ แล้ วให้ แสดงผลว่ า “Negative” หรือ “Positive or
Zero” เมื่อแสดงผลแล้ วให้ ผ้ ูใช้ เลือกได้ ว่าต้ องการทางานต่ อไปหรือไม่
START
วิเคราะห์ โจทย์
READ Num
Input : ตัวเลข 1 จานวน (Num)
yes
no
Output : ข้ อความ “Negative”
Num >= 0
DISPLAY
DISPLAY
หรือ “Positive or Zero”
การทางานจะวนทาซ้า โดยให้
ผู้ใช้ ยนื ยันหลังจากทางานเสร็จแล้ ว
“Positive or Zero”
READ Stop
no
204101 Introduction to Computer
“Negative”
Stop = 'Y'
yes
STOP
27
ตัวอย่ าง 7 (ต่ อ)
program Number;
uses WinCrt;
ต ัวอย่างผลล ัพธ์การทางานของโปรแกรม
Input Number: -7 
Negative
var Stop : char;
Stop program (Y/N): N 
begin
Input Number: 12 
repeat
Positive or Zero
write('Input Number: '); Stop program (Y/N): Y 
readln(Num);
var Num : integer;
if Num>= 0 then writeln(‘Positive or Zero')
else writeln(‘Negative');
write('Stop program (Y/N): ');
readln(Stop);
until Stop = 'Y';
end.
204101 Introduction to Computer
28
ตัวอย่ าง 8
ให้ แสดงค่ าตัวเลขทีเ่ ป็ นเลขคู่ต้งั แต่ 2 ถึง 10,024
2 4 6 8 10 ... 10,024 (Do While และ Repeat Until )
วิเคราะห์ โจทย์
Input : Output :
- แสดงตัวเลขคู่ 2 4 6 …, 10,024 โดยไม่ ทราบจานวนรอบ
- แสดงตัวเลข 10,024 เป็ นตัวเลขสุ ดท้ ายซึ่งเป็ น เงือ่ นไขในการ
หยุด
204101 Introduction to Computer
29
ตัวอย่ าง 8 แบบ WHILE (ต่ อ)
START
N=2
N <= 10,024
yes
DISPLAY N
N=N+2
STOP
204101 Introduction to Computer
no
program whileExample;
uses WinCrt;
var N : integer;
begin
N := 2;
while N <= 10024 do
begin
write(N);
N := N + 2;
end;
end.
30
ตัวอย่ าง 8 แบบ REPEAT (ต่ อ)
START
N=2
DISPLAY N
N=N+2
no
N > 10,024
yes
STOP
204101 Introduction to Computer
program repeatExample;
uses WinCrt;
var N : integer;
begin
N := 2;
repeat
write(N,' ');
N := N + 2;
until N > 10024;
end.
31
For : คาสั่ งวนทาซ้ากรณีทรี่ ู้ จานวนรอบแน่ นอน
var variable : integer/char;
…
for variable := start to/downto stop do
begin
statement(s);
end;
For i =start to stop
statement(s)
204101 Introduction to Computer
32
ตัวอย่ าง 9
ให้ รับค่ าเลขจานวนเต็ม x แล้ วแสดงค่ า x2 โดยให้ โปรแกรมวนทาซ้า 10 ครั้ง
START
For i = 1 to 10
read x
STOP
display x2
ผลล ัพธ์การทางานของโปรแกรม
Input Number x : 12 
x^2 = 144
Input Number x : 6 
x^2 = 36
…
Input Number : 10 
x^2 = 100
204101 Introduction to Computer
10
ครงั้
Program Power;
uses WinCrt;
var i : integer;
{ *1* }
var x : integer;
begin
for i := 1 to 10 do {*2*}
begin
write('Input number x : ');
readln(x);
writeln(‘x^2 =', x*x);
end;
end.
33
ตัวอย่ าง 9 (ต่ อ)
Program Power;
uses WinCrt;
var i : integer;
{ *1* }
var x : integer;
begin;
for i := 1 to 10 do {*2*}
begin
write('Input number x:
');
readln(x);
writeln(‘x^2 =', x*x);
end;
end.
204101 Introduction to Computer
ถ้าเปลีย
่ นบรรท ัด { *1* } และ{ *2* }
เป็นด ังนี้ จะให้ผลล ัพธ์เหมือนเดิม
1
{ *1* }
var i : integer;
{ *2* }
for i := 15 downto 6 do begin
{ *1* }
var i : char;
{ *2* }
for i := 'A' to 'J' do begin
{ *1* }
var i : char;
{ *2* }
for i :='z' downto 'q' do begin
2
3
34
ตัวอย่ าง 10
ให้ รับคะแนนของนักศึกษา N คนแล้ วทาการคานวณและ
แสดงผลคะแนนเฉลีย่ โดยทีค่ ่ า N ให้ รับจากผู้ใช้
(กาหนดให้ ใช้ คาสั่ ง For)
วิเคราะห์ โจทย์
- Input :N ,คะแนนน.ศ. N คน รับข้ อมูลคะแนน จานวน
N รอบแน่ นอน
- Output: Sum ไว้ สาหรับเก็บค่ าผลรวม
- (ตัวแปรทีเ่ ก็บค่ าผลรวมก่ อนใช้ งานต้ องให้ ค่าเริ่ มต้ นเป็ น 0)
204101 Introduction to Computer
35
ตัวอย่ าง 10 (ต่ อ)
START
READ N
sum = 0
For i = 1 to N
READ score
sum = sum + score
mean = sum / N
DISPLAY mean
STOP
204101 Introduction to Computer
program N_Students;
uses WinCrt;
var score, i, N, sum : integer;
var mean : real;
begin
sum := 0;
write('Input number : ');
readln(N);
for i := 1 to N do begin
write('Input Score : ');
readln(score);
writeln('Score = ', score);
sum := sum + score;
end;
mean := sum / N;
write('Mean = ', mean:10:5);
end.
36
ตัวอย่ าง 10 (ต่ อ)
ผลล ัพธ์การทางานของโปรแกรม
Input number : 4 
Input Score : 12 
Score = 12
Input Score : 8 
Score = 8
Input Score : 15 
Score = 15
Input Score : 10 
Score = 10
Mean =^^11.25000_
204101 Introduction to Computer
N=4
ครั้ง
program N_Students;
uses WinCrt;
var score, i, N, sum : integer;
var mean : real;
begin
write('Input number : ');
readln(N);
for i := 1 to N do
begin
write('Input Score : ');
readln(score);
writeln('Score = ', score);
sum := sum + score;
end;
mean := sum / N;
write('Mean = ', mean:10:5);
end.
37
ตัวอย่ าง 11
ให้ แสดงผลเลขคีต่ ้งั แต่ 97 ถึง 3
วิเคราะห์ โจทย์
ลาดับของตัวเลขจะแสดงผลดังนี้ 97,95,93, ...,7,5,3,
ตัวแรกคือ 97 ตัวสุ ดท้ ายคือ 3 ลดลงทีละ 2
จะใช้ while loop (pre-test) ในการแก้ ปัญหา
(ใน flowchart เป็ น โครงสร้ าง for loop (pre-test))
204101 Introduction to Computer
38
ตัวอย่ าง 11 (ต่ อ)
START
For k=97 downto 3 step -2
DISPLAY k
STOP
204101 Introduction to Computer
program Odd_Reverse;
uses WinCrt;
var k : integer;
begin
k:= 97;
while k>=3 do
begin
write (k , ‘,‘);
k:= k- 2;
end;
end.
39
แบบฝึ กหัด
5. จงเขียนโปรแกรมเพือ่ รับเลขจานวนเต็ม 3 จานวน แล้วแสดงผลลัพธ์ ออก
ทางจอภาพ เป็ นค่ าตัวเลขทีม่ ีค่ามากทีส่ ุ ด และค่ าตัวเลขทีม่ ีค่าน้ อยทีส่ ุ ด
เช่ น รับเลข 3 จานวน คือ 10 8 และ 15
ผลลัพธ์ ตัวเลขทีม่ ากทีส่ ุ ด คือ 15 ตัวเลขทีน่ ้ อยทีส่ ุ ด คือ 8
6. จงเขียนโปรแกรมสาหรับในการบวกเลขจานวนเต็ม N จานวน แล้วแสดง
ผลลัพธ์ ออกทางจอภาพ
เช่ น ระบุเลขจานวนเต็มทีจ่ ะป้อน 5 ค่ า
โดยค่ าทีป่ ้ อนได้ แก่ 1 5 10 6 และ 9
ผลลัพธ์ ที่ได้ คอื 31
204101 Introduction to Computer
40