1樓：匿名使用者
1、 var a,b,c,s:integer;
procedure max(a,b,c:integer;var s:integer);
var tmp:integer;
begin
if a>b then tmp:=a;a:=b;b:=tmp;
if a>c then tmp:=a;a:=c;c:=tmp;
if b>c then tmp:=b;b:=c;c:=tmp;
s:=c;
end;
begin
readln(a,b,c);
max(a,b,c,s);
writeln(s);
end.
其他的問題我臨時沒有時間 如果你不急的話 我會在 這週五晚上完整回答 我是個學生。
其實你的問題都是一些很基本的問題 1、2、4 基本上就是排序演算法 3、其實更簡單 定義一箇中間變數， 例如 ： 把a、b的值交換 tmp:=a; a:
=b; b:=tmp; 就相當於是加了一箇中轉站。
我的qq是 597736446 還有問題可以隨時問我。
2樓：匿名使用者
1-2-3-4-5-6-7-8-9-10
free pascal問題跪求
vara,b,c,t longint begin readln a,b,c if at a a b b t end if a0 then writeln sqrt x 0 5 else if x 0 then writeln x 0 else writeln x 0 readln end.vara,...
關於Free Pascal程式設計問題
迴圈問題。樓上講得很詳細，對樓上的進行補充一下迴圈語句的基本格式，這對初學者的用處也是不可忽視，得從基本的開始，先掌握理論，進行實戰，事半功倍。for 迴圈變數 初始值 to 終值 do迴圈體 接著就是了解方法，樓上已經把解題的方法講的很詳細了，綜合的應用就要看樓主自己的啦，多練習兩次，相信不難掌握...
用free pascal幫我完成以下練習！！急
no.1 vara,b,c integer begin a 1 b 12 c 123 writeln a writeln b writeln c writeln writeln a 3 writeln b 3 writeln c 3 end.no.2 varn,i integer begin rea...