各位Delphi高手們~~ 小弟剛接觸Delphi程式語言不久。。。 是以自學方式下去摸索~~ 最近研究到陣列，因此想以陣列來寫一程式~~ 請將 1~100的質數相加，以陣列方式 雖然用For迴圈的方式編寫也可以~~ 但我很好奇以陣列方式該如何寫~~ 但沒太多頭緒= = 因此希望各位高手幫幫忙~~ 感謝啊。。。 同時如果可以，能順便解釋每行的意思嗎?! 因為現在會這個語言的人真的不多~~ 反倒是VB倒是太多了。。。 因此，自學上有點模糊~~ 所以我的觀念算很差~~ 希望各位大大幫幫忙。。。 謝謝。。。

------ 大家好~~請多指教

------
大家好~~請多指教

編輯記錄

你說你對陣列方式不熟, 那用其他方法來做, 你是否有做出完成或部份的程式, 可否PO上來我們來研究如何改用成陣列, 或者你完全沒有想法, 只是求CODE, 如果是後者麻煩請到新手討論區求文會比較恰當!
而且本區為資料庫方面問題, 你的目的並不太符合主旨哦1

編輯記錄

不了解你所說的以陣列方式是什麼....
程式語言不都大同小異.....
嗯....還是看不懂.....
PO你的程式碼上來看看吧...

------
程式沒有這麼難
只是還沒打通其中要絕

編輯記錄

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
sum: integer;
vs:string;

function isprime(no: integer): boolean;
var
i, j: integer;
begin
result:= false;
if(no = 1)then exit;
j:= trunc(sqrt(no));
for i:= 2 to j do begin
if(no mod i = 0)then exit;
end;
result:= true;
end;
begin
sum:= 0;
i:=1;
vs:=inputbox('質數總和','請輸入任一整數','10'); //預設帶10
while i<=strtoint(vs) do
begin
if(isprime(i))then sum:= sum i;
i:=i 1;
end;
showmessage(inttostr(sum));
end;

end.