delphiÊéд¸ñÔò? - Delphi / ·Ç¼¼ÊõÇø
ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,дµÄ´úÂëÿһÐж¼ÊÇҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,Õâ¸öÓй涨Âð?Ôõô¿´?
ÒÔÏÂÊÇÎÒÔÚÍøÉÏÕÒµÄÒ»¶Î³ÌÐò´úÂë
===============================================================================
procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real);
var
I,J:integer; SUM:real;
begin
For I:=1 To N do
begin
Sum:=B[I];
For J:=1 To I - 1 do
Sum:=Sum - A[I, J] * B[J];
B[I]:=Sum;
end;
For I:=N DownTo 1 do
begin
If D[I] = 0 Then
begin
ShowMessage('Singular Matrix');
Exit;
end
Else
Sum:=B[I] / D[I];
For J:=I + 1 To N do
Sum:=Sum - A[J, I] * B[J];
B[I]:=Sum;
end;
end;
Ϊʲô²»ÄÜд³ÉÕâÑù?
===============================================================================
procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real);
var
I,J:integer; SUM:real;
begin
For I:=1 To N do
begin
Sum:=B[I];
For J:=1 To I - 1 do
Sum:=Sum - A[I, J] * B[J];
B[I]:=Sum;
end;
For I:=N DownTo 1 do
begin
If D[I] = 0 Then
begin
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
¶¨Òå±äÁ¿s,sqlΪstringÀàÐÍ£¬sΪº¯Êý²ÎÊý£¬sql£º='select field1 from table1 where'+s;ÔËÐÐʱs¸³ÖµÎªid>7»òÕßid<7¡¢id=7,µ«ÊÇÔËÐÐʱ×ÜÊdzö´í£¬Çë¸÷λ°ïÎÒ¸Ä´í£¬¶àл£¡
showMessage(sql)Ï¿´¿´
sql£º='sel ......
´óÏÀÃǰïæ¿´Ò»Ï£¬ÓÃspcomm¿Ø¼þ½øÐд®¿ÚͨÐÅ¡£
·¢ËÍÊý¾Ý£º
procedure TForm1.Button2Click(Sender: TObject);
var
strPressure:string;
begin
strPressure:='SEND'+#13;
comm ......
ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,´úÂëµÄÿһÐÐҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,ÓеĻ¹ÒªÁíÆðÒ»ÐÐ,Õâ¸öÓй涨Âð?ÒªÔõôд?
ÄѵÀ²»ÄÜÔõÑùдÂð?ÎÒ´ò¸ö±È·½,(.´ú±í³ÌÐò´úÂë)
..............................
......... ......