1樓：
這個是2%的，其他的類似
program ***(input,output);
vars:real;
i:integer;
begin
i=0;
while(s<=12)do begin
i:=i+1;
s:=s*0.02+s;
end;
writeln(1982+i);
end.
2樓：匿名使用者
絕對自編， 那個wind_lihao，問題裡的增長率是每次減0.5的，不是全都是2。
vari,n:real;
m:longint;
begin
n:=10;
i:=1.2;
m:=1982;
repeat
n:=n*i;
i:=i-0.05;
if n<=12 then inc(m);
until n>12;
writeln(m);
絕對沒抄襲，望你給分.要解釋加我q
3樓：天ぅ殤
var n,s:real;
i:integer;
begin
readln(n);n:=n/100+1;
i=0;
while s<12 do
begin
i:=i+1;
s:=s*n;
end;
writeln(1982+i);
end.
x%,輸入x ，%不需要，如果需要的話就說一下。你要2%就自己輸入一個2.
4樓：
program ex1;
vara,b,c,d,q:real
begin
q:=10;
a:=1.02;
q:=q*a;
if q<12 then b:=1.015;
q:=q*a;
end;
else writeln(q);
end;
if q<12 then
begin
c:=1.01;
q:=q*c;
else writeln (q);
......
end.
c語言程式設計，switch語句，2023年第一天是周二，輸入月份日期輸出星期幾
include include int main switch tianshu 7 getch 以上程式可以輸出輸入正確的月 日期後輸出星期，沒有對異常輸入做判斷，例如，如果輸入13月1日，也就是13 1，那麼也會有響應的輸出，不用懷疑，肯定是錯誤的。所以上程式只支援正常的2013的日月輸入。如果要...
加工中心程式設計m2019的螺紋如果用螺紋銑刀該怎樣
4終 1 首先開啟一個 軟體如vericut或斯沃。2 t1表示一號刀具t2表示二號刀具依次類推，t1 t2 用的是簡寫正規的寫法是t01 t02 中間加了一個零。3 在加工中g0代表快速定位g91代表增量座標 g28代表回機床原點後面加x y z5。4 像g81 g82 原理很相似 g81是使用最...
CAD的autolisp程式設計問題 我用下面這個程式還去掉重
冼睿敏 defun c ere setq ss ssget list cons 0 point li si 0 ei 0 repeat sslength ss setq cs ssname ss si si 1 si ce entget cs if member vl princ to string...