求nl編程
① 編寫函數long fac(int n) 計算n的階求（即n！）
樓上的遞歸思路有漏洞！！！
如果用戶要求0的階乘，則他的結果就錯了，不但錯了而且造成了死遞歸現象！
要知道0階乘等於1
所以正確的程序為:
long fac(int n)
{
if (n > 1)
return n*fac(n-1);
return 1;
}
② 用5800計算器編程計算nl
1，熟悉卡西歐5800裡面所有牽扯到測量的功能。
2，fx-5800裡面的編程語言basic的一些語法，並結合測量的例子來說明。這樣跟容易今後上手。
3，對一些例子的分析，包括思路和語法講解。
4，在實際工作中，用到最多的函數和程序的分享。
最後聲明一點，一定要動手，就是看著文章，手裡面要拿個5800，要不然一切都是白扯。這系列fx-5800教程是默認為會用fx-5800輸入一些基本的字元的。這些都可以參考fx-5800的說明書。電子版fx-5800說明書下載。
這里在灌輸一個編程思想。
編程要有個思路，
1、輸入部分。
2、計算部分。
3、輸出部分。
比方說要正算方位角，首先知道A（x,y）,b(m,n) 這是輸入部分。
計算部分：pol（x-m,y-n）
輸出部分：i,j （i=兩點的距離，j=兩點的方位角）
③ 用C語言編程求1!+2!+.......+n!
#include<stdio.h>
void main()
{
int i,n,nl,sum=0;
printf("請輸入n:\n");
scanf("%d",&n);
for(i=1;i<=n;i++)
{
nl=i;
nl*=nl;
sum+=nl;
}
printf("輸出sum:\n");
printf("sum=%d",sum);
}
④ 用C語言編程 ：建立三層二叉樹，先根遍歷輸出，在線求高手
A
(B C)
(D E) (F G)
以這課樹為例
#include <stdio.h>
#include <stdlib.h>
typedef char Elem;
typedef struct Node
{
Elem data;
struct Node *pLchild;
struct Node *pRchild;
}BTreeNode, *BTree;
BTree CreateBTree(BTree T, Elem *str)//創建二叉樹
{
static int i = 0;
if ('0' == str[i])
{
T = NULL;
}
else
{
T = (BTree) malloc (sizeof(BTreeNode));
T->data = str[i++];
T->pLchild = CreateBTree(T->pLchild, str);
i++;
T->pRchild = CreateBTree(T->pRchild, str);
}
return T;
}
void PostTraverseBTree(BTree T)//後序
{
if (NULL != T)
{
PostTraverseBTree(T->pLchild);
PostTraverseBTree(T->pRchild);
printf("%c ", T->data);
}
}
void InTraverseBTree(BTree T)//中序
{
if (NULL != T)
{
InTraverseBTree(T->pLchild);
printf("%c ", T->data);
InTraverseBTree(T->pRchild);
}
}
void PreTraverseBTree(BTree T)//先序
{
if (NULL != T)
{
printf("%c ", T->data);
PreTraverseBTree(T->pLchild);
PreTraverseBTree(T->pRchild);
}
}
int main(void)
{
BTree T = NULL;
Elem str[] = "ABD00E00CF00G00";
T = CreateBTree(T, str);
printf("\n\n");
printf("先序遍歷:\n");
PreTraverseBTree(T);
printf("\n\n");
printf("中序遍歷:\n");
InTraverseBTree(T);
printf("\n\n");
printf("後序遍歷:\n");
PostTraverseBTree(T);
printf("\n\n");
}
⑤ EXCEL編程
數組公式
=SUM(--(FREQUENCY(IF(A1:A20,ROW(A1:A20),),IF(A1:A20,,ROW(A1:A20)))=2))
「=2」就是連續兩次，連續三次可以=3
統計0兩個IF反一下即可。
⑥ 用matlab進行牛頓拉夫遜法的潮流計算的編程，我也不會。你能幫幫我嗎萬分感謝！！
B2=input('請輸入各節點參數形成的矩陣:B2=');
%本程序的功能是用牛頓-拉夫遜法進行潮流計算
n=input('請輸入節點數:n=');
nl=input('請輸入支路數:nl=');
isb=input('請輸入平衡母線節電號:isb=');
pr=input('請輸入誤差精度:pr=');
B1=input('請輸入由支路參數形成的矩陣:B1=');%變壓器側為1，否則為0
B2=input('請輸入各節點參數形成的矩陣:B2=');
X=input('請輸入由節點號及其對地阻抗形成的矩陣:X=');
X=input('請輸入由節點號及其對地阻抗形成的矩陣:X=');
Y=zeros(n);U=zeros(1,n);cta=zeros(1,n);V=zeros(1,n);O=zeros(1,n);S1=zeros(nl);
for i=1:n
if X(i,2)~=0;
p=X(i,1);
Y(p,p)=X(i,2);
end
end
for i=1:nl
if B1(i,6)==0
p=B1(i,1);q=B1(i,2);
else p=B1(i,2);q=B1(i,1);
end
Y(p,q)=Y(p,q)-1./(B1(i,3)*B1(i,5));
Y(q,p)=Y(p,q);
Y(q,q)=Y(q,q)+1./(B1(i,3)*B1(i,5)^2)+B1(i,4)./2;
Y(p,p)=Y(p,p)+1./B1(i,3)+B1(i,4)./2;
end %求導納矩陣
G=real(Y);B=imag(Y);
for i=1:n
cta(i)=angle(B2(i,3));
U(i)=abs(B2(i,3));
%V(i)=B2(i,4);
end
for i=1:n
S(i)=B2(i,1)-B2(i,2);
B(i,i)=B(i,i)+B2(i,5);
end
P=real(S);Q=imag(S);
ICT1=0;IT2=1;
while IT2~=0
IT2=0;t1=1;t2=1;
for i=1:n
if i~=isb
C(i)=0;
D(i)=0;
for j1=1:n
C(i)=C(i)+U(i)*U(j1)*(G(i,j1)*cos(cta(i)-cta(j1))+B(i,j1)*sin(cta(i)-cta(j1)));
D(i)=D(i)+U(i)*U(j1)*(G(i,j1)*sin(cta(i)-cta(j1))-B(i,j1)*cos(cta(i)-cta(j1)));
end
DP(t1)=P(i)-C(i);
t1=t1+1;
if B2(i,6)==2
DQ(t2)=Q(i)-D(i);
t2=t2+1;
end
end
end
t1=t1-1;t2=t2-1;
DPQ=[DP';DQ']; %求DP,DQ
for i=1:t1+t2
if abs(DPQ(i))>pr
IT2=IT2+1;
end
end
H=zeros(t1,t1);N=zeros(t1,t2);K=zeros(t2,t1);L=zeros(t2,t2);
for i=1:t1
for j1=1:t1
if j1~=isb&j1~=i
H(i,j1)=0-U(i)*U(j1)*(G(i,j1)*sin(cta(i)-cta(j1))-B(i,j1)*cos(cta(i)-cta(j1)));
elseif j1~=isb&j1==i
H(i,j1)=U(i)^2*B(i,j1)+D(i);
end
end
end
for i=1:t1
for j1=1:t2
if j1~=isb&j1~=i
N(i,j1)=0-U(i)*U(j1)*(G(i,j1)*cos(cta(i)-cta(j1))+B(i,j1)*sin(cta(i)-cta(j1)));
elseif j1~=isb&j1==i
N(i,j1)=0-U(i)^2*G(i,j1)-C(i);
end
end
end
for i=1:t2
for j1=1:t1
if j1~=isb&j1~=i
K(i,j1)= U(i)*U(j1)*(G(i,j1)*cos(cta(i)-cta(j1))+B(i,j1)*sin(cta(i)-cta(j1)));
elseif j1~=isb&j1==i
K(i,j1)=U(i)^2*G(i,j1)-C(i);
end
end
end
for i=1:t2
for j1=1:t2
if j1~=isb&j1~=i
L(i,j1)=0-U(i)*U(j1)*(G(i,j1)*sin(cta(i)-cta(j1))-B(i,j1)*cos(cta(i)-cta(j1)));
elseif j1~=isb&j1==i
L(i,j1)=U(i)^2*B(i,j1)-D(i);
end
end
end
J=[H,N;K,L];%求雅可比矩陣
modify=-J\DPQ;
Dcta=modify([1:t1],:);
t3=U(:,[1:t2]);
DU=diag(t3,0)*modify([t1+1:t1+t2],:);
t4=1;
for i=1:t1
if B2(i,6)~=1
cta(1,i)=cta(1,i)+Dcta(t4,1);
t4=t4+1;
end
end
t5=1;
for i=1:t2
if B2(i,6)==2
U(1,i)=U(1,i)+DU(t5,1);
t5=t5+1;
end
end
ICT1=ICT1+1;
end %修正原值
for i=1:n
UU(i)=U(i)*cos(cta(i))+1i*U(i)*sin(cta(i));
end
for p=1:n
c(p)=0;
for q=1:n
c(p)=c(p)+conj(Y(p,q))*conj(UU(q));
end
s(p)=UU(p)*c(p);
end
disp('--------------------------------------------------------------------------------');
disp('各節點電壓U為（節點從小到大排列）:');
disp(UU);
disp('--------------------------------------------------------------------------------');
disp('各節點電壓相角為（節點從小到大排列）:');
disp(180*angle(UU)/pi);
disp('--------------------------------------------------------------------------------');
disp('按公式計算全部線路功率，結果如下:');
for i=1:nl
if B1(i,6)==0
p=B1(i,1);q=B1(i,2);
else p=B1(i,2);q=B1(i,1);
end
Si(p,q)=UU(p)*(conj(UU(p))*conj(B1(i,4)./2)+(conj(UU(p)*B1(i,5))-conj(UU(q)))*conj(1./(B1(i,3)*B1(i,5))));%各條支路首端功率Si
f=[p,q,Si(p,q)];
disp(f);
end
for i=1:nl
if B1(i,6)==0
p=B1(i,1);q=B1(i,2);
else p=B1(i,2);q=B1(i,1);
end
Sj(q,p)=UU(q)*(conj(UU(q))*conj(B1(i,4)./2)+(conj(UU(q)./B1(i,5))-conj(UU(p)))*conj(1./(B1(i,3)*B1(i,5))));%各條支路末端功率Sj
f=[q,p,Sj(q,p)];
disp(f);
end
disp('--------------------------------------------------------------------------------');
disp('各條支路的功率損耗DS為(順序同您輸入B1時一樣):');
for i=1:nl
if B1(i,6)==0
p=B1(i,1);q=B1(i,2);
else p=B1(i,2);q=B1(i,1);
end
DS(i)=Si(p,q)+Sj(q,p);%各條支路功率損耗DS
disp(DS(i));
end
Sp=0;
for i=1:n
Sp=Sp+UU(isb)*conj(Y(isb,i))*conj(UU(i));
end
disp('平衡節點的功率:');
disp(Sp);
------------
在網上找到的一個，希望能有幫助。
⑦ 求asp網頁查詢access資料庫的編程代碼
<%『連接資料庫
db = "md.mdb" '前提時保證資料庫文件和本文件在統一目錄
connstr = "DBQ=" + server.mappath(""&db&"") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn = server.CreateObject("ADODB.CONNECTION")
conn.Open connstr
set rs = server.CreateObject("adodb.recordset")
'分頁函數
sub pcfinal_page(pageMark)'以pageMark作為分頁標志
action = "http://" & request.servervariables("http_host") & request.servervariables("script_name")
query = Split(request.servervariables("query_string"), "&")
For Each x in query
a = Split(x, "=")
If StrComp(a(0), pageMark, vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
response.Write("<div style=""text-align:center;clear:both;""><form method='get' onsubmit=""document.location ='"&action&"?"&temp&pageMark&"='+ this."&pageMark&".value;return false;"">")
If page<= 1 Then
response.Write ("首頁 上一頁 ")
Else
response.Write("<a href='"&action&"?"&temp&pageMark&"=1'>首頁</a> <a href='"&action&"?"&temp&pageMark&"="&(page -1)&"'>上一頁</a> ")
End If
If page>= maxpage Then
response.Write ("下一頁 尾頁 ")
Else
response.Write("<a href='"&action&"?"&temp&pageMark&"="&(page+1)&"'>下一頁</a> <a href='"&action&"?"&temp&pageMark&"="&maxpage&"'>尾頁</a> ")
End If
response.Write("["&page&"/"&maxpage&"頁] [共"&allpage&"條記錄] 轉到第 <input type='text' name='"&pageMark&"' size='3' value='"&page&"'> 頁 <input type='submit' value='跳轉'/></form></div>")
end sub
'列出信息
sql = "select * from mingdan order by id"
rs.open sql,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr class="specialLineCont">
<th>序號</th>
<th>姓名</th>
<th>性別</th>
<th>身份證號碼</th>
<th>年齡</th>
</tr>
<%
page = request("page")
If Not IsNumeric(page) Or page = "" Then
page = 1
Else
page = CInt(page)
rs.pagesize = 25
maxpage=rs.pagecount
allpage=rs.Recordcount
End If
If page<1 Then
page = 1
ElseIf page>maxpage Then
page = maxpage
End If
if page = 1 then
specialID = 1
else
specialID = (page-1)*rs.pagesize
end if
rs.AbsolutePage = Page
If page = maxpage Then
x = allpage - (maxpage -1) * iPageSize
Else
x = iPageSize
End If
if rs.eof then
response.Write("暫無內容！")
else
rs.absolutepage = page
for q=1 to rs.pagesize
if not rs.eof then
%>
<tr align="center">
<td><%=rs("ID")%></td>
<td><%=rs("xm")%></td>
<td><%=Rs("xb")%></td>
<td><%=Rs("sfzh")%></td>
<td><%=Rs("nl")%></td>
</tr>
<%Rs.movenext
end if
next%>
</table>
<%
call pcfinal_page("page")
end if
%>