1樓：匿名使用者
直接處理每個字元，判斷是否是小寫字母就可以了，然後注意字元'z'，要變成'a'
vars:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) doif s[i] in ['a'..'z'] then //處理小寫字母
if s[i]<'z' then //把'z'之前的小寫字母變為後繼
write(chr(ord(s[i])+1))else //單獨處理'z'
write('a')
else //不是小寫字母，不變
write(s[i]);
end.
2樓：匿名使用者
vari,n:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) doif (s[i]>='a') and (s[i]<='z') then
begin
n:=ord(s[i]);
if n+1>ord('z') then n:=ord('a') else n:=n+1;
s[i]:=chr(n);
end;
writeln(s);
end.
請幫忙用pascal語言做一下這道題，萬分感謝！！！ 5
3樓：府夢槐
program ddd;
varf:real;
i,n:integer;
begin
while i<>4*100-1 do
begin
i:=i+2;
f:=f+1/i;
i:=i+2;
f:=f-1/i;
end;
writeln(f*4:0:9);
end.
4樓：匿名使用者
function calcpi_4(n:integer):real;
vari:integer;
f:real;
begin
f:=0.0;
for i:=1 to n do
begin
f:=f+1.0/(4.0*i-3.0)-1.0/(4.0*i-1.0);
end;
result:=f;
end;
10這道題用簡便方法怎樣做
1 5 1 6 1 5 1 6 以此類推 1 5 1 6 1 6 1 7 1 7 1 8 1 8 1 9 1 9 1 10 1 5 1 6 1 6 1 7 1 7 1 8 1 8 1 9 1 9 1 10 1 5 1 10 1 10 1 5 1 6 1 5 1 6,1 6 1 7 1 6 1 7,1...
幫忙做道哲學題，誰幫忙做了這道哲學題
1 人的主觀能動性是自由的內在。人來自自然的必然，人從必然中認識到本質及規律，創造性的主導必然矛盾的發展。2 人的本質是自由的。但人的自由是相對的，是人勞動的創造。其是人在實踐中發展的，不是絕對的。3 自由包括人對於自然及社會的發現與創造。自由是人勞動的發展，人自覺的實踐是自由的本質。我並不是十分同...
這道題大家幫忙看看怎麼做,謝謝,這道題怎麼做,大家幫忙看看,謝謝,如果可以請寫下過程
當p在ab上運動時,s為定值,排除b d 當p在bc上運動時,s為t的一次函式,選a。這道題怎麼做,大家幫忙看看,謝謝,如果可以請寫下過程 易知三角形 ebp 相似於三角形 pcd,所以 eb bp pc cd,即 y x 4 x 3,因此 y 1 3 x x 4 拋物線開口向下,選 d 很明顯是 ...