编程论坛 → Delphi论坛

关于DELPHI的几个问题

wzzhi 发布于 2008-01-13 18:18， 1731 次点击

小弟新学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
。。。

5 回复

#2

sky_yang_sky2008-01-15 17:07

這兒的int(sqrt(1))不是整數型，是願數據的類型，所以不能處理，因為不像在VB中有強制轉化類型的作用，

#3

sgliuxiu2008-01-22 22:32

如果有思路了，就用语言实现你的思路。

#4

zhoukai2008-04-18 09:14

关于第一个问题的解答

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;

#5

zhoukai2008-04-18 09:21

关于第二个问题的解答

我猜你是想取sqrt()的整数部分，建议用TRUNC（）函数！

#6

linanguyu2008-04-21 14:51

'1',标点不能在中文状态下

1