1樓：匿名使用者
5. var a:array[1..32767]of boolean;
b:array[1..40]of integer;
i,s,t:integer;
begin
for i:=1 to 32767 do a[i]:=false;
write(1:8,2:8);
a[1]:=true;
b[1]:=1;
b[2]:=2;
s:=2;
repeat
i:=1;
while a[i] do i:=i+1;
write(b[s]+i:8);
b[s+1]:=b[s]+i;
for i:=1 to s do
a[b[s+1]-b[i]]:=true;
s:=s+1;
until s=40;
writeln;
end.
一樓的是pascal?
2樓：匿名使用者
...把1和2放進陣列s中；
把1放進陣列cha中；
當尋找下一個自然數時，要把這個自然數與陣列s中的每一個數相減，再判斷所得的差是否在陣列cha中；
如果所得的差不在陣列cha中，說明又找到一個滿足條件的自然數。把這個自然數放進陣列s中，同時把這個自然數與陣列s中原有的每一個自然數的差記錄在陣列s中去。
如果所得的差與陣列cha中的某一個數重複，說明這個自然數不符合條件，繼續尋找下一個自然數。
重複步驟（3），直到找到40個自然數為止。
程式清單：
clsinput "n="; n
dim s(n), cha(3000)
s(1) = 1: s(2) = 2
cha(1) = 1: s = 2: y = 2: print 1, 2,
1 : y = y + 1
for k = 1 to s
print k, y, s(k), cha(y - s(k))
if cha(y - s(k)) = 1 then goto 1
next k
s = s + 1: s(s) = y
for k = 1 to s - 1
cha(y - s(k)) = 1
print y - s(k), cha(y - s(k))
next k
print y, : if s < n then goto 1end
3樓：粉紅的曉曉
1. program p4-33;
vardong,hong,bo,tai:integer;
begin
for dong:=1 to 4 do
for hong:=1 to 4 do
if hong<>dong then
for bo:1 to 4 do
if(hong<>bo) and(bo<>dong) then begin
tai:=10-dong-hong-bo;
if(ord(dong=1)+ord(hong=4)+ord(bo=3)=1)and(ord(hong=1)+ord(dong=4)+ord(bo=2)+ord(tai=3)=1)and(ord(dong=3)+rod(hong=4)=1)and(ord(bo=1)+ord(tai=4)+ord(hong=2)+ord(dong=3)=1)
then
writeln('dong:',dong,'hong:',hong,'bo:',bo,'tai:',tai);
3. program p6-11;
var yh:array[1..10,1..10]of integer;
i,j:integer;
begin
yh[1,1]:=1;
for i:=2 to 10 do
begin
yh[i,1]:=1;yh[i,i]:=1;
for j:=2 to i-1 do
yj[i,j]:=yh[i-1,j-1]+yh[i-1,j];
end;
writeln('yang hui:');
for i:1 to 10 do
begin
write('':40-3*i);
for j:=1 to i do write(yh[i,j]:6);
writeln;
end;
end.
執行結果：
yang hui:
1 1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1
1 9 36 84 126 126 84 36 9 1
pascal基礎問題，pascal問題
var a，b，c integer d boolean begind true while d true do beginreadomize a random 10 b random 10 c a b if c 18 then d false writeln a,b,c end end.有必要註明一...
pascal程式練習題，pascal程式設計練習題答案
1 var n,s integer a array 1.3 of integer begin read n a 1 n mod 10 a 2 n div 10 mod 10 a 3 n div 100 s s a 1 a 2 a 3 write s end.2.var n integer a arr...
PASCAL程式設計問題，PASCAL程式設計問題
我剛剛自己編的 試過了 肯定對 程式中公雞數量為a 母雞數量為b 小雞數量為c 輸出順序為 a1 b1 c1 a2 b2 c2 如下 for迴圈 vara,b,c integer begin for a 1 to 100 div 3 do for b 1 to 100 a div 2 do begi...