procedure TForm1.Button1Click(Sender: TObject);
var
i,j,xiaxian,shangxian,count:integer;
begin
count:=0;
xiaxian:=strtoint(edit1.Text);
shangxian:=strtoint(edit2.text);
for i:=xiaxian to shangxian do
begin
for j:=2 to trunc(sqrt(i)) do
if (i mod j =0) then break
end;
memo1.Lines.Add(inttostr(i));
count:=count+1;
end;
memo1.LineS.add(inttostr(count));
end;
end.
计算出来的结果是错误的,请问高手该怎么改
var
i,j,xiaxian,shangxian,count:integer;
begin
count:=0;
xiaxian:=strtoint(edit1.Text);
shangxian:=strtoint(edit2.text);
for i:=xiaxian to shangxian do
begin
for j:=2 to trunc(sqrt(i)) do
if (i mod j =0) then break
end;
memo1.Lines.Add(inttostr(i));
count:=count+1;
end;
memo1.LineS.add(inttostr(count));
end;
end.
计算出来的结果是错误的,请问高手该怎么改
解决方案 »
- delphi中的变体问题.难道只用于内存节约?(BS CSDN.不能发分.再加)
- 着急,请高手出招,求一个算法的实现!!!
- 不好意思,还要问回这个问题,还是没解决:我select查询为什么不能再往里面加数据和修改数据?
- mapx问题求救
- Delphi是不是快挂了??
- 问一个难题,看有没有人感兴趣
- 如何在win9x下控制epson tm系列小票打印机打印汉字?
- 给大家一段代码,让TreeView具有Outlook工具栏的效果!!记得多给分啊
- 哪里有DELPHI的中文帮助文件
- 请教:Listview中ListItem重名问题!!!!
- 如何快速的结束多线程
- datasnap能不能实现服务端客户端相互触发事件
procedure TForm3.Button1Click(Sender: TObject);
var
i, j, xiaxian, shangxian, count: integer;
begin
count := 0;
xiaxian := strtoint(Edit1.Text);
shangxian := strtoint(Edit2.Text);
for i := xiaxian to shangxian do
begin
for j := 2 to trunc(sqrt(i)) do
if (i mod j = 0) then
break;
if j>trunc(sqrt(i)) then
begin
memo1.Lines.Add(inttostr(i));
count := count + 1;
end;
end;
Memo1.Lines.Add('');
Memo1.Lines.Add(inttostr(count));
end;[/code]
procedure TForm3.Button1Click(Sender: TObject);
var
i, j, xiaxian, shangxian, count: integer;
begin
count := 0;
xiaxian := strtoint(Edit1.Text);
shangxian := strtoint(Edit2.Text);
for i := xiaxian to shangxian do
begin
for j := 2 to trunc(sqrt(i)) do
if (i mod j = 0) then
break;
if j>trunc(sqrt(i)) then
begin
memo1.Lines.Add(inttostr(i));
count := count + 1;
end;
end;
Memo1.Lines.Add('');
Memo1.Lines.Add(inttostr(count));
end;