一、閱讀程式寫結果
1、for i:=1 to 6 do
begin
for j:=6-i downto 1 do
write('*':2);
writeln;
end;
輸出：2、for i:=1 to 100 do
if i mod 11=0 then write(i:10);
輸出：3、read(n); k:=n;
repeat
k:=k-1;
until n mod k =0;
write(k);
輸出：4、i:=1;
1:if i<=10 then
begin
total:=total+i;
i:=i+1;
goto 1
end;
write('total=',total);
輸出：5、i:=10;k:=0;
while (i>=10)and(i<=30) do
begin
k:=k+i;i:=i+2;
end;
writeln('k=',k);
輸出：6、program q1;
var num1,num2:integer;
begin
readln(num1);readln(num2);
if (num1>num2)
then writeln(num1,'>',num2)
else if (num1=num2)
then writeln(num1,'=',num2) else writeln(num1,'<',num2);
end.
輸入45 88
輸出輸入33 22
輸出7、program q2(input,output);
var a,b,c,d,sum:longint;
begin
read(a,b,c,d);
a:=a mod 23;b:=b mod 28;
c:=c mod 33;
sum:=a*5544+b*14421+c*1288-d;
sum:=sum+21252;
sum:=sum mod 21252;
if sum=0 then sum:=21252;
writeln(sum);
end.
輸入：283 102 23 320
輸出8、program q3(input,output);
var a,b:integer;
begin
read(a,b);
case a of
1:b:=a*10;
2:b:=a*20;
3:b:=a*30;
4:b:=a*40;
5:b:=a*50;
else b:=0
end;
writeln(b)
end.
輸入3 4
輸出輸入8 5
輸出 s,i:ingeger;
begin
s:=0;
for i:=1 to 100 do
if (i mod 3=0)and (i mod 4=0)
then s:=s+i;
writeln('s=',s)
end.
輸出: i:integer;
begin
for i:=1 to 100 do
if i mod 2=0 then
begin
write(i:4);
if i mod 5=0 then writeln;
end;
end.
輸出: i,j：integer；
begin
for i：＝1 to 5 do
begin
for j：＝5 downt0 i do
write('十』)；
writeln
endend．
輸出： n,i,a1,a2,a3:integer;
begin
readln(n);a1:=3;a2:=5;
write(a1:8,a2:8);
for i:=3 to n do
begin
a3:=a1+a2;a1:=a2;a2:=a3;
write(a3:8)
end;
end.
輸入:10
輸出: i，j, k，sum1，sum2：integer；
begin
sum1：＝0；sum2：＝0；k：＝1；
while k＜＝10 do
begin
if (k mod 2＝0)then
for i：＝1 to 5 d0
sum1：＝sum1十i
else
for j：＝1 to 5 d0
sum2：＝sum2十j；
k：＝k十1；
end；
writeln(suml，sum2)
end．
輸出： n：integer；
b，t：real；
begin
t：＝1；b：＝1；n：＝2；
repeat
b:=b*n；t:=t+b；n:=n+1
until n＞8;
writeln(t:3:0)
end．
輸出：15、var y,m,d:integer:
begin
readln(y,m);
case m of
1,3,5,7,8,10,12:d:=31;
4,6,9,11:d:=30
2:if(y mod 4)=0 and (y mod 100<>10) or (y mod 400=0)
then d:=29 else d:=28;
end;
writeln(y,d):
end.
input: 2000 2
輸出:二、請閱讀下面的流程圖，然後分別寫出對應的程式段。
寫成：寫成：
三、填空
1、求兩個數的最小公倍數
program p5_6(input,output);
var m,n,i,s:integer;
begin
readln(m,n);
i:=1; s:=m*i;
while s mod n<>0 do
begin
i:=i+1
end;
writeln(s);
end.
2、利用公式
π/4=1-1/3+1/5-1/7+...,求π的值，要求精確到最後一項小於10－4為止。
program p5_7(input,output);
var n,s:integer;t,pi:real;
begin
t:=1;pi:=0;n:=1;s:=_____;
whiledo
begin
pi:=_____;n:=n+2
t:=s/n;
end;
pi:=pi*4;
writeln(pi:10:6)
end.
3、請列印輸出如下的圖形。
program p5_9(input,output);
var j,k:integer;
begin
for j:=1 to 4 do
begin
for k:=1 to _____do
write(' ');
for k:=1 to 2*j-1 do
write('*');
write(' ');
for kdo
write('*');
writeln;
endend.
4、按三角形格式輸出九九乘法表
1*1=1
1*2=2 2*2=4
1*3=3 2*3=6 3*3=9
1*4=4 2*4=8 3*4=12 4*4=16
.....
program p5_10(input,output);
var i,j:integer;
begin
for i:=1 to 9 do
begin
fordo
write(j,'*',i,'=',i*j,' ');
writeln;
end;
end.
四、編寫程式
1、累加1到100；(for)
2、求兩個數a，b的最小公倍數和最大公約數；(while)
3、求水仙花數；所謂水仙花數，是指乙個三位數abc，如果滿足a^3+b^3+c^3=abc，則abc是水仙花數。(for, while)
4.輸出100以內的偶數。
5.輸出100以內能夠被5整除餘1的自然數。
6.根據輸入的自然數n求1+1/2+1/3+1/4+…+1/n的和。
7.任意給定乙個小數a，程式設計求不小於它的最小整數與不大於它的最大整數之和
8.程式設計將1-1000之間(含1000)所有能被7整除的數累加並輸出結果.
9.編乙個程式，將任意乙個兩位正整數平方後，取其百位數和十位數，構成乙個新的兩位整數。
10.*程式設計計算下列問題： 有一天小猴摘下了若干個桃子，當即吃掉了一半，還覺不過癮， 又多吃了乙個；第二天接著吃了剩下的桃子中的一半，仍不過癮， 又多吃了乙個；以後每天都吃尚存桃子的一半零乙個。
到第n天早上吃完後就只剩下—個了，問小猴那天共摘下了多少個桃子?(1≤n≤30)
11.*程式設計實現輸入乙個字母，輸出乙個菱形。該菱形中間一行由此字母組成， 其相鄰的上下兩行由它前面的乙個字母組成，按此規律，直到字母a出現在第一行和最末行為止。
例如： 輸入字母d，輸出如下：
ab b b
c c c c c
d d d d d d d
c c c c c
b b ba
三種基本戰略
在與五種競爭作用力抗爭中，有三種提供成功機會的基本戰略方法，可能使公司成為同行中的佼佼者 1 總成本領先戰略 overall cost leadership 2 差異化戰略 differentiation 3 目標集聚戰略。focus 有時公司可能成功地尋求一種以上的方法作為其基本目標，儘管如後面將...
三種賬務處理程式比較
名稱特點優點缺點 登記總分類賬的工作量較大。適用適用於一些規模較小，經濟業務量較少的單位。備註直接根據各種記賬憑證逐記賬憑證 簡單明瞭，易於理解。賬務處理程式筆登記總分類賬。定期 5天 10天或15天 將全部記賬憑證按收 付 彙總記賬憑證款憑證和轉賬憑證分別歸類編賬務處理程式製成彙總記賬憑證，然後再...
產品三種結構材質說明
第一部分 鋁木結構 1 實驗台採用12.7 的威盛亞實心理化板，顏色為黑色，部分檯面用美國威盛亞理化板貼面，厚度為0.9 顏色為黑色，基材為25mm三聚氰胺板。標液滴定分析室 2 櫃體 1 結構 採用厚18mm灰白色927三聚氰胺板製作，櫃體門板與抽屜四周採用鋁合金框架及封邊結構。2 背板 邊臺背板...