高一电脑幻灯片.pptVIP

考題 5-1 小明的弟弟很喜歡問他：「1 + 1 = 多少？」，你如果回答：「2」，他會繼續問：「那 2 + 2 = 多少？」，你如果再回答他，他就會再繼續問下去。小明覺得很煩，於是叫他弟弟抽撲克牌，抽到幾點 (A=1, J=11, Q=12, K=13)，就只能問幾次。請寫出一個程式，用亂數模擬抽撲克牌，然後預測小明最後的答案會是多少？ 例如：抽到 8 ，就顯示 256。　　　抽到 12，就顯示 4096。 參考程式： program double; {$APPTYPE CONSOLE} var c, d: integer; begin writeln (Card: , c); d := 1; d := d + d; c := c - 1; writeln (d); readln; end. 994 個「我愛妳」 下面的程式可以印出 994 個「我愛妳」： program Project3; {$APPTYPE CONSOLE} var c: integer; begin c := 7; while c=1000 do begin writeln (c, 我愛妳！); c := c + 1; end; writeln (再見了，我的愛！); readln; end. for … do … 敘述 語法：for 控制變數 := 起始值 to 終止值 do 敘述 ; 意義：控制變數 := 起始值 ;while 控制變數 = 終止值 dobegin 敘述 ; 控制變數 := 控制變數 + 1;end; for … do … 廻圈的應用 左側的 while … do … 廻圈可以用 for … do … 廻圈改寫成右側較簡潔的程式： program love; {$APPTYPE CONSOLE} var c: integer; begin c := 7; while c=1000 do begin writeln (c, 我愛妳！); c := c + 1; end; writeln (再見了，我的愛！); readln; end. program love; {$APPTYPE CONSOLE} var c: integer; begin for c := 7 to 1000 do writeln (c, 我愛妳！); writeln (再見了，我的愛！); readln; end. 作業 6-1 用 for … do … 廻圈完成下面的程式以求出 1 .. n 的和。 參考程式： program sumation; {$APPTYPE CONSOLE} var n, sum, i: integer; begin write (輸入一個正整數 n：); readln (n); sum := 0; sum := sum + i; writeln (1+2+3+...+n = , sum); readln; end. 九九乘法表 請寫一程式在螢幕上顯示以下的乘法表： 2 * 1 = 2 2 * 2 = 4 2 * 3 = 6 2 * 4 = 8 2 * 5 = 10 2 * 6 = 12 2 * 7 = 14 2 * 8 = 16 2 * 9 = 18 九九乘法表 下面的程式雖可以達到目的，但是也太沒有效率了。 program Project1; {$APPTYPE CONSOLE} begin writeln (2 * 1 = 2); writeln (2 * 2 = 4); writeln (2 * 3 = 6); writeln (2 * 4 = 8); writeln (2 * 5 = 10); writeln (2 * 6 = 12); writeln (2 * 7 = 14); writeln (2 * 8 = 16); writeln (2 * 9 = 18); readln; end. 九九乘法表 利用 for … do … 廻圈，可以寫出較簡潔的程式來。 program Project1; {$APPTYPE CONSOLE} var j: integer; begin for j := 1 to 9 do writeln (2 * , j, = , 2*j); readln; end.