如何将一个整数分解为两个整数,例如将23分解为2和3?(15分)

Y

yyk518

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #1

不能用先转化为字串再用COPY分解的方法

 

C

cxz9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #2

a/10
a%10

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #3

var
iInteger,iInteger1,iInteger2: Integer;
begin
iInteger:= 23;
iInteger1:= roundto(iInteger,2)/10;
iInteger2:= iInteger-roundto(iInteger,2);
end;

 

9

990

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #4

var
I,A,B:integer;
begin
I := 23;
A := I div 10;
B := I - A;
end;

随便说一下，你这叫什么问题？ 有什么实际意义？

 

Z

zhtx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #5

简单,一刀砍下去,一分两半

 

Y

yangxiao_jiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #6

先除10 得到余数，在除10得到整数

你以前没有做过吗？？

 

L

lich007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #7

MyStr:=IntToStr(MyInt)
S1:=Copy(MyStr,1,指定位数), S2:=Copy(Mystr,指定位数+1,Length(myStr)-指定位数）

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #8

晕。。。。。。。。。。。。

 

W

wwhuzhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #9

这么简单的问题！
她们都说完了，我捡分吧……——……

 

Y

yyk518

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #10

呵呵,看一看简单的问题是否有高手给出比较好的解法,唉,失望.....
人在昆明 的不能通过编译
990 的得不到正确的解

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #11

var
s:string;
i:integer;
begin
s:=inttostr(3987);
for i:=1 to length(s) do showmessage(s);
end;

 

Y

yyk518

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #12

这点小得可怜的分还是给yangxiao_jiang吧,文法有点不对,但也是那个意思了.
应该是:
var
i,i1,i2:integer;
begin
i:=23;
i1:=i div 10;
i2:=i mod 10;
end;
简是简单了点,但真正的高手对简单的问题也要认真对待啊.

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #13

只有两位吗？
procedure TForm1.Button1Click(Sender: TObject);
var
int1, Int2, int3: Integer;
begin
int1 := 23;
Int2 := int1 div 10;
int3 := int1 mod 10;
ShowMessage(InttoStr(int2) + ' ' + InttoStr(int3));
end;

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #14

呵呵，晚了一秒。。。。

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #15

你就不能变通一下，我只是随手写的，不一定对，你改动一下么！：）