การเขียนโปรแกรมเบื้องต้น

สาขาวิชา Business Analytics and Intelligence สาขาวิชาวิทยาการประกันภัยและการบริหารความเสี่ยง คณะสถิติประยุกต์ สถาบันบัณฑิตพัฒนบริหารศาสตร์ ท่านเขียนบทความลง manager online มีความสนใจในหลายเรื่อง โดยเฉพาะความเสี่ยง (Risk Management) และความเสี่ยงที่ใกล้ตัว คือ สถาบันการศึกษา และ อาชีพอาจารย์

ใครที่สนใจเรื่องความเสี่ยง คาดไว้ก่อนว่าต้องทำ งานประกันคุณภาพ เคยเป็นตัวบ่งชี้หนึ่งในเรื่องการบริหารจัดการ แต่นั่นก็ไม่ใช่ประเด็นที่ทำให้ ดร.อานนท์ มาอยู่ในเว็บเพจหน้านี้ บทความ 2 เรื่องที่ท่านเขียน กระแทกเข้ามาที่อาชีพ โปรแกรมเมอร์ และวิทยากรคอมพิวเตอร์ สำหรับผมแล้ว จิ้งจกทักยังต้องเหลียวไปมอง ดังนั้นสิ่งที่ท่านกระแทกมา นักเรียน นักศึกษา หรือผู้สนใจด้าน Developer จะวางเฉยได้ไง ถ้า ดร.อานนท์ ตีแสกหน้าอาจารย์คอม ซะขนาดนี้แล้ว แล้วอาจารย์หรือนักศึกษาที่เกี่ยวข้องยังวางเฉยได้ ก็อ่ะนะ เรียก สงบ สยบ เคลื่อนไหว ก็แล้วกัน แล้วบทความของท่านเขียนมายาว ผมคัดลอกฉบับเต็มให้นักศึกษาผมได้อ่านที่ /webmaster/responsive ส่วนตีแสกหน้าอาจารย์คอม นั้น ก็ Quote ไว้ใน คอลัมทางขวาแล้ว .. อ่านซะ

"ด้านวิทยาการคอมพิวเตอร์ ซึ่งเปิดสอนกันแทบทุกสถาบันในประเทศไทย แต่บริษัทเอกชนกลับหาคนมาทำงานด้าน Computer ที่เปลี่ยนแปลงไปอย่างรวดเร็วและต้องการคนเก่งคนมีความรู้ความสามารถอีกมากได้ยากมาก บัณฑิตด้าน computer sciences จำนวนมากจากหลายสถาบันไม่สามารถเขียนโปรแกรมคอมพิวเตอร์ที่ใช้งานได้จริงได้เลย หรือในอีกด้านเราผลิตคนที่ไม่ตรงกับความต้องการของตลาดและมีคุณภาพไม่เพียงพอ" จาก manager.co.th

"ทุกวันนี้ประเทศไทยขาดแคลนโปรแกรมเมอร์อย่างรุนแรง มีคนสมัครมาก แต่คุณภาพนั้นมีปัญหา ทำงานไม่ได้จริง ไม่ตรงตามสิ่งที่ภาคเอกชนและภาคธุรกิจใช้กันในปัจจุบัน ประกอบกับนักศึกษาก็ไม่อยากเรียนอะไรที่ยาก ชอบเรียนอะไรง่ายๆ สบายๆ ซึ่งเป็นการทำลายตนเองในระยะยาวอยู่ดี น่าเห็นใจอาจารย์ที่เทคโนโลยีเปลี่ยนไปอย่างรวดเร็วมาก โลกของดิจิทัลและวิทยาการข้อมูลกำลังรุกล้ำเข้ามาอย่างรวดเร็ว เศรษฐกิจที่ใช้ความรู้และนวัตกรรมเป็นฐานทำให้อาจารย์มหาวิทยาลัยจำนวนมากตกยุค อาจารย์มหาวิทยาลัยคงไม่สามารถสอนเรื่องเดิมๆ ที่ตนเองเคยเรียนมาเมื่อ 20-30 ปีก่อนได้อีกต่อไป" จาก manager.co.th

11******11
 22****22
  33**33
   4444

123***
234****
345*****
456******

15*****
26******
37*******
48********

*1
**212
***32123
****4321234

   11
  2**2
 3****3
4******4
 3****3
  2**2
   11

1010101010101
 10101010101
  101010101
   1010101
    10101
     101
      1

      111
     12221
    1233321
   123444321
  12345554321
 1234566654321
123456777654321

123**
 234***
  345****
   456*****
    567******
     678*******
      789********

987654321
  7654321
    54321
      321
        1

12        21
 23      32
  34    43
   45  54
    5665

11111 11111
2222   2222
333     333
44       44
5         5

1        *
21      **
321    ***
4321  ****
54321*****

19191919
28282828
37373737
46464646
55555555

1*1*****9
2**2****8
3***3***7
4****4**6
5*****5*5

1*********5
2******** 4
3*******  3
4******   2
5*****    1

1*1
22**22
333***333
4444****4444
55555*****55555

*******1*7
******2**6
*****3***5
****4****4
***5*****3

*111111111*
* 2222222 *
*  33333  *
*   444   *
*    5    *

1******1
2***** 2
3****  3
4***   4
5**    5

1*1111111111
2***22222222
3*****333333
4*******4444
5*********55

****5*****
***444****
**33333***
*2222222**
111111111*

11111*
2222**
333***
44****
5*****

1 *
2  **
3   ***
4    ****
5     *****

54321*12345
5432***2345
543*****345
54*******45
5*********5

1*3***
2*4****
3*5*****
4*6******
5*7*******

*********1
 *******21
  *****321
   ***4321
    *54321

11111*****
2222  ****
333    ***
44      **
5        *

1234567***3
123456****4
12345*****5
1234******6
123*******7

    *
   ***
  *****
   ***
    *

    *1*
   *222*
  *33333*
   *222*
    *1*

   1*1*2
   2*3*4
   3*5*6
   4*7*8
   5*9*10

123*321
23***32
3*****3
23***32
123*321

var
 i,j : integer;
 c : char;
begin
 writeln ('Your english character?');
 readln (c);
 c := upcase(c);
 writeln ('======');
 for i := 65 to ord(c) do
 begin
  for j := 65 to i do  write(chr(j));
  writeln;
 end;
 readln;
end.

Your english character?
F
======
A
AB
ABC
ABCD
ABCDE
ABCDEF

var 
 c,d,g : char;
begin
 writeln ('Your english character?');
 readln (g);
 for c := 'A' to g do
 begin
  for d:= 'A' to c do write(d);
  writeln;
 end;
 readln;
end.

Your english character?
D
A
AB
ABC
ABCD

<html><body><font face="courier new">
<pre>
<script>
/* print 5 row with line number */
var tRow = 5;
for(row=1; row<=tRow; row++) {
 document.write( row + "<br/>")
}
</script>
</pre></font></body></html>

1
2
3
4
5

<html><body><pre>
<script>
/* print number in right part */
var tRow = 5;
for(row=1; row<=tRow; row++) {
 // Column have 2 parts 
 document.write( row + " - " );
 for(col=1; col <= row; col++) {
  document.write( 11 - col - row );
 }
 document.write("\n");
}
</script>
</pre></body></html>

1 - 9
2 - 87
3 - 765
4 - 6543
5 - 54321

<html><body><pre>
<script>
/* print pyramind of number */
var tRow = 9;
for(row=1; row <= tRow; row++) {
 // Column have 4 parts
 for(col=1;col<=tRow - row + 1;col++){ 
  document.write(" "); 
 }
 for(col=1; col <= row ; col++) { 
  document.write( col ); 
 }
 document.write( row );
 for(col=row; col >= 1 ; col--) { 
  document.write( col ); 
 }
 document.write("\n");
}
</script>
</pre></body></html>

        111
       12221
      1233321
     123444321
    12345554321
   1234566654321
  123456777654321
 12345678887654321
1234567899987654321

กลุ่ม 1 พิมพ์ข้อมูลอย่างง่าย
1. พิมพ์ รหัสนักศึกษา
2. พิมพ์ ชื่อตนเอง
3. พิมพ์ ตัวเลข จากตัวแปร
4. พิพม์ ชื่อ และสกุล คนละบรรทัด
5. พิพม์ รหัส ชื่อ และสกุล คนละบรรทัด
6. พิมพ์ ผลบวก ของเลข 2 จำนวน
7. พิมพ์ ผลบวก ลบ คูณ หาร ของเลข 2 จำนวน
   กลุ่ม 2 รับข้อมูลมาคำนวณ
8. พิมพ์ ตัวเลข ที่รับมาจากแป้นพิมพ์
9. พิมพ์ อักษร ที่รับมาจากแป้นพิมพ์
10. พิมพ์ ผลบวก ของเลข 2 จำนวน ที่รับมาจากแป้นพิมพ์
11. พิมพ์ ผลบวก และลบ ของเลข 2 จำนวน ที่รับมาจากแป้นพิมพ์
12. พิมพ์ ผลคูณ และหาร ของเลข 2 จำนวน ที่รับมาจากแป้นพิมพ์
13. พิมพ์ ผลบวก ของเลข 3 จำนวน ที่รับมาจากแป้นพิมพ์
    กลุ่ม 3 รับข้อมูล และเลือกพิมพ์
14. รับตัวเลขจากแป้นพิมพ์ 2 จำนวน แต่พิมพ์ตัวหลังก่อนตัวแรก
15. รับตัวเลขจากแป้นพิมพ์ 2 จำนวน ให้พิมพ์ตัวที่มากกว่า
16. รับตัวเลขจากแป้นพิมพ์ 2 จำนวน ให้พิมพ์ตัวที่น้อยกว่า
17. รับตัวเลขจากแป้นพิมพ์ ถ้ามากกว่า 5 ให้พิมพ์คำว่า wow
18. รับตัวเลขจากแป้นพิมพ์ ถ้าน้อยกว่า 5 ให้พิมพ์คำว่า oho
19. รับตัวเลขจากแป้นพิมพ์ 3 จำนวน ให้พิมพ์ตัวที่มากที่สุด
20. รับตัวเลขจากแป้นพิมพ์ 3 จำนวน ให้พิมพ์ตัวที่น้อยที่สุด
    กลุ่ม 4 ทำซ้ำอย่างง่าย
21. พิมพ์ 1 ถึง 10 ด้วย for
22. พิมพ์ 1 ถึง 10 ด้วย while
23. พิมพ์ 10 ถึง 1 ด้วย for
24. พิมพ์ 10 ถึง 1 ด้วย while
25. พิมพ์ 10 ถึง 20 ด้วย for
26. พิมพ์ 10 ถึง 20 ด้วย while
27. พิมพ์ 20 ถึง 10 ด้วย for
28. พิมพ์ 20 ถึง 10 ด้วย while
29. พิมพ์เลขคู่ระหว่าง 1 ถึง 10
30. พิมพ์เลขคี่ระหว่าง 1 ถึง 10

กลุ่ม 5 ทำซ้ำซ้อนกัน
31. พิมพ์สูตรคูณแม่ 2
32. พิมพ์สูตรคูณแม่ 3
33. พิมพ์สูตรคูณแม่ 2 จนเสร็จ แล้วพิมพ์แม่ 3 ต่อ
34. พิมพ์สูตรคูณแม่ 2 และ 3 คนละ Column
35. พิมพ์ตัวเลขแบบ for ซ้อนด้วย for
36. พิมพ์ตัวเลขแบบ for ซ้อนด้วย while
37. พิมพ์ตัวเลขแบบ while ซ้อนด้วย for
38. พิมพ์ตัวเลขแบบ while ซ้อนด้วย while
    กลุ่ม 6 อาร์เรย์
39. อ่านข้อมูลจากอาร์เรย์แบบตัวเลข 3 สมาชิกมาพิมพ์ ไม่ใช้ for
40. อ่านข้อมูลจากอาร์เรย์แบบตัวอักษร 3 สมาชิกมาพิมพ์ ไม่ใช้ for
41. อ่านข้อมูลจากอาร์เรย์แบบตัวเลข 3 สมาชิกมาพิมพ์ ใช้ for
42. อ่านข้อมูลจากอาร์เรย์แบบตัวอักษร 3 สมาชิกมาพิมพ์ ใช้ for
43. รับข้อมูลจากแป้นพิมพ์เก็บลงอาร์เรย์ แล้วนำมาพิมพ์ใหม่
44. รับข้อมูลจากแป้นพิมพ์เก็บลงอาร์เรย์ แล้วนำมาพิมพ์ใหม่ เฉพาะมากกว่า 10
45. รับข้อมูลจากแป้นพิมพ์เก็บลงอาร์เรย์ แล้วนำมาพิมพ์ใหม่ เฉพาะน้อยกว่า 10
    กลุ่ม 7 คำนวณเบื้องต้น
46. พิมพ์ค่าสูงสุด จากอาร์เรย์ที่ถูกกำหนดเป็นค่าคงที่ในโปรแกรม
47. พิมพ์ค่าต่ำสุด จากอาร์เรย์ที่ถูกกำหนดเป็นค่าคงที่ในโปรแกรม
48. พิมพ์ค่าผลรวม จากอาร์เรย์ที่ถูกกำหนดเป็นค่าคงที่ในโปรแกรม
49. พิมพ์ค่าเฉลี่ย จากอาร์เรย์ที่ถูกกำหนดเป็นค่าคงที่ในโปรแกรม
50. พิมพ์ค่าสูงสุด จากอาร์เรย์ที่รับค่าจากแป้นพิมพ์
51. พิมพ์ค่าต่ำสุด จากอาร์เรย์ที่รับค่าจากแป้นพิมพ์
52. พิมพ์ค่าผลรวม จากอาร์เรย์ที่รับค่าจากแป้นพิมพ์
53. พิมพ์ค่าเฉลี่ย จากอาร์เรย์ที่รับค่าจากแป้นพิมพ์
    กลุ่ม 8 แฟ้มข้อมูล หรือฐานข้อมูล
54. อ่านข้อมูลจากแฟ้มข้อมูล มาแสดงทางจอภาพ
55. อ่านข้อมูลจากแฟ้มข้อมูล มาแสดงทางจอภาพ โดยมีเลขลำดับกำกับ
56. อ่านข้อมูลจากแป้นพิมพ์ แล้วเขียนลงแฟ้มข้อมูล
57. อ่านข้อมูลจากแฟ้มข้อมูล เขียนลงแฟ้มใหม่อีกแฟ้มหนึ่ง
58. เพิ่มข้อมูลในแฟ้มข้อมูล เมื่อได้รับข้อมูลจากแป้นพิมพ์
59. ลบข้อมูล แบบต่าง ๆ
60. แก้ไขข้อมูล แบบต่าง ๆ