Lập trình bằng Turbo Pascal part 4

Phương pháp này giống như sắp lại toμn bộ các quân bài theo thứ tự bằng cách rải rộng trên mặt bàn và nhặt dần từ con bμi thấp nhất trở lên. Cụ thể là: chọn phần tử nhỏ nhất trong dãy nguồn, xếp nó vμo vị trí đầu tiên trong dãy đích. Đây là phần tử thứ nhất và cũng là phần tử cuối cùng của dãy đích. Chọn phần tử nhỏ nhất trong dãy nguồn còn lại, đây là phần tử nhỏ thứ hai, xếp nó vào vị tri thứ hai và cũng là vị trí cuối của...
Nội dung trích xuất từ tài liệu:
Lập trình bằng Turbo Pascal part 4 LËp tr×nh b»ng Turbo Pascal j:= i-1; while x < a[j] do begin a[j+1]:= a[j]; j:= j-1; end; a[j+1]:= x; endend;4.3 Ph−¬ng ph¸p chän trùc tiÕp. 4.3.1 M« t¶ Ph−¬ng ph¸p nμy gièng nh− s¾p l¹i toμn bé c¸c qu©n bμi theo thø tùb»ng c¸ch r¶i réng trªn mÆt bμn vμ nhÆt dÇn tõ con bμi thÊp nhÊt trë lªn. CôthÓ lμ: chän phÇn tö nhá nhÊt trong d·y nguån, xÕp nã vμo vÞ trÝ ®Çu tiªntrong d·y ®Ých. §©y lμ phÇn tö thø nhÊt vμ còng lμ phÇn tö cuèi cïng cña d·y®Ých. Chän phÇn tö nhá nhÊt trong d·y nguån cßn l¹i, ®©y lμ phÇn tö nhá thøhai, xÕp nã vμo vÞ tri thø hai vμ còng lμ vÞ trÝ cuèi cña d·y ®Ých vμo lóc nμy.LÆp l¹i viÖc nμy cho ®Õn khi hÕt d·y nguån. §Ó tiÕt kiÖm chç, ta còng xÕp d·y ®Ých vμ d·y nguån liÒn nhau trongm¶ng, gièng nh− trong ph−¬ng ph¸p tr−íc. Do ®ã, ë b−íc thø i, thao t¸cxÕp vμo cuèi d·y ®Ých chÝnh lμ ®æi chç cho a[i].XuÊt ph¸t D·y ®Ých D·y nguån rçngB−íc 1: - Chän phÇn tö bÐ nhÊt tõ d·y nguån, - §æi chç cho phÇn tö a[1] . D·y ®Ých D·y nguån a1 Chän phÇn tö minB−íc i: - Chän phÇn tö bÐ nhÊt tõ d·y nguån cßn l¹i lμ a[i], a[i+1], ... , a[n]. - §æi chç cho a[i].NguyÔn §×nh Ho¸, ViÖn CNTT - §HQG Hμ néi 77 LËp tr×nh b»ng Turbo Pascal D·y ®Ých D·y nguån ai Chän phÇn tö minLÆp cho ®Õn khi hÕt d·y nguån, i = n.So s¸nh víi ph−¬ng ph¸p chÌn: - Ph−¬ng ph¸p chÌn lμ lÊy phÇn tö ®Çu tiªn trong d·y nguån cßn l¹i,chÌn vμo ®óng chç trong d·y ®Ých. Lμm viÖc víi d·y ®Ých lμ chÝnh. - Ph−¬ng ph¸p chän lμ lÊy phÇn tö nhá nhÊt trong d·y nguån cßn l¹ixÕp vμo cuèi d·y ®Ých. Lμm viÖc víi d·y nguån lμ chÝnh. 4.3.2 Minh ho¹:XuÊt ph¸t: 44 55 12 42 94 18 06 67 B−íc 1: 06 / 55 12 42 94 18 44 67 B−íc 2: 06 12 / 55 42 94 18 44 67 B−íc 3: 06 12 18 / 42 94 55 44 67 B−íc 4: 06 12 18 42 94 55 44 67 B−íc 5: 06 12 18 42 44 / 55 94 67 B−íc 6: 06 12 18 42 44 55 / 94 67 B−íc 7: 06 12 18 42 44 55 67 / 94 B−íc 8: 06 12 18 42 44 55 67 94 4.3.3 Th ñ tôc chi tiÕt.for i:=1 to n -1 do begin “ chän phÇn tö min cña d·y a[i],a[i+1],...,a[n] ” “ ®æi chç cho a[i]” end var i,j,k: integer; x: real; begin for i:=1 to size-1 do begin k:=i; x:=a[i]; for j:=i+1 to size do if a[j] LËp tr×nh b»ng Turbo Pascal end end; C©u hái vμ bμi tËp1. C¸c phÇn tö m¶ng cã thÓ lμ nh÷ng kiÓu g×? ChØ sè cña m¶ng cã thÓ lμ nh÷ng kiÓu g×?2. C¸c khai b¸o kiÓu m¶ng d−íi ®©y ®óng hay sai, m« t¶ râ cÊu tróc m¶ng. Array [10..0] of Real; Array [0..9] of Real; Array [a..z] of Char; Array [A..Z] of Integer; Array [(A,B,C)] of (-10..10); Array [Byte] of Boolean; Array [Integer] of Integer; Array [Char] of Byte;3. §Ó xö li mäi phÇn tö cña m¶ng th−êng dïng vßng lÆp g×? Cã thÓ dïng nh÷ng vßng lÆp nμo?4. Trong Pascal kiÓu m¶ng cã thÓ nhiÒu nhÊt lμ mÊy chiÒu.5. ThÕ nμo lμ m¶ng s¾p theo −u tiªn hμng, −u tiªn cét. M¶ng trong Pascal thuéc kiÓu nμo?Thùc hμnh.1. NhËp d·y n sè thùc. TÝnh trung b×nh céng, t×m trung vÞ (median), t×m phÇn tö lín nhÊt, nhá nhÊt; t×m phÇn tö lín thø nh×; ®Õm sè phÇn tö d−¬ng, ©m; T×m chØ sè cña phÇn tö ©m ®Çu tiªn, cuèi cïng; kiÓm tra d·y ®an dÊu.2. NhËp d·y sè; trich ra d·y con lμ cÊp sè céng, cÊp sè nh©n cã nhiÒu phÇn tö nhÊt.3. Cho sè nguyªn d−¬ng hÖ 10, h·y in ra sè ®ã ë hÖ 2, 8, 16.4. NhËp d·y n gi¸ trÞ quan tr¾c cña mét ®¹i l−îng ngÉu nhiªn. T×m ph−¬ng sai vμ ®é lÖch tiªu chuÈn.5. TÝnh tÝch v« h−íng cña hai vÐc t¬6. NhËp d·y n sè vμ mét sè x. T×m xem cã bao nhiªu sè trong d·y trïng víi x. Chóng ë c¸c vÞ trÝ nμo?7. Cho ma trËn c¸c sè nguyªn A[1..7; 8..14] víi A[i,j]:= i*j. TÝnh tæng c¸c phÇn tö trªn mét cét, trªn mét hμng, trªn ®−êng chÐo chÝnh, trªn ®−êng chÐo phô.8. Cho ma trËn vu«ng. T¸ch thμnh hai ma trËn tam gi¸c trªn vμ tam gi¸c d−íi råi in ra mμn h×nh.9. NhËp tõ bμn phÝm mét d·y sè nguyªn, in ra c¸c gi¸ trÞ kh¸c nhau kÌm sè lÇn xuÊt hiÖn.10. ViÕt ch−¬ng tr×nh s¾p xÕp mét d·y sè, dïng c¸c thñ tôc a -) chÌn trùc tiÕp, b -) chän trùc tiÕp ...