【文章內(nèi)容簡(jiǎn)介】 月 1日 0時(shí) 0分 0秒開(kāi)始到該時(shí)刻總共過(guò)了多少秒。現(xiàn)在希望你幫助完成此事，給你一個(gè)時(shí)間戳，你要寫(xiě)個(gè)程序計(jì)算出恐怖活動(dòng)在那一天實(shí)施。（這里為了簡(jiǎn)單起見(jiàn)，規(guī)定一年 12個(gè)月，每個(gè)月 30天） 1）輸入 n的值 2） y=n div 31104000+1970 3） m=n mod 31104000 div 2592022+1 4） d=n mod 31104000 mod 2592022 div 86400+1 輸入 ：輸入一個(gè)整數(shù) n(0≤n≤21474836 ），表示從 1970年 1月 1日 0時(shí)0分 0秒開(kāi)始到該時(shí)刻過(guò)了 n秒 輸出 ：一行三個(gè)整數(shù) y,m,d，表示恐怖活動(dòng)在 y年 m月 d日實(shí)施 算法 program p3_7。 const years=31104000。 months=2592022。 days=86400。 var n:longint。 y,m,d:integer。 begin readln(n)。 y:=n div years+1970。 m:=n mod years div months+1。 d:=n mod years mod months div days+1。 writeln(y,39。/39。,m,39。/39。,d)。 readln end. 輸入： 1304324570 輸出： 2022/12/7 【 分糖果問(wèn)題 】 某幼兒園里有 5個(gè)小朋友，編號(hào)為 1， 2， 3， 4， 5，他們按自己的編號(hào)圍坐在一張圓桌旁。他們身上都有若干糖果，現(xiàn)在他們做一個(gè)分糖果游戲。從 1號(hào)小朋友開(kāi)始，將他的糖果平均分成 3分（如果有多余的，則他將多余的糖果吃掉），自己留一份，其余 2份分給他相鄰的兩個(gè)小朋友。接著 2號(hào)，3號(hào)， 4號(hào)， 5號(hào)小朋友也這樣做。問(wèn)一輪后每個(gè)小朋友手上分別有多少糖果？ 1）輸入 5個(gè)小朋友糖果的初值 a,b,c,d,e 2）第一次 a=a div 3 b=b+a e=e+a 算法 3）第二次 b=b div 3 c=c+b a=a+b 4）第三次 c=c div 3 d=d+c b=b+c 5）第四次 d=d div 3 e=e+d c=c+d 6）第五次 e=e div 3 a=a+e d=d+e 7）輸出 a,b,c,d,e program p3_7。 var a,b,c,d,e:integer。 begin readln(a,b,c,d,e)。 a:=a div 3。b:=b+a。e:=e+a。 b:=b div 3。c:=c+b。a:=a+b。 c:=c div 3。d:=d+c。b:=b+c。 d:=d div 3。e:=e+d。c:=c+d。 e:=e div 3。a:=a+e。d:=d+e。 writeln(a,39。 39。,b,39。 39。,c,39。 39。,d ,39。 39。, e)。 readln end. 上 機(jī) 練 習(xí) program ss。 var a,b:integer。 begin a:=3。b:=128。 _____________ _____________ _____________ _____________ end. 給程序添加四條輸出語(yǔ)句，輸出 a+b的豎式表達(dá)式？ 輸出樣例： 3 + 128 131 編寫(xiě)一個(gè)能將任意的 3位數(shù)整數(shù)的個(gè)位、十位、百位加起來(lái)的程序？ 輸入： 693 輸出： 6+9+3=18 輸入一個(gè)時(shí)間的秒數(shù)，分別將其換算為下述時(shí)間單位輸出： 小時(shí) 天 星期 輸入： 604800 輸出： 604800s＝ 168h＝ 7d＝ 1w 第 四 講 選擇結(jié)構(gòu)程序設(shè)計(jì) 條件 分支結(jié)構(gòu) 不成立 成 立 從鍵盤(pán)輸入一個(gè)正整數(shù)，判斷并輸出它是奇數(shù)還是偶數(shù)。 program p4_1。 var x:integer。 begin readln(x)。 if x mod 2=1 then writeln(39。jishu39。) else writeln(39。oushu39。)。 end. x mod 2=1 writeln(’oushu’) false writeln(’jishu’) true begin end readln(x) 【 判斷奇偶數(shù) 】 if 語(yǔ)句 格 式 1: if 條件表達(dá)式 then 語(yǔ)句 1 else 語(yǔ)句 2。 常用寫(xiě)法 if 條件表達(dá)式 then 語(yǔ)句 1 else 語(yǔ)句 2。 if 條件表達(dá)式 then 語(yǔ)句 。 格 式 2: 語(yǔ)句 2 語(yǔ)句 1 布爾表達(dá)式 false true 語(yǔ)句 1 布爾表達(dá)式 true false 布爾表達(dá)式 布爾表達(dá)式是指值為布爾型（即： true 或 false）的表達(dá)式，它可以是布爾型常量、變量以及關(guān)系表達(dá)式和邏輯表達(dá)式等。例如： 10099 2*31*6 ’a’’b’ x mod 2=1 (x=60) and (x=90) (year mod 4=0) and (year mod 1000) or (year mod 400=0) true false fasle 例 2:變量 a的值為 100，變量 b的值為 20，請(qǐng)寫(xiě)出以下表達(dá)式的結(jié)果。 ab a=(b+20) (a=100) and (b20) (a=b) and (b10) (a=b) or (b10) (a200) or (b=20) not((a200) and (b=20)) not((a200) or (b=20)) true false false false false true false true 從鍵盤(pán)輸入三根小木棒的長(zhǎng)度，判斷能否用它搭出一個(gè)三角形。 program p4_2。 var a,b,c:integer。 begin readln(a,b,c)。 if (a+bc) and (a+cb) and (c+ba) then writeln(’OK’)。 end. 兩邊之和 第三邊 true begin end 輸入 a,b,c false 輸出‘ OK‘ 【 判別三角形 】 從鍵盤(pán)輸入 a,b兩個(gè)整數(shù)，并且按從小到大的順序輸出 program p4_3。 var a,b,t:integer。 begin readln(a,b)。 if ab then writeln(a,b) else writeln(b,a)。 end. 方法一 ab true begin end 輸入 a,b false 輸出 b,a 輸出 a,b 【 數(shù)字排序 】 program p4_4。 var a,b,t:integer。 begin readln(a,b)。 if ab then begin t:=a。 a:=b。 b:=t。 end。 writeln(a,b)。 end. ab 交換 a,b true begin end 輸入 a,b false 輸出 a,b 方 法 二 簡(jiǎn) 單 語(yǔ) 句 和 復(fù) 合 語(yǔ) 句 在 Pascal中，語(yǔ)句分為 簡(jiǎn)單語(yǔ)句 和 復(fù)合語(yǔ)句 兩大類(lèi)；所謂簡(jiǎn)單語(yǔ)句，又稱(chēng)為基本語(yǔ)句，是指不能再分解的語(yǔ)句；而復(fù)合語(yǔ)句是由若干其他語(yǔ)句所組成的語(yǔ)句，這些語(yǔ)句一般要通過(guò) begin和 end進(jìn)行復(fù)合。 write(39。please input year:39。)。 簡(jiǎn)單語(yǔ)句 if ab then begin c:=a。 a:=b。 b:=c。 end。 復(fù)合語(yǔ)句 從鍵盤(pán)輸入 a,b,c三個(gè)整數(shù)，并且按從小到大的順序輸出 . program p4_5。 var a,b,c:integer。 begin readln(a,b,c)。 if (ab) and (bc) then writeln(a,b,c)。 if (ac) and (cb) then writeln(a,c,b)。 if (ba) and (ac) then writeln(b,a,c)。 if (bc) and (ca) then writeln(b,c,a)。 if (ca) and (ab) then writeln(c,a,b)。 if (cb) and (ba) then writeln(c,b,a)。 end. 1）輸入 a,b,c 方法一 2）如果 abc，則輸出 a,b,c。 3）如果 acb，則輸出 a,c,b。 4）如果 bac，則輸出 b,a,c。 5）如果 bca，則輸出 b,c,a。 6）如果 cab，則輸出 c,a,b。 7）如果 cba，則輸出 c,b,a。 【 三數(shù)排序 】 ab 交換 a,b true false program p4_5。 var a,b,c,t:integer。 begin readln(a,b,c)。 if ab then begin t:=a。 a:=b。 b:=t。 end。 if ac then begin t:=a。 a:=c。 c:=t。 end。 if bc then begin t:=b。 b:=c。 c:=t。 end。 writeln(a,b,c) end. begin 輸入 a,b,c end 輸出 a,b,c ac 交換 a,c true false bc 交換 b,c true false 方 法 二 begin 輸入 a,b,c ab true 輸出 a,b,c bc true 輸出 c,a,b false false ac 輸出 a,c,b true 輸出 b,c,a false false cb 輸出 c,b,a true true ac 輸出 b,a,c false end 條件嵌套 方 法 三 program p4_5。 var a,b,c:integer。 begin readln(a,b,c)。 if ab then if bc then writeln(a,b,c) else if ac then writeln(a,c,b) else writeln(c,a,b) else if cb then writeln(c,b,a) else if ac then writeln(b,a,c) else writeln(b,c,a)。 end. case 語(yǔ)句 格式： case 表達(dá)式 of 常量表 1：語(yǔ)句 1； 常量表 2：語(yǔ)句 2； 常量表 3：語(yǔ)句 3； …… 常量表 n：語(yǔ)句 n。 [else 語(yǔ)句 n+1] end。 可以是復(fù)合語(yǔ)句 例如： case a of 1,3,5 : writeln(’奇數(shù)’ )。 2,4,6 : writeln(’偶數(shù)’ )。 end。 例如： case a of 1,3,5 : writeln(’奇數(shù)’ )。 2,4,6 : writeln(’偶數(shù)’ )。 else writeln