新高中課程簡介會 資訊及通訊科技科 Information and Communication Technology (ICT)
Information and Communication Technology 科技 資訊 通訊
選項D:軟件開發 program p 1 a 9_2003; uses crt; var symbol : string[2]; count, i, num, turn : integer; top : array[1. . 8] of integer; tubes : array[1. . 6, 1. . 8] of integer; finished : boolean; ch : char; color : array[1. . 2] of byte; procedure initialize; var i, j : integer; begin for i : = 6 downto 1 do for j : = 1 to 8 do tubes[i, j] : = 0; for i : = 1 to 8 do top[i] : = 1; end; procedure check_win(tu : integer; var win : boolean);