OUTLINE

1
????? 8???????????????

• OUTLINE
• ???????? (Array)
• 1 ???? ??? 2 ????
• ??????? (Record)
• ??? (Set)

2
???????? (Array)

• ???????? ???? ????????
• ????????????????????????????????????????????????
  ???? ??? ????????????????????? ???????????????????
  ??????????????? ????????????????????????? (Index)
  ???????????????????????????????????????????
• ????????????????? 1???? ???????????

3
????????

• ???????? ?????????????????????????????????????????
  ?????????
• ?????? ???????? ???????????????????????????????
  ????????????????????????????????????
• ?????????????????????? Index

4
??????????????????? 1 ????

• ????????? TYPE
• Type matrix array1..100 of integer
• VAR numbermatrix
• ???? ???????????? VAR
• VAR number array1..100 of integer

5
??????????????????? 1 ????

• ????????
• TYPE matrix array1..100 of integer
• letter arrayA..Z of real
• VAR number matrix index integer
• scale letter
• chindex A..Z

6
???????????????????????????

• ??????????????????????????? ??????????????????????
  ?????????????????????????????
• for index 1 to 100 do
• read(numberindex)
• for chindex A to Z do
• scalechindex

7
???????????????????????????

• ??????????????????? A ??????????????? B
• program array1
• uses Wincrt
• type arraynum array'a'..'z' of integer
• var a,b arraynum
• i'a'..'z'

8
???????????????????????????

• ( program put asiic code of character a-z into
  array A and copy to B)
• begin
• for i 'a' to 'z' do
• ai ord(i)

• for i 'a' to 'z' do
• bi ai
• for i'z' downto 'a' do
• writeln(ai,' and ',bi)
• end.
• ????????
• ???????????????? b a ??????????????????2???????
  ??

9
???????????????????????

• ??????????????????????? ??????????????????
• ?????????????????????????????????
• ????????????????????????????????????????? ???
  ??????
• ?????????????????????????????

10
???????????????????????

• program maxmin
• uses wincrt
• const n_array 5
• type number array1..5 of byte
• var x integer
• num number

11
???????????????????????

• procedure readnum read data into array
• var i integer
• begin
• for i 1 to n_array do
• begin
• write('Enter positive number ')
• readln (numi)
• end
• end

12
???????????????????????

• procedure find_max_min
• var max,min,iinteger
• begin
• i1
• max numi
• min numi

13
???????????????????????

• for i1 to n_array do
• begin
• if numi gt max then
• max numi
• if numi lt min then
• min numi
• end

• writeln('-----------------------------')
• writeln('Max is ',max,' Min is ',min)
• end

14
???????????????????????

• begin min
• readnum
• find_max_min
• end.

15
????????????

• ?????????????????????????????????? ???. ????? 3
  ?? ????????????????????????????????????????????
• program freq
• uses wincrt
• const max 3
• type arr array 1..3 of integer
• var score arr

16
????????????

• procedure init
• var i integer
• begin
• for i 1 to max do
• scorei 0
• end

17
????????????

• procedure enternum
• var num integer
• begin
• write('Enter number you want to select 1-3 or
  -1 to end ')
• readln (num)

18
????????????

• while num ltgt -1 do
• begin
• case num of
• 1 scorenum scorenum
  1
• 2 scorenum scorenum
  1
• 3 scorenum scorenum
  1
• else

19
????????????

• Writeln(' You enter a wrong number.')
• endend case
• write('Enter number you want to select 1-3
  or -1 to end ')
• readln (num)
• endend while
• end

20
????????????

• procedure write_score
• var iinteger
• begin
• for i 1 to max do
• writeln('Member number ',i,' is
  ',scorei)
• end

21
????????????

• begin main
• init
• enternum
• write_score
• end.

22
??????????????????

• ???????????????????????? ?????????????????????????
  ?????????????????????????????????????????????
• ??????????????????????????? ????
  ????????????????????????(????????)

23
??????????????????

• program search1
• uses wincrt
• const max 3
• type arr array 1..10 of string
• var
• table arr

24
??????????????????

• procedure getnum
• var i integer code string3
• begin
• for i 1 to max do
• begin
• write('enter student code ')
• readln(code)
• tablei code
• end end

25
??????????????????

• procedure search_code
• var iinteger code string3 flag
  boolean
• begin
• flag false i 1
• write('enter student code you want to search/
  to end ')
• readln(code)

26
??????????????????

• while code ltgt '' do
• begin
• while (flag false) and (i lt max)
  do
• begin
• if tablei code then
  
• flag true
• else
• i i1
• end

27
??????????????????

• if flag true then
• begin
• flag false
• writeln('student code ',code,' is
  found')
• end
• else
• writeln('student code ',code,' is not
  found')

28
??????????????????
write('enter student code you want
to search/ to end ')
readln(code) end end
while end main begin getnum
search_code end.
29
?????????????? (Sorting)

• ?????????????? ????????????????????
  ?????????????? ???? ???????
• ????????????????? ???? Bubble Sort

30
Bubble Sort

• Bubble Sort ???????????????????????
  2???????????????? ???????????????????????????????
  swap ?????? ???????????????????????????
  (???????????????? N-1 ?????)??? ???? 1 ???
• ????????????????? N-1 ?????????????????

31
Bubble Sort

?????? 1
48 90 56 46 80
48 56 46 80 90
?????? 2
48 46 56 80 90
?????? 3
46 48 56 80 90
?????? 4
32
Bubble Sort

• program sort
• uses wincrt
• const max 5
• type arr array1..5 of integer
• var listarr

33
Bubble Sort

• procedure getnum
• var i integer
• begin
• for i 1 to max do
• begin
• write('enter number')
• readln(listi)
• end end

34
Bubble Sort

• procedure sorting
• var i,j,temp integer
• begin
• for i 1 to max-1 do
• begin
• for j 1 to max-1 do
• begin

35
Bubble Sort

• if listj1 lt listj then
• begin
• temp listj
• listj listj1
• listj1 temp
• endend if
• end end for
• end end for end

36
Bubble Sort

• procedure writelist
• var i integer
• begin
• writeln('---------------------------')
• for i 1 to max do
• writeln(listi)
• end

37
Bubble Sort

• begin
• getnum
• sorting
• writelist
• end.

38
???????? 2 ????

• ???????? 2 ???? ?????????? ???????? 1 ????
  ???????????????????????????????? ??? ??? ?????? 1
  ???? ???? ????? ???? ??? ??????????
• ??????? ????????? ???????? ??????? 2 ???? ???
  ????????????? 2 ???

39
???????? 2 ????

• ????????????????????????????
• Type row array1..90 of char
• column array1..80 of row
• Var page column
• ????????????????
• VAR page array1..90,1..80 of char

40
???????? 2 ????

• ?????????????????????????????? 1 ??????????
  ????????????????????????
• for I 1 to 90 do
• for j 1 to 80 do
• pagej character

41
Read Write ?????????????

• ????????????????????????????? ???????? 2 ????
• program twodim
• uses wincrt
• const mrow 4
• mcol 3
• var table array1..4,1..3 of integer
• i,jinteger

42
Read Write ?????????????

• procedure getnum
• begin
• for I 1 to 4 do
• begin
• for j 1 to 3 do

• begin
• write('Enter number')
• read (tablei,j)
• end
• end
• end

43
Read Write ?????????????

• procedure writenum
• begin
• writeln('--------------------------')
• for I 1 to 4 do
• begin
• for j 1 to 3 do

44
Read Write ?????????????

• begin
• write(tablei,j5)
• end
• writeln
• end
• end

• Begin main
• getnum
• writenum
• end.

45
?????????????????????

• ?????????????????????????????????????? ?????
  ??????? ???????????????????????????
  ??????????????????????????????????????
• SUB1 SUB2 SUB3 AVG
• STUDENT1 0.0 0.0 0.0
  0.0
• STUDENT2 0.0 0.0 0.0
  0.0
• AVERAGE 0.0 0.0 0.0
  0.0

46
?????????????????????

• program students
• uses wincrt
• var nstd,nsubinteger
• table array1..50,1..10 of real
• i,jinteger
• avg_sub,avg_std,sumreal

47
?????????????????????

• init routine
  procedure
  init(row,colinteger)
• begin
• for i 1 to row do
• for j 1 to col do
• tablei,j 0
• end

48
?????????????????????

• getnum routine
  
• procedure getnum(row,colinteger)
• begin
• for i 1 to row-1 do
• begin

49

?????????????????????

• for j 1 to col-1 do
• begin
• write(i,'.','Enter score for
  each subject ')
• readln(tablei,j)
• end
• writeln('-----------------------
  --')
• end
• end

50
?????????????????????

• writeroutine
  
• procedure writenum(row,colinteger)
• begin
• write column heading
• write(''12)
• for i1 to col-1 do
• write ('sub',i,''2)
• write ('avg')
• writeln

51
?????????????????????

• write detail line
• for I 1 to row do
• begin
• if i row then
• write('average ')
• else
• write('student ',i,'')

52
?????????????????????

• for j 1 to col do
• write(tablei,j62)
  
• writeln
• end
• end

53
?????????????????????

• compute routine
  
• procedure compute(row,colinteger)
• begin
• compute averge for subject
• for i 1 to row-1 do
• begin
• sum 0

54
?????????????????????

• for j 1 to col-1 do
• begin
• sum sum tablei,j
• end
• avg_std sum /(col-1)
• tablei,col avg_std
• end

55
?????????????????????

• compute averge for students
• for i 1 to col-1 do
• begin
• sum 0
• for j 1 to row-1 do
• sum sum tablej,i
• avg_sub sum /(row-1)
• tablej1,i avg_sub
• end
• end

56
?????????????????????

• main routin
• begin
• write('Enter number of student and number
  of subject ')
• readln(nstd,nsub)

• nstd nstd 1
• nsub nsub 1
• init(nstd,nsub)
• getnum(nstd,nsub)
• compute(nstd,nsub)
• writenum(nstd,nsub)
• end.end main