1樓：匿名使用者
procedure wh1(i:integer);
procedure wh2(i:integer);
begin
if i<100 then begin wh1(i+1);writeln(0-i);end;
end;
begin
if i<100 then begin wh2(i+1);writeln(i);end;
end;
begin
wh1(1);
end.
2樓：
可以用forwand
procedure wh2(i:integer);
forward;
procedure wh1(i:integer);
begin
if i<100 then begin wh2(i+1);writeln(i);end;
end;
procedure wh2(i:integer);
begin
if i<100 then begin wh1(i+1);writeln(0-i);end;
end;
begin
wh1(1);
end.
這樣就行了
3樓：弘雅
把後面個過程寫在前面去
PASCAL陣列問題
這是 後面有 的說明 program zhishu const max 50100 var a array 1.max of 0.1 b array 1.2,1.10000 of longint n,i,j,k longint begin assign input,zhishu.in reset i...
sql儲存過程如何呼叫儲存過程，SQL儲存過程如何呼叫儲存過程？
1 首先先建立一個儲存過程，如圖，儲存過程主要的功能是為表jingyan插入新的資料。2 執行這幾行 看到執行成功，資料庫裡現在已經有儲存過程sp jy。3 先看下jingyan表裡目前的陣列，如圖，只有三行資料。4 在mysql裡，呼叫儲存過程，只需要用call關鍵字，帶上儲存過程的名稱就行了，當...
數字排列問題（pascal語言）
1.建議不要用const,在主程式上readln n 2.a 1 i 這裡是錯的，應該是a i i 你寫成了a 1 3.for i 1 to n do begina 1 i find 2 end這裡find 2 不要放在迴圈裡面，正確的是for i 1 to n do begina 1 i endf...