1樓：網友
原創的哈~我覺得寫pascal的風格其實就是適時按下tab跳幾格~
如果你是用fp的話 在options裡面有個editor裡面有個填數字的選項(想不起來叫什麼了- -可以更改按一次tab跳的空格數 原來是8的 我一般改成4~感覺8太多了 要是多tab幾下就看不到了。
tp裡面好像不能改。很早用的 沒印象了~~
然後program 還有主程式的begin end都是貼著左邊的。
var const等就按下tab再打。
在主程式部分 每句都是空出乙個tab的空格數(有的器都會自動的``沒有的話你就每次回車再按下tab~) 然後如果這個語句比較長 或者有分句 就換行之後 在分句的部分再多一次tab
其實主要就是怕迴圈和if會亂掉 你就記住主體的是乙個tab 在一層迴圈內的語句就用兩個tab 以此類推。
大概舉例下~
program abc;
var ..
beginfor i:=1 to n do if i=1 thenbegin
end;if i=n then
beginfor x:=1 to n do begin
end;end elsebegin
end;end.
其實比較靈活的 也不一定要這樣 只要你能比較容易看出某語句是在哪個迴圈或者if裡面就行~
2樓：網友
program 頂頭。
var 縮排乙個。
.內容縮排乙個。
beginfor xx
beginend;
whilebegin
end;end.
3樓：網友
program game;
uses crt;
const yifuzhi:array[0..8]of integer=(0,3,6,9,12,15,20,25,30);
wuqizhi:array[0..8]of integer=(0,5,10,15,20,25,30,40,50);
xiezizhi:array[0..8]of integer=(0,1,2,3,4,5,6,7,8);
var beibao:array[1..6] of longint;
renwu11:array[1..100,1..100] of boolean;
jiguan,baowu:array[1..100,1..100] of string;
mon,dengji,xianling,gongjix,fangyux,xinyunx,xuex,mox,gongji,fangyu,xinyun,xue,mo,i,j,k,l,o,p,jingyan,guaishu,zx,zy,jiguanshu:longint;
gxue,gfang,ggong:array[1..100] of longint;
name:string;zz:char;
migong:array[1..100,1..100] of char;
wuqi,yifu,xiezi,weizhi,renwu,gxue1,gfang1,ggong1:longint;
cundang:array[1..100] of string;
如上，對齊)
beginfor xx
beginread(空兩格)
end;while
beginread(同上)
for xx
beginif ddsaf then
beginend else
beginend;
end;end;
end.
pascal程式設計
4樓：網友
"每隻猴子擁有的香蕉數量也是1到n" + "編號是i的猴子決定要吃i只香蕉"
那即是， 每個猴子都只是吃完自己的蕉。
編號 1, 得 1 只蕉， 吃 1 只蕉。
編號 n, 得 n 只蕉， 吃 n 只蕉。
所以編號 i, 得 i 只蕉， 吃 i 只蕉"如果它擁有的香蕉足夠，那就最好；如果不夠，先吃完自己的，然後它就要問飼養員要香蕉。總之要吃i只香蕉。" --這是一定可以的。
如果有某乙隻猴子吃完了自己的香蕉，而且正好夠（不用問飼養員要），那麼它會變得比較鬱悶，所以我們不允許任何乙隻猴子出現這種情況。" --這個是想怎樣 ? 到底是要吃 i 只蕉 ?
還是吃完 i 只， 但看到別的還在吃就會不滿 ?
在兩個方案" --那來的兩個方案 ?
pascal 程式設計
5樓：墨夜銀燭
如上圖，輸入、輸出的截圖。
vara,b,c,x,y,t:double;
beginreadln(a,b,c);
t:=b*b-4*a*c;
if t>0
then begin
x:=-b/(2*a); y:=sqrt(t)/(2*a);
writeln('x1=',x+y:0:3,' x2=',x-y:0:3);
endelse if t=0 then writeln('x=',-b/(2*a):0:3)
else begin
x:=-b/(2*a); y:=sqrt(-t)/(2*a);
writeln('x1=',x:0:3,'+',y:0:3,'i x2=',x:0:3,'-',y:0:3,'i');
end;end.
pascal 全國聯賽，pascal競賽問題
pascal競賽問題 這是noip 年的提高組的初賽題目其實很簡單的就是乙個 不想領的排列 公式 c n m ，m 那麼帶入進去就是 c ， 裡面的數值代表階乘 你應該知道吧！！！計算出來就是啦？以後同樣問題就可以如此做啦。還有乙個可以重複的排列的 c n m ，m 他們兩個很像，不要混亂哦，乙個是...
pascal程式問題，Pascal程式問題
5.var a array 1.32767 of boolean b array 1.40 of integer i,s,t integer begin for i 1 to 32767 do a i false write 1 8,2 8 a 1 true b 1 1 b 2 2 s 2 repe...
pascal程式練習題，pascal程式設計練習題答案
1 var n,s integer a array 1.3 of integer begin read n a 1 n mod 10 a 2 n div 10 mod 10 a 3 n div 100 s s a 1 a 2 a 3 write s end.2.var n integer a arr...