标题:关于DELPHI的几个问题
只看楼主
wzzhi
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2005-11-11
 问题点数:0 回复次数:5 
关于DELPHI的几个问题
小弟新学DELPHI,可是不知怎么都入不了门。以下几个问题,望各们大侠帮答下:
1、关于输出某个数以下的素数。
   我以前学的是VB,照着VB的编程思路,不知怎么就是调试不出来,希望哪位能给个源码或主要程序也行。
2、关于数据类型
  SQRT函数返回的是EXTENDED类型,我用INT去返回其整型部分,不知怎么就返回不了。
   程序是这样的:
FOR I:=3 TO M DO  //(M是从EDIT中用STRTOINT读入的一个数)
  FOR J:=2 TO INT(SQRT(I)) DO
。。。
搜索更多相关主题的帖子: DELPHI 
2008-01-13 18:18
sky_yang_sky
Rank: 3Rank: 3
等 级:论坛游民
威 望:8
帖 子:481
专家分:16
注 册:2007-5-30
得分:0 
這兒的int(sqrt(1))不是整數型,是願數據的類型,所以不能處理,因為不像在VB中有強制轉化類型的作用,

你微笑的面對整個世界,整個世界也將會微笑的面對你。
2008-01-15 17:07
sgliuxiu
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:291
专家分:0
注 册:2007-2-2
得分:0 
如果有思路了,就用语言实现你的思路。

小猫说:给我10元钱
2008-01-22 22:32
zhoukai
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-4-11
得分:0 
关于第一个问题的解答
procedure TForm1.Button1Click(Sender: TObject);
var
  m,i,r,j: integer;
  prinumber: string;
begin
prinumber:='1';
m:= StrToInt(edit1.Text);
for j:=3  to m-1 do
   begin
     for i:=2 to j-1 do
       begin
         r:=j mod i;
         if r=0  then break;
         if i=j-1 then  prinumber:=prinumber+'  '+IntToStr(j);
       end;
   end;
edit2.Text:=prinumber;
end;
2008-04-18 09:14
zhoukai
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-4-11
得分:0 
关于第二个问题的解答
我猜你是想取sqrt()的整数部分,建议用TRUNC()函数!
2008-04-18 09:21
linanguyu
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2008-4-21
得分:0 
'1',标点不能在中文状态下
2008-04-21 14:51



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-197346-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.295242 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved