如何使用 Pascal 語言對 254 位以內的加法和減法運算進行編碼

program p1383;

vars:string;

x:array[1..maxint] of string;

f:array[1..maxint] of boolean;

a,b:array[1..maxint] of longint;

i,j,n,w,t,m:longint;

y:int64;

beginreadln(s);

n:=ord(s[0]);

w:=1;m:=1;y:=0;

for i:=1 to n do

beginif s[i]='+' thenbeginf[w]:=true;

b[w]:=i;

end;if s[i]='-' then

beginf[w]:=false;

b[w]:=i;

end;if (s[i]='+') or (s[i]='-') then

w:=w+1;

end;t:=1;

for i:=1 to w do

beginif ibeginfor j:=m to b[i]-1 dox[t]:=x[t]+s[j];

val(x[t],a[t]);

t:=t+1;

m:=1+b[i];

end;if i=w then

for j:=m to n do

beginx[t]:=x[t]+s[j];

val(x[t],a[t]);

end;end;

y:=a[1];

for i:=1 to w-1 do

beginif f[i]=true theny:=y+a[i+1];

if f[i]=false then

y:=y-a[i+1];

end;writeln(y);

end.編譯通過。

測試資料1：答案正確。 0ms

測試資料2：答案是正確的。 0ms

測試資料3：答案是正確的。 0ms

測試資料4：答案正確。 0ms

測試資料5：答案正確。 0ms

測試資料6：答案是正確的。 0ms

測試資料 7：正確答案。 0ms

測試資料8：答案是正確的。 0ms

測試資料 9：答案正確。 0ms

測試資料10：正確答案。 0ms

接受的有效分數：100 有效時間：0ms

使用陣列儲存每個數字的高精度演算法。 例如，12345 儲存為：array[1,2,3,4,5]。

兩種方法：

1. 將數字轉換為字串（僅對整數有效）。

vara:longint;

l:integer;

s:string;

beginreadln(a);

str(a,s);

l:=length(s);

writeln(l);

end.2.使用重複或while迴圈（雖然實數可以接受實數，但小數部分會被忽略）。

重複迴圈方法：

vara:real;

b:integer;

beginreadln(a);

repeat

a:=a/10;

b:=b+1;

until trunc(a)=0;

writeln(b);

end.while 迴圈方法：

vara:=real;

b:=integer;

beginreadln(a);

while trunc(a)<>0 do

begina:=a/10;

b:=b+1;

end;writeln(b);

end.

var s,i:longint;

begins:=0;

for i:=1 to 99 do

if odd(i) then s:=s+i;

writeln(s);end.

這個我還沒有編譯，你可以自己試試。

解釋：s 是總和。

i 是乙個迴圈變數。

讓我從 1 排氣到 99。

奇數函式用於確定它是否為奇數。 如果是奇數，則函式值為 true，否則為 false。

判斷i是否為奇數後，如果是奇數，則加法，如果不是奇數，則不予理睬。

明白了？ 如果你明白了，就選我！！

如果您不明白，請給我留言。

如有任何疑問，請隨時陪同。

var i,s:longint

beginfor i：=1 到 99 do 從 1 到 99 迴圈。

if odd(i) then s:=s+i;如果 i 是奇數，則將其相加。

writeln(s);

end.

這是最簡單的。

for i:=0 to 49 do sum:=sum+i*2+1;

如果你看到上面的東西，不要忽視下面的東西。

很簡單，可以一次儲存資料，20點少一點！！

按順序，第乙個滿足，然後下乙個不會執行，所以只執行。

你要注意理解其他意味著什麼"否則"

因為他們是"否則"因此，一定不滿足前面的條件，所以內容不然，就需要執行內容。

只是否則它只是另乙個 if 語句。

如果找到第乙個匹配的語句，請執行 then following 語句，然後跳到下乙個分號以繼續。

（師父，呵呵）只執行乙個語句。 請記住，這 if 集 else 語句將始終只執行一次。 既然第乙個是滿意的，那就只執行”。

vari,sum,n:longint;

beginread(n);

對於 i：=1 到 n do 由迴圈控制，每個數字都經過 begin

s:=s*i;乘以，這樣它就會從 1 乘到 n，其實 i：=n 下到 1 做更正式，但恐怕你不明白，那就是 n 反轉為 1

end;writeln(s);點選 s（表示總和）。

end.

O，那個D3進入遊戲後期，大多數玩家全年都有各種各樣的品種。

優惠和**活動，讓您只需要拿著模具繼續提貨，還可以給我們一本書上的裝置說再見。

你留下一封電子郵件或QQ，我會發給你。

我真的很想要答案，你能給我乙份嗎？

您可以在 fp 中除錯它。

這很清楚。