主题:[讨论]我编的个程序,大家指教
sd5774188
[专家分:260] 发布于 2005-03-26 14:23:00
老师叫我编一个反向输出三位数的程序,我是这样编的,大家指教
program yb(inpur,output);
var m,a,b,c,x:integer;
begin
read(m);
a:=m mod 10;
b:=(m div 10)mod 10;
c:=m div 100;
x:=100*a+10*b+c;
write(x);
end.
回复列表 (共15个回复)
沙发
sb191919 [专家分:40] 发布于 2005-03-26 15:58:00
[em3]
var a:string;b:integer;
readln(a):
for b=3 downto 1 do writeln(a[i]);
readln
end.
板凳
xuzhenyi [专家分:850] 发布于 2005-03-26 20:40:00
用str
然后strrev(str)
3 楼
风清书阳 [专家分:60] 发布于 2005-03-29 19:33:00
其实这个程序可以用循环语句for语句来实现,更简单些
4 楼
xuzhenyi [专家分:850] 发布于 2005-03-30 21:11:00
同意楼上
var s:string;
k,i:integer;
begin
readln(s);
k:=length(s);
for i:=k down to 1 do
write(copy(s,k,1));
end.
5 楼
xuzhenyi [专家分:850] 发布于 2005-03-30 21:12:00
不过怎么做啊
为什么你开口闭口就是循环阿
6 楼
menza109 [专家分:0] 发布于 2005-04-15 12:30:00
同意一楼!
7 楼
smallboat [专家分:60] 发布于 2005-04-17 10:38:00
你的思路没错,但实质是适用于为数较小的情况,对于为数叫得的情况只能用循环或字符串
8 楼
lyn532226 [专家分:230] 发布于 2005-05-21 13:45:00
4楼的,怎么好像不行的呀,你有没有写错啊??
9 楼
jiong12 [专家分:0] 发布于 2005-05-22 11:05:00
不错!!
10 楼
扶晕精灵 [专家分:0] 发布于 2005-05-22 11:31:00
好楼的兄弟倒数第二行掉了个分号啊,我觉得咱们程序员应该在这方面多注意一下,否则有时候连错在哪都找不出来
我来回复