Bµi 1 LÖnh lÆp While C©u hái, vÝ dô, bµi tËp 1 a) LËp tr×nh tÝnh tÝch cña 10 sè tù nhiªn ®Çu tiªn b) LËp tr×nh tÝnh tæng cña 1000 sè tù nhiªn ®Çu tiªn 2 LËp tr×nh tÝnh tæng: ë ®©y n lµ sè tù nhiªn ®îc nhËp tõ bµn phÝm 4 TÝnh hµm luü thõa an ë ®©y a thùc vµ n tù nhiªn ®îc nhËp vµo tõ bµn phÝm 5 Cã s½n mét d·y sè H·y viÕt ch¬ng tr×nh nhËp mét sè x råi t×m xem cã bao nhiªu phÇn tö trong d·y >x hay kh«ng 6 ViÕt ch¬ng tr×nh nhËp mét d·y sè tèi ®a 100 sè, sau ®ã in ra mµn h×nh c¸c sè kh¸c nhau 7 ViÕt ch¬ng tr×nh nhËp mét d·y sè tèi ®a 100 sè, sau ®ã s¾p xÕp l¹i d·y theo thø tù t¨ng dÇn 8 ViÕt ch¬ng tr×nh nhËp tèi ®a 100 sè, vµ kiÓm tra xem d·y ®ã cã lËp thµnh mét cÊp sè céng hay kh«ng? 9 ViÕt ch¬ng tr×nh nhËp mét d·y sè tèi ®a 100 sè, sau ®ã xÐt xem d·y sè nµy cã ®èi xøng hay kh«ng? 10 ViÕt ch¬ng tr×nh nhËp Hä, tªn, n¨m sinh trong mét danh s¸ch cã tèi ®a 100 ngêi, sau ®ã xÕp l¹i thø tù danh s¸ch nµy theo tuæi 11 ViÕt ch¬ng tr×nh nhËp sè tù nhiªn n vµ in ra sè Fibonaci thø n 12 D·y sè tù nhiªn An tho¶ m·n c¸c ®iÒu kiÖn sau: A1=A2=A3=A4=1 An = An-1 + An-3 ViÕt ch¬ng tr×nh tÝnh An víi n cho tríc (n>=5) Bµi tËp vÒ nhµ 13 ViÕt ch¬ng tr×nh nhËp sè thùc A vµ t×m ra sè tù nhiªn nhá nhÊt N sao cho 1 + 1/2 + 1/3 + + 1/N >A 15 Cho d·y sè ®îc nhËp tõ bµn phÝm H·y chØ ra mét d·y con liªn tôc ®¬n ®iÖu t¨ng cã ®é dµi lín nhÊt Ch¬ng tr×nh ph¶i in ra ®îc d·y con ®ã 16 Cho tríc sè tù nhiªn N ViÕt ch¬ng tr×nh lËp mét m¶ng sè bao gåm c¸c ch÷ sè thËp ph©n cña N VÝ dô cho N=23654 th× ta cã m¶ng sau: a[0]=4, a[1]=5, a[2]=6, a[3]=3, a[4]=2 17 Cho tríc sè tù nhiªn N ViÕt ch¬ng tr×nh lËp mét m¶ng sè bao gåm c¸c ch÷ sè trong biÓu diÔn nhÞ ph©n cña N VÝ dô cho N=5 tøc lµ 101 th× ta cã m¶ng sau: a[0]=1, a[1]=0, a[2]=1 18 Gi¶ sö ®· cã d·y sè a1, a2, , an lµ ®¬n ®iÖu t¨ng Em h·y dùa vµo ®o¹n m« pháng lËp tr×nh sau ®Ó viÕt ch¬ng tr×nh Pascal hoµn chØnh Readln(c) i=1, j=n if c < ai or c > aj then KÕt thóc ch¬ng tr×nh while i