1樓：匿名使用者
問題補充：用pascal語言寫出源**！ 解答: 這是一道比較費腦筋的題目.花了我半個小時才理出了個頭緒. 要利用90個埃及分數：1／2，1／3，1／4
2樓：匿名使用者
2l的不行吧，埃及分數要用a*優化的搜尋，表示很有壓力
3樓：夢中的搖籃
var a,x,y:integer;
begin
write(『a=『);readln(a);
for x:=a+1 to 2*a do
if (a*x) mod (x-a)=0 thenbegin
y:= (a*x) div (x-a);
writeln(『1/』,a,』=1/』,x,』+1/』,y);
end;
readln;
end.
4樓：pascal工作者
你是江蘇省奧林匹克夏令營的吧，我也是
求pascal快速排序的程式，求pascal快速排序的程式一個。
var a array 1.100 of integer i,n integer procedure pop l,r integer var p1,p2,x,t integer begin p1 l p2 r x a l r div 2 repeat while a p1 x do inc p1 w...
求8數碼問題的A 演算法程式（PASCAL語言）
求8數碼a或a 演算法 用c語言 dfs hash 記憶化 爐灰出品。include define n 4 define swap a,b a a b b a b a a b int map n n hashta 99991 path 2000 min 150,book n n h 0,step 0...
急求 在家編制新的PASCAL程式為什麼會出現錯誤
翻譯下 錯誤15 檔案未找到 system.tpu system.tpu是pascal的核心單元,我們用的abs,trunc及所有常用語句都是這個單元中的,缺了這個單元肯定是沒法編譯的.檢查一下你的tp目錄下的unit目錄,看看有沒有system.tpu,沒有的話趕緊重灌.你是不是用vista了，軟...