原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
D2算法设计-测验2
D2算法設計 - 測驗2
姓名: _____________________
班別: ___________ ( ) 分數:___________
把以下的描述以偽代碼表示：
把10 賦予變量X
把變量A賦予變量M
把表達式2X + Y 賦予Z
遞增 C
輸入一個整數N
輸出表達式 3X-7 的值
_______X ( 10 ________
_______M ( A____________________
_______Z ( 2X+Y____________________
_______C ( C + 1 ________________
_______輸入 N___________________
_______輸出 3X-7 ______________
把以下的描述以Pascal程式碼表示：
把 2010 賦予變量 N
把表達式b2-4ac 賦予d
把字串LPY賦予字串變量W。
輸入一個整數N
輸出表達式 2n-1 的值
______N := 2010 ______________
______d := b*b – 4*a*c ____________________
______W := LPY ____________
______readln(N) ___________________
______writeln(2*n-1) ____________________ 以流程圖、偽代碼及Pascal表達以下算法：
設計一程式讓使用者輸入兩個整數(A 和 B)，並計算其總和(S)，接著把結果輸出。
輸入A, B
S ( A+B
輸出S
Program q3;
Var A, B, S : integer;
Begin
Readln(A, B);
S := A+ B;
Writeln(S)
End.
設計一程式讓使用者輸入10個數字，數一數有多少個數字是大於0，然後將數量顯示在螢幕上。Program q4;
Var X,I,C:integer;
Begin
C := 0;
For I := 1 to 10 do
Begin
Readln(X);
If X 0 then
C := C + 1
End;
Writeln(C)
End.
設計一程式讓使用者輸入10個數字，然後將最小值顯示在螢幕上。
Program q5;
Var min, I, X:integer;
Begin
min:=9999;
for I:=1 to 10 do
begin
readln(X);
if X min then
min := X
end;
writeln(min)
end.
設計
Program q6;
Var a:array[1..10] of integer;
i:integer;
Begin
For i:= 1 to 5 do
Readln(a[i]);
For i:= 5 downto 3 do
a[i+1] := a[i];
a[3] := 50;
for i:= 1 to 6 do
writeln(a[i])
end.
使用提示文字，設計一程式輸入1至40號同學的姓名，然後隨機抽出一名同學，並顯示其姓名。
Program q7;
Var a:array[1..40] of string;
i,x:integer;
begin
for i:= 1 to 40 do
begin
write(Name of no.,i,:);
readln(a[i])
end;
x := trunc(random*40)+1;
writeln(a[x])
end.
設計一程式輸入字串，然後將該字串倒轉輸出，顯示如下：
Enter a string: abcde
The reversed string: edcba
Program q8;
Var s:string;
i:integer;
begin
write(Enter a string:);
readln(s);
write(The reversed string:);
for i:= length(s) downto 1 do
write(s[i])
end.
設計一程式模擬擲毫１００次，顯示有多少次面(head)？多少次底(tail)?
Program q9;
Var ch, ct, i,x:integer;
Begin
ch := 0;
ct := 0;
for i:= 1 to 100 do
begin
x := trunc(random*2);
if x =
文档评论（0）