1樓：網友
program gougu;
var i,a,b,c,d:integer;
begind:=0;
for a:=1 to 2000 do
for b:=1 to 2000 do
for c:=1 to 2000 do
if (a*a+b*b=c*c) and (athenbegin
d:=d+1;
write(a:5,b:5,c:5);
if (d mod 6=0) then writeln;
readln;
end;end.
這是我慎扒自己寫稿銷的，我試用過了，絕對正確！
注：看數字的時候要按回鍵孝遊車),你慢慢看吧。
---===:::turbo pascal 程式設計問題 , 高手進:::===---
2樓：網友
同志啊。 free pascal編譯都不過。turbo也不行。讓我怎麼給你差錯啊，而且演算法也不知道。起碼也告訴下啊。
3樓：我的偶像是周瑜
好長。
這年頭誰還用goto，還用tp啊樓主。
4樓：網友
這個不難，你先編出原文轉密文的程式。
然後把程式的賦值語句全部反過來就可以啦。
如果還不行，你再發個郵件給我吧：傳送時記住把題目一併發過來哦）
turbo pascal 程式設計錯誤
5樓：網友
program qqw;
varm,n,t,q,w:longint;e,i,r,l:integer;
s,a:array[1..35]of integer;
beginreadln(n,r);
l:=0;q:=n;w:=n;
m:=trunc(q);
t:=fruc(w);
while q>o do begin （o改成0）inc(l);
a[l]:=q mod r;
q:=a div r;
end;l:=0;
while w>0 do begin
inc(l);
s[l]:=tranc(w*r);（tranc是不是寫錯了額，應該是trunc吧，後面的frac也是。
w:=frac(w*r);
end;write('(',n,')10=(');
for i:=l downto 1 do
if a[i] <10 then write(a[i])else write(chr(a[i]+55));
write('.');
for i:=l downto 1 do
if a[i] <10 then write(a[i])else write(chr(a[i]+55));
writeln(')',r);
end.
6樓：網友
建議用編譯，資料範圍會更大，用longint
7樓：網友
1 t:=fruc(w); 什麼東東！
2 o 沒定義。
3 tranc(w*r); 什麼東東！
4 用longint
5 程式無法結束。
程式設計問題（turbo pascal）
8樓：網友
這是我冊租寫的，都對返襲，希望能幫助你。
var a,b,c,d:integer;
beginreadln(a,b,c);
if a>b then begin
d:=a;a:=b;b:=d;
end; if a>c then begind:=a;a:=c;c:=d;
end; if b>州世兆c then begind:=b;b:=c;c:=d;
end; writeln(a,' b,' c);
end. 要加分哦~
o(∩_o~
turbo pascal程式設計
9樓：清白夏侯
加在倒數第二個end後面，113應該是型別問題，你把變數都改成real試試，
耳機2000元貴麼，求推薦1500元內的耳機
根據你的經濟情況，自己覺得不貴就可以了。求推薦1500元內的耳機 你聽什麼型別的流行？這個價位可選的可不少推薦幾個不同型別的自己選擇下。聽一般流行特別是男聲推薦索尼e x 800 三頻均衡 聲音圓潤 流行渲染到位 那種比較萌的女聲也不錯 這種風格也可以選擇森海m x 980相對整體味道清淡了點 聲場...
請問有人知道廣西看風水歷害的大師嗎？求
天機之門，創始於雲南大理，在廣西省平果縣有辦事處，掌門大師非常隨和，有機會你可以到他們辦事處先看一看 廣西南寧最厲害的風水大師是誰？廣西南寧最好的風水師是誰？廣西南寧風水師無量子，在中國算是最厲害的風水師。建築專家，電視臺驗房屋節目那個？廣西南寧最厲害的風水大師是誰？謝謝啦 廣西南寧風水師無量子，在...
今天吃了很像大隻的橘子的柚子，請問有人知道這柚子是什麼品
這種叫胡柚。酸甜，汁多。每一瓣的皮較厚。柚子和橘子什麼關係啊？柚子整個不就是一個大號橘子嘛。桔子 果實較小，常為扁圓形，皮色橙紅 硃紅或橙黃。果皮薄而寬鬆，海綿層薄，質韌，容易剝離，囊瓣7至11個。味甜或酸，種子呈尖細狀，不耐貯藏。柚子 柚子是柑桔類水果的一種，更是其中果實最大的。皮較厚，皮的外觀不...