学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

关于DELPHI的几个问题

关于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
。。。

TOP

這兒的int(sqrt(1))不是整數型,是願數據的類型,所以不能處理,因為不像在VB中有強制轉化類型的作用,
你微笑的面對整個世界,整個世界也將會微笑的面對你。

TOP

如果有思路了,就用语言实现你的思路。
小猫说:给我10元钱

TOP

关于第一个问题的解答

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;

TOP

关于第二个问题的解答

我猜你是想取sqrt()的整数部分,建议用TRUNC()函数!

TOP

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

TOP

发新话题