從 11 年到 2009 年翻譯成帕斯卡語言 25

vars,i:longint;

beginfor i:=11 to 2009 do begins:=s+i;

end;writeln(s);

end.很簡單，老闆，給工資！！

const num = 5;

var n: integer;

function r(n : integer) :integer;

var i : integer;

beginif n <= num then

beginr := n;

exit;end;

for i :=1 to num do

if r(n-i) <0 then

beginr:=i;

exit;end;

r:=-1;

end;begin

readln(n);

writeln(r(n));

end.一般過程是讀取資料 n（這需要您的輸入），然後輸出 r（n），並且由於 r（n） 是乙個函式，因此執行 r 函式。 如果 n 小於或等於 5，則 r=n，然後函式終止並輸出函式值; 如果 n 大於 5，則跳轉到 for 迴圈。

您還應該了解以下內容...

嘻-???嘻嘻嘻-,,,嘻

只要買一本書就讀了。

num 是乙個常量，始終等於 10;

function 是乙個函式;

for··· to··· do 是乙個迴圈;

如果是判斷;

readln 是寫;

writeln 是輸出;

開始開始;

結束。

var i,j,n,k,l,m:longint;s1:string;s:array[0..10]of string;ch:char;

a:array[0..10]of longint;

beginreadln(n);

readln(s1);

l:=length(s1);m:=1;

for i:= 1 to n do

beginj:=1;

while (s1[j]>',')and(m<>l+1) dobegin

s[i,j]:=s1[m];

inc(j);inc(m);

end;a[i]:=j-1;

inc(m);

end;for i:= 1 to n-1 do

for j:= i+1 to n do

beginif s[i,1]for k:=1 to 200do

begins[0,k]:=s[i,k];s[i,k]:=s[j,k];s[j,k]:=s[0,k];

end;a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];

end;end;

for i:= 1 to n do

beginfor j:= 1 to a[i] do

beginwrite(s[i,j]);

end;end;

end.這是乙個貪婪的想法：將其作為字串讀取，按第乙個單詞排序，然後在末尾輸出。

這三個部分是：1：輸入到字串陣列中;

2：按第乙個字元大小的順序排序;

3：按排列順序輸出;

注意：陣列 A 記錄每個數字的長度。 它需要與字串一起調整。

這是 C 語言。

有子例程。 不知道子程式是什麼。

無法翻譯。 #include

#include

#include

#include

var a:integer;

c:real;

beginfor a:=1 to 10 do

c:=c+a/10;

write(c);

end.上面的那個，很煩人。

怎麼會錯。

給自己加乙個，絕對是對的。

vara,b:longint;

beginfor a:=1 to 9 do begina:=a*;

b:=b+a;

end;writeln(b);

end.小絲綢瞭望塔的主人採用！！ 發芽！！

vara, b: integer;

function work(a, b: integer): integer;求 a 和 b 的最大公約數。

begin如果 a mod b <>0，則如果 a 不能被 b 整除。

work ：= work（b， a mod b） A 和 B 的最大公約數等於 B 和 A mod B 的最大公約數。

elsework := b;如果 a 能被 b 整除，則 a 和 b 的最大公約數等於 b

end;begin

read(a, b);讀取 a 和 b 的值。

writeln(work(a, b));work 是乙個自定義的函式名稱（自選），其功能在上面已經詳細描述過了。

end.輸入： 20 12

輸出： 4

這個程式就是要找到最大的公約數，如何逐字翻譯這個單詞???

var（定義變數）。

a, b: integer;（a，b 變數屬於整數整數）。

functionwork(a, b: integer): integer;（自定義函式用於查詢最大公約數）。

begin如果 a mod b <>0 則（如果 a 除以 b 而不為零）。

work ：= work（b， a mod b） （使用 b， a mod b 作為變數來求兩者的公約數）。

還

work := b;（最大公約數是 b）。

end;begin

read(a, b);（讀 a、b）。

writeln(work(a, b));輸出（函式後獲得的最大公約數稱為 a，b））。

end.

program ft;

uses crt;

vardp:array[0..24][0..3500] of integer;

v,a:array[0..25] of integer;

i,j,k,n,sum:integer;

beginread(sum,n);

for i:=1 to n do read(v[i]);

for i:=1 to n do

for j:=1 to sum do begindp[i][j]:=dp[i-1][j];

if v[i]<=j then

if dp[i-1][j]>(dp[i-1][j-v[i]]+v[i]) then

dp[i][j]:=dp[i-1][j];

else then

dp[i][j]:=dp[i-1][j-v[i]]+v[i];

end;write(dp[n][sum]);

readkey();

end.其次，請單獨提出乙個問題。

program e2;

varx,x1,y1,y,t,i,j,s,h,h1:integer;

a:array[0..10]of integer;

b:array[0..10]of integer;

c:array[0..10]of integer;

beginh1:=1;

writeln('請輸入兩個數字：');

writeln('x= ');

readln(x);

writeln('y= ');

readln(y);

x1:=x; y1:=y;

for i:=0 to 7 do

begina[i]:=x mod 2;

b[i]:=y mod 2;

x:=x div 2;

y:=y div 2;

end;for i:=0 to 7 do

beginc[i]:=a[i]+b[i]+c[i];

if (c[i]=2) then

beginc[i]:=0;

c[i+1]:=c[i+1]+1;

end;end;

for t:=0 to 7 do

beginh:=0;h1:=1;

while (hbegin

h1:=h1*2;

h:=h+1;

end;s:=s+c[t]*h1;

end;writeln(x1,'+',y1,'=',s);

for i:=7 downto 0 do

write(a[i]);

write('+');

for i:=7 downto 0 do

write(b[i]);

write('=');

for i:=7 downto 0 do

writeln(c[i]);

end.也許有些格式沒有你想要的那麼好，但是 pascal 的輸出語句是 write 和 writeln，第乙個是輸出後沒有換行符，第二個是輸出後沒有換行符，你看你要改什麼不行，我試過編譯並通過了。

原始碼.........

#include""

你引用了你自己的圖書館嗎？