1樓：聽不清啊
vara, b: integer;
function work(a, b: integer): integer; //求a和b的最大公約數
begin
if a mod b <> 0 then //如a不能被b整除
work := work(b, a mod b) //a和b的最大公約數等於b和a mod b 的最大公約數
else
work := b; //如a能被b整除,a和b的最大公約數就等於b
end;
begin
read(a, b); //讀入a和b的值
writeln(work(a, b)); //work是自定義函式名（自己取的名字），它的功能在上面已作詳細介紹
end.
輸入：20 12
輸出：___4____
2樓：匿名使用者
這個程式是求最大公約數的，這個怎麼逐字翻譯？？？
var（定義變數）
a, b: integer;（a，b變數屬於整型integer）
functionwork(a, b: integer): integer;（自定義函式work求最大公約數）
begin
if a mod b <> 0 then（如果a 除以b不餘零，那麼）
work := work(b, a mod b)（將b,a mod b再做為變數用work求他們倆的公約數）
else（否則）
work := b;（最大公約數為b）
end;
begin
read(a, b);（讀入a，b）
writeln(work(a, b));（輸出（a,b呼叫函式後求得的最大公約數））
end.
pascal語言題（有分追加）
program tower var x,y integer begin readln x,y x abs x y abs y x x 2 y y 2 if sqr x sqr y 1 then writeln 10 else writeln 0 readln readln end.var i,j i...
在pascal語言中，「dec」是什麼意思
dec s 表示s s 1 dec s，n 表示s s n dec在pascal中是什麼意思 dec s 是 s s 1 函式識別符號 dec n 相當於n n 1 dec n,s 相當於n n s inc n 相當於n n 1 inc n,s 相當於n n s 就是dec x x會 1嘛 pasc...
pascal題目，Pascal題目
1.var a,b,i,m,n longint t text begin a 0 b 0 readln m for i 1 to m do begin readln n if n mod 2 0 then a a n else b b n end writeln b writeln a end.2....