正文內容

遼師大版信息技術九年循環結構程序設計1-資料下載頁

2025-11-19 00:17本頁面

【導讀】固定次數的循環語句(FOR…>的值是否超過<終值>。如果超過就跳出循環，執行NEXT后面的語句；變量>，重復上述過程。30個學生的平均成績。例3編程：求：t=10!例4．輸出100以內能被3整除的所有整數。方法1分析：設初值為0，終值為100，步長為3.數列中第1、2個數是l，從第3個數起，該數是其前面2. 個數之和，這個數列稱為斐波那契數列。可是一個常數，QB將一切非零的數都視作“真”。WHILE和WEND必須成對使用。Ctrl+Break鍵,使之強制終止程序。例5．打印乘法“九九表”。

　　

【正文】將 n→m 作為被除數， r→n 作為除數，相除后余數為 r , 直到 r = 0。 ③ 最后一次的 n 就是最大公約數。 ④ 由數學知識可知：最小公倍數 = m=63:n=18 r= 63 mod 18=90 nm=18, rn=9 r= 18 mod 9=0 最大公約數 :9 最小公倍數 :63*18/9=126 (原 m*原 n)/最大公約數程序： INPUT m,n=。 m, n L = m * n r = m MOD n WHILE r 0 m = n n = r r = m MOD n WEND L =L / n PRINT “最大公約數 =。 n PRINT “最小公倍數 =。 L END FOR I=1 TO n IF m MOD I=0 and n MOD I=0 THEN k=I NEXT I : PRINT “最大公約數 =。 k 用定義如何作 ?。 IF mn then t=m :m=n:n=t 例 7（例 420）輸入一個整數 n (n≥ 3)，判斷它是否素數 (質數 )。(xjc25l13) 素數的定義：除了能被 1或其本身整除之外不能被其他數整除的數。 2～ n 1 FOR i% = 2 TO n1 IF n MOD i% = 0 THEN print n。“不是素數 ” : goto 10 NEXT i% PRINT n。“是素數 ” 10 END 分析：判斷數 n 是否素數的方法是：將 n 被 2～ n 間全部整數除，如果沒有一個數能整除 n， n 就是素數。程序中 flag為標志位，初值為 0。當 n被整除時，flag為 1，循環結束時根據 flag值判斷 n是否素數程序如下： FOR i% = 2 TO k IF n MOD i% = 0 THEN flag = 1 NEXT i% IF flag = 0 THEN PRINT n。 is a prime number. ELSE PRINT n。 is not a prime number. END IF END 用素數的定義如何作：將循環結束改為： n1 INPUT n=。 n k = INT(SQR(n)) flag = 0 例 8（例 421）任給定一年，判斷該年是否閏年。閏年的條件是：能被 4整除但不能被 100整除，或者能被 400整除。分析：設年份用 y表示，根據閏年條件可得出閏年的邏輯表達式：能被 4整除：不能被 100整除：能被 400整除： y MOD 4=0 y MOD l000 y MOD 400=0 (y MOD 4=0 AND y MOD l000) OR (y MOD 400=0) 去掉括號可否？ DIM y AS INTIGER INPUT 請輸入年份： ,y IF (y MOD 4=0 AND y MOD l000) OR (y MOD 400=0) THEN PRINT y。是閏年 ELSE PRINT y。不是閏年 END IF END 例 9（例 424）由 QBasic的隨機數發生器產生一個 100以內的整數，用戶從鍵盤上輸入一個數猜這個數，計算機會提示該數大了還是小了，直到猜準為止。分析： 1。 100以內的隨機整數 shu利用 RND函數和 RANDOMIZE語句產生 : INT(RND*100) 2。循環用直到型循環：循環體：輸入猜的數 x x與 shu比較，給出大，小，猜對提示 . 循環條件： 3。猜數時，可使用折半方法，取中間數輸入 LOOP UNTIL x = shu RANDOMIZE shu = INT(100 * RND ) cs = 0 DO INPUT 輸入一個 100以內的整數：。x cs = cs + 1 IF x shu THEN PRINT 太大了！ ELSEIF x shu THEN PRINT 太小了！ ELSE PRINT 猜對了！共猜了。cs。次 END IF LOOP UNTIL x = shu END 上機題 : P16 1 1 1 19 課外選作： 11， 12， 13， 21 電子教案在：郵箱：密碼： 666888 網頁地址：

點擊復制文檔內容

教學課件相關推薦

遼師大版信息技術九年循環結構程序設計1-資料下載頁

循環結構程序設計-資料下載頁

遼師大版信息技術五上第14課美化表格課件1-資料下載頁

教科版信息技術算法與程序設計fornext循環-資料下載頁

遼師大版信息技術九年函數與過程2-資料下載頁

蘇科版初中信息技術選修循環結構ppt課件1-資料下載頁

遼師大版信息技術六上第15課循環語句for-資料下載頁

遼師大版信息技術三上第5課認識鍵盤課件1-資料下載頁

循環結構vb程序設計-資料下載頁

遼師大版信息技術四上第6課設計藝術字標題課件1-資料下載頁

遼師大版信息技術三上第2課神奇的朋友課件1-資料下載頁

循環結構程序設計ppt課件-資料下載頁

初中信息技術程序和程序設計-資料下載頁

遼師大版信息技術七上使用菜單和對話框ppt課件1-資料下載頁

人教版信息技術九年第10課順序結構1-資料下載頁

遼師大版信息技術八上flash動畫-資料下載頁

遼師大版信息技術九年循環結構程序設計1(完整版)

遼師大版信息技術九年循環結構程序設計1(更新版)

遼師大版信息技術九年循環結構程序設計1(專業版)

遼師大版信息技術九年循環結構程序設計1(留存版)