free pascal問題跪求

1樓：0史記

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,b,x,y:longint;

begin

readln(a,b);

if a>b then begin

x:=a; y:=b;

end;

if ax:=b; y:=a;

end;

writeln('x=',x,' y=',y);

readln;

end.

2樓：真心人間

(1)var a,b,c,x:longint;

begin

readln(a,b,c);

x:=a;

if b>x then x:=b;

if c>x then x:=c;

writeln(x);

end.

(2)var x:longint;

begin

readln(x);

if x>0 then writeln(sqrt(x):0:2);

end.

(3)var x,y,t:longint;

begin

readln(x,y);

if x

t:=x; x:=y; y:=t;

end;

writeln('x=',x,' y=',y);

end.

未除錯，謹慎使用。

關於Free Pascal程式設計問題

迴圈問題。樓上講得很詳細，對樓上的進行補充一下迴圈語句的基本格式，這對初學者的用處也是不可忽視，得從基本的開始，先掌握理論，進行實戰，事半功倍。for 迴圈變數 初始值 to 終值 do迴圈體 接著就是了解方法，樓上已經把解題的方法講的很詳細了，綜合的應用就要看樓主自己的啦，多練習兩次，相信不難掌握...

free pascal問題，用函式和過程解。謝謝

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 t...

急free pascal問題 從1開始加（1 2 3 4加到幾的時候結果大於或等於

1 var sum,i longint begin i 0 sum 0 while sum 32767 do begin i i 1 sum sum 1 end writeln i end.2 var t,i,sum longint begin for i 1 to 10000 do begin s...