1樓：大翔龍
您好樓主：
program t1;
vari,l,r:longint;
a:array[1..5] of longint;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do begina[i]:=a[i] div 3;
l:=i-1; if l=0 then l:=5;
r:=i mod 5+1;
a[l]:=a[l]+a[i];
a[r]:=a[r]+a[i];
end;
for i:=1 to 5 do write(a[i],' ');
writeln;
end.
希望對你有幫助。
2樓：
vari,l,r:longint;
a:array[1..5] of longint;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do begin //模擬一輪的分糖過程
a[i]:=a[i] div 3;
l:=i-1; if l=0 then l:=5;
r:=i mod 5+1;
a[l]:=a[l]+a[i];
a[r]:=a[r]+a[i];
end;
for i:=1 to 5 do write(a[i],' ');
writeln;
end.
//直接在回答框上打的，如果有點小錯請見諒，(*^__^*) 嘻嘻
3樓：
優化程式：
vara:array[1..5]of longint;
i,j,k,l,m,n:longint;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do begina[i]:=a[i]-a[i]mod 3;//吃糖if i=5 then a[1]:
=a[1]+a[i] div 3 else a[i+1]:=a[i+1]+a[i]div 3;//給右邊的
if i=1 then a[5]:=a[5]+a[i] div 3 else a[i-1]:=a[i-1]+a[i]div 3;//給左邊的
a[i]:=a[i] div 3;//自己剩的end;
for i:=1 to 5 do write(a[i]:4);
readln;
end.
要free pascal遊戲程式
你太天真了。和計算機玩石頭剪子布還可以。free pascal中的自帶的遊戲該怎麼開啟 用於存放源 是記事本檔案 第一個是，exe檔案這個不能叫軟體，雙擊後可以執行，有用的有三個 第三個是。其實這個編成的程式可以用free pascal直接檢視 第二個是，是備份的源 pas檔案沒有可以從.bak檔案...
Free Pascal語言當中的迴圈問題我一直搞不懂，誰能具
for i 1 to n do begin end 就是把i從1到n每次做一遍begin和end之間的東西。比方說 是s s i 就可以算出從1到n的和了希望能幫到您 pascal中一共有三種常用迴圈 for迴圈 repeat迴圈還有while迴圈 for迴圈格式 for 一個整形變數 to n d...
關於彙編程式問題，關於彙編裡子程式的問題
用組合語言程式設計如下 code segment assume cs code a dw 1357h 隨意定義兩個資料.b dw 2468h start mov ax,codemov ds,ax mov ax,a 開始處理.test ax,1 jnz a odd 為奇數轉移.mov bx,b tes...