第一篇：計算方法上機實驗報告

《計算方法》 上機 實驗報告

班

級：XＸＸXXX

小組成員: :XXＸXXＸＸ

XXXＸXXX

XXＸＸXXX ＸXXXXXＸ

任課教 師：XXX 二〇一八年五月二十五日 前言

通過進行多次得上機實驗,我們結合課本上得內容以及老師對我們得指導,能夠較為熟練地掌握Ｎewton 迭代法、Ｊacｏｂi 迭代法、Gausｓ－Seｉｄｅl 迭代法、Ｎewｔon 插值法、Ｌａgｒanｇe 插值法與Ｇaｕｓs 求積公式等六種算法得原理與使用方法，并參考課本例題進行了 MATＬAB 程序得編寫。

以下為本次上機實驗報告,按照實驗內容共分為六部分.實驗 一：

一、實驗 名稱 及題目: :

New ｔn on 迭代法

例 2、7(P3８）:應用 Newｔon 迭代法求 在 附近得數值解，并使其滿足、二、解題 思路：

設就是得根,選取作為初始近似值，過點做曲線得切線,得方程為,求出與軸交點得橫坐標,稱為得一次近似值,過點做曲線得切線,求該切線與軸得橫坐標稱為得二次近似值，重復以上過程，得得近似值序列，把稱為得次近似值，這種求解方法就就是牛頓迭代法。

三、b Matlab 程序 代碼：

f f ｕ nc ｔ ion

newt ｏ n_it ｅr r ａｔ io ｎ(x ０ ,tol）

syms z % % 定義自變量

f f ｏ rma ｔ

l l ｏn n ｇ

％定義精度

ｆ= = ｚ *z ＊z z--z z － 1;

f1=diff(f）； ％求導

y=su ｂ s(ｆ，ｚ ,x0);

y1=s ｕ bs(f １, , ｚ，x0)；% % 向函數中代值

x1=x0 － y/y1;k=1 ；

w w ｈ il ｅ

ａｂｓ((ｘ1 1 — x0)〉= = ｔ ol

x x ０ =x1;

y=sub ｓ（f,z, ｘ 0)；

y1=sub ｓ((ｆ 1, ｚ, , ｘ 0);

x1 ＝ x0--ｙ /y1 ； k=k+1;

ｅ nd

ｘ =dou ｂ le（x x １))

Ｋ

四、運行 結果：

實驗二: :

一、實驗名稱 及題目：

Jac ｏb b ｉ迭代法

例３、7(P74）:試利用 Jacobi 迭代公式求解方程組

要求數值解 為方程組得精確解、二、解題思路 ：

首先將方程組中得系數矩陣分解成三部分,即:，為對角陣,為下三角矩陣,為上三角矩陣。之后確定迭代格式，（, 即迭代次數),稱為迭代矩陣。最后選取初始迭代向量,開始逐次迭代。最后驗證精度。（迭代陣:。)雅克比迭代法得優點明顯，計算公式簡單,每迭代一次只需計算一次矩陣與向量得乘法,且計算過程中原始矩陣 A 始終不變，比較容易并行計算.然而這種迭代方式收斂速度較慢,而且占據得存儲空間較大。

三、Ｍb atlab 程序代碼: :

functio ｎ

jacob ｉ（A A，b,x0,ep ｓ，ｘ１))

Ｄ

= =

diag(diag（Ａ）);% % 求Ａ得對角矩陣

L = —t t ｒｉl l（A,--1);% %求 求 A A 得下三角矩陣

U U

=--ｔr r ｉｕ((Ａ, , １);％求 A A 得上三角矩陣

B = Ｄ（L+ Ｕ))；

f ＝

Ｄ＼ｂ；

x = Ｂ＊x x ０ +f ；

n = 1;% % 迭代次數

ｗｈ ile

ｎo o ｒｍ((ｘ — x1)＞ =eps s

x = B ＊ x+f ；

n =

n+1;

end

format lo ｎg g

n n

ｘ

jingdu= ｎ orm(x — ｘ 1)

四、運行 結果：

實驗三: :

一、實驗 名稱及題目: :

Gauss — Seide ｌ

迭代法

例３、８（Ｐ75）：試利用 Gaｕss－Ｓeidｅl 迭代公式求解方程 組，并 使 其 數 值 解為方程組得精確解、二、解題思路: :

Gausｓ－Sｅideｌ迭代法與 Jaｃobi 迭代法思路相近，首先將方程組中得系數矩陣分解成三部分,即：，為對角陣,為下三角矩陣，為上三角矩陣.之后確定迭代格式,，(, 即迭代次數),稱為迭代矩陣。最后選取初始迭代向量,開始逐次迭代。最后驗證精度。(迭代陣:.)Gauss—Seideｌ迭代法與 Jａcobi 迭代法相比速度更快，但不全如此。有例子表明：Gausｓ－Seidel 迭代法收斂時,Ｊａｃｏbｉ迭代法可能不收斂;而Ｊaｃobｉ迭代法收斂時,Gaｕss—Seidｅl 迭代法也可能不收斂。

三、Ｍa a ｔl l ａｂ程序代碼：

fu ｎ ctio ｎ

g g ａ uss_ ｓe e ｉ del(Ａ，b, ｘ0 0，eps,x1）

D = ｄｉ ag(d ｉａｇ((Ａ）))；% %求 求 A A 得對角矩陣

L L

= =

－ｔ ri ｌ((Ａ，— １）;;％求 A A 得下三角矩陣

U U

= — triu（A,1);％求 A A 得上三角矩陣

B =(D －Ｌ))U;

f f

=（D D — Ｌ))ｂ；

ｘ

= =

B B ＊ x0+ ｆ;;

n = 1;% % 迭代次數

ｗ hil ｅ

norm(x1--x)>=eps

x = B*x+f;

n = n+1;

ｅ nd

format lon ｇ

n n

x x

j j ｉ ngdu=norm(x1 — x)

四、運行 結果: :

實驗 四: :

一、實驗 名稱及題目: :

Lagra ｎ ge

插值法

例 ４、1(P88): 給 定 函 數 及 插 值 節 點、試構造 Lａgｒange 插值多項式，給出其誤差估計,并由此計算 及其誤差、二、解題思路: :

一般來說,如果我們有個點,各互不相同。那么應用拉格朗日插值公式所得到得拉格朗日插值多項式為:,其中每個為拉格朗日基本多項式(或稱插值基函數),其表達式為:。

三、Matl ａb b 程序代碼: :

f f ｕ nctio ｎ

y y ＝ lagrange（ｘ 0,x)

n=lengt ｈ（x0);% % 向量長度

s= ０；

ｆ or

k=1:nk %k 從 從 1 1 到 到 n n 得循環

ｐ＝1 1、0;

for

j= １ :n

if

j j ～ =k ％“ ~= ”不等于得意思

ｐ =p*（x x — ｘ 0(j))/（x0(ｋ）--x0(j));

ｅ nd

en ｄ

ｙ 0= ｘ０((ｋ)*(1+cos（x x ０(k))）;;

s= ｐ＊ｙ 0+ ｓ;;

end

format lon ｇ

ｓ

ｗｕ ch ａ =a ｂ s(ｘ＊((１ +c ｏ s(x）))--s)

四、運行結果 ：、五、Lagran ｇe e插值圖像繪制

％Lagrangｅ插值圖像算法

x＝liｎspace(０，1002，２00);

s=linsｐaｃe（0,1０00,20０)；

ｘ0＝［0；ｐi/8;pi／4；3*pi/８；pi/2］;

ｎ=length（x0);

s=0;

fｏr k＝1:ｎ

ｐ=1、0；

for j=1:n

ｉf j~=k

p＝ｐ、*(x-x０（j）)/(x0(k)—x0（ｊ）);

end

eｎd

y0=x0(k)*(１+cos(x０(ｋ）)）;

s=p＊y０+s；

ｅｎｄ

ｐloｔ(ｘ,s，’r“);

grid on;

ｔitle(”Lagｒａｎｇe2??μí???’)

xlaｂｅｌ(’X’)，ylabｅｌ(“Y”);

axis ｎormal；

實驗 五: :

一、實驗 名稱及題目: :

Ne ｗｔ on 插值法

例 ４、3（Ｐ 96)：

已 知 , 試 取 插 值 節 點，構造 4 次 Newtｏn 插值多項式,由此計算 得逼近值,并指出其絕對誤差、二、解題思路: :

將 拉 格 朗 日 插 值 公 式 中 得 改 寫成:))...((...))(()()(1 0 1 0 2 0 1 0 ?? ? ? ? ? ? ? ? ? ?n n nx x x x a x x x x a x x a a x N ,其中，為待 定 定 系 數.又 。

將 帶 入 可得:))...()(](,..., , [...)](, [)()(1 1 0 1 0 0 1 0 0 ?? ? ? ? ? ? ? ?n nx x x x x x x x x f x x x x f x f x f.三、Matl ａb b 程序代碼: :

function

newt ｏｎ _interpol ａ tion(x ０，ｘ))

f f ｏｒm m ａt t

lo ｎg g

n n ＝l l ｅｎ gt ｈ((ｘ 0);

syms

ｚ

ｆ =sq ｒt t（1+c ｏｓ h(z）＾ 2);

a(1)＝ sub ｓ(f,z,x ０(1)）;;

ｆ or

k=1 ：ｎ — １

y0=subs(f，z z，x x ０(k）))；

ｙ 1=subs（f, ｚ，x0(k+ １))）;;

ｄ(k,1）

=(y1--y y ０)/(ｘ 0(k ＋1 1）－x x ０（k k））;;％一階差商

ｅ nd

f f ｏr r

j=2: ｎ--1 1

fo ｒ

k k ＝1 1 ：n n —j j

d(k, ｊ）

=(d（k+1，j j — １))— d(k, ｊ－ 1))/(x０((ｋ +j）－x x ０((ｋ）);% % 二階差商及以上

en ｄ

ｅｎd d

d d ｏ uble(ｄ))

for

ｊ =2: ｎ

a(j)=d(1,j — １);

end

b b（1 1）

=1 ；c c（1)= ａ(1);

f f ｏr r

j=2 ：n n

b b（ｊ）

=(x--ｘ０（j j--1)）、*b（j j — １）;;

c(ｊ)=a(j)、*b（j)；

e e ｎd d

n n ｐ =dou ｂ le(su ｍ（c c））

w w ｕ cha=d ｏｕ bl ｅ(abs(np--su ｂｓ（ｆ ,z，ｘ))）))

四、運行結果: 五、Newｔoｎ插值 圖 像繪制

實驗 六: :

一、實驗 名稱及題目：

Gauss

求積公式

例 5、７（P140)：試構造 Gaｕss 型求積公式，并由此計算積分、二、解題思路: :

設高斯-勒讓德求積公式就是:,依次代入，解得.利用換元公式變換原式得積分上下限，在套用高斯—勒讓德求積公式求得積分.三、b Matlab 程序代碼: :

ｆu u ｎ ct ｉo o ｎ

ｇ aus ｓ（a,b）

sy ｍ s t t

f=sqrt（t t）／(1 ＋ t)^2;

P P ＝［--s s ｑ rt（3/5)0 sqrt(３ /5)］；

A=[ ５／ 9 8/9 5 ／9 9 ］；

s= ０；

ｆ or

i i ＝ 1:3;

x=P(i)；

y=s ｕ bs（f,t,（ｂ--ａ)* ｘ /2+（ａ＋b b）

/2）;;

s=s ＋ A(ｉ)*y;

ｅｎｄ

form ａ t ｌ ong

S= ｄ oub ｌ e(（a a — b)/2* ｓ）

四、運行結果: :

結束語

在本學期得《計算方法》課程學習中，我們感受到了巧妙得數學計算方法在解決實際問題中帶來得便利與高效,借助計算機解決科學計算問題也就是我們當代大學生應當掌握得必要技能。

在本課程得上機實驗過程中,我們親自體驗了課本中所學到得算法在計算機上得使用,使用計算機語言,如ＭATLＡB 與 C 語言等進行編程,加深了我們對各類算法及其理論得理解,并進一步激發了我們對《計算方法》這門課程進行持續學習得學習興趣。

第二篇：計算方法上機實驗

龍格-庫塔

#include

#include

float function(float x,float y)

{

return(0-(y*y));//f(x,y)μ?±í′?ê? }

int main()

{

float x0,x1,y0,y1,k1,k2,k3,k4,a,b,c,n,h;int i;

scanf(“%f %f %f %f”,&a,&b,&c,&n);x0=a;

y0=c;

h=(b-a)/n;

for(i=1;i<=n;i++)

{

k1=h*function(x0,y0);

k2=h*function(x0+h/2,y0+k1/2);k3=h*function(x0+h/2,y0+k2/2);k4=h*function(x0+h,y0+k3);x1=x0+h;

y1=y0+(k1+2*k2+2*k3+k4)/6;

printf(“x%d=%f,y%d=%fn”,i,x1,i,y1);x0=x1;

y0=y1;

}

return 0;

}

拉格朗日

#include

#include

#include

#define maxlength 500

#define pi 3.14***

floata[maxlength],f[maxlength];

float n;

floatlagrange(floata[],floatf[],float x,int n)

{

int k=0,j;

floaty=0.0,l;

while(k<=n)

{

l=1.0;

// printf(“%lfn”,y);

for(j=0;j<=n;j++)

{

if(j!=k)

{

l=l*(x-a[j])/(a[k]-a[j]);// printf(“%lfn”,l);

}

}

//printf(“%lfn”,f[k]);

// printf(“%lfn”,l);

y=y+l*f[k];

k++;

}

printf(“x=%f,y=%fn”,x,y);

return y;

}

float fx1(floatx)

{

return(1/(1+x*x));

}

floatfx2(floatx)

{

return exp(x);

}

floatfx3(float x)

{

return sqrt(x);

}

void math1(float c,float n)

{

int i=0;

float h;

h=2*c/n;

while(i<=n)

{

a[i]=i*h-5;

i++;

}

}

void math2()

{

int i=0;

while(i<=n)

{

a[i]=cos((2*i+1)*pi/2/(n+1));

i++;

}

}

int main()

{

n=20;

int i;

math1(5,n);

for(i=0;i<=n;i++)

{

f[i]=fx1(a[i])

}

lagrange(a,f,0.75,n);

return 0;

}

龍貝格

#include

#include

#include

double t[1000],r[1000];

double f(double x)

{

return(x*x*exp(x));

}

int main()

{

double h,a,b,e;

int i,N,m;

scanf(“%lf,%lf,%d,%lf”,&a,&b,&N,&e);

h=b-a;

m=0;

t[1]=0.5*h*(f(a)+f(b));

printf(“%lf”,t[1]);

r[0]=t[0];

while(1)

{

printf(“n”);

for(i=0;i<((m<4)?m:4);i++)

t[i]=r[i];

m++;

h=h/2;

r[0]=t[0]/2;

for(i=1;i<=pow(2,m);i++)

r[0]+=h*f(a+(i-0.5)*h)/2;

printf(“%lf”,r[0]);

r[1]=(4*r[0]-t[0])/3;

printf(“ %lf”,r[1]);

if(m==1)

continue;

r[2]=(16*r[1]-t[1])/15;

printf(“ %lf”,r[2]);

if(m==2)

continue;

r[3]=(64*r[2]-t[2])/63;

printf(“ %lf”,r[3]);

if(m==3)

continue;

if((fabs(r[3]-t[3])<=e)||(m==N))

break;

}

printf(“nthe current time is :%dn”,m);

return 0;

}

牛頓

#include

#include

#include

double function(double point)

{

return(point*point-2*point*exp(-point)+exp(-2*point));

}

double d_function(double point)

{

return(2*point+2*point*exp(-point)-2*exp(-point)-2*exp(-2*point));}

int main()

{

double beginner,error1,error2;

int max_times=0;

beginner=error1=error2=0;

scanf(“%lf %lf %lf %d”,&beginner,&error1,&error2,&max_times);int current_times=0;

while(current_times<=max_times)

{

if(fabs(function(beginner))

{

printf(“%lfn”,beginner);

return 0;

}

if(fabs(d_function(beginner))

{

printf(“failuren”);

return 0;

}

beginner=beginner-function(beginner)/d_function(beginner);if(fabs(function(beginner)/d_function(beginner))

printf(“%lfn”,beginner);

return 0;

}

current_times++;

}

printf(“failuren”);

return 0;

}

第三篇：上機實驗報告

一． 題目1． 建立一個學生檔案，內容包括學號，姓名，年齡，性別，數學，物理和英語3門功課成績。要求實現以下功能：1)數據輸入；2)查詢某個學生的成績；3)按平均排列輸出；4)統計某門課各分數段人數；5)刪除某個學生記錄；2． 編程實現對二位數進行加，減，乘運算，每運行一次程序做10道題，完成后給出成績（每題10分）。二． 設計思想和模塊劃分1.1．先定義所需要的條件，例如，姓名，學號，性別，三門功課的成績，平均分等。2．輸入姓名，學號，性別，年齡，三門功課的成績后，就輸出相應的姓名，學號，性別，年齡，三門功課的成績。3．打印表頭；4．在求出平均分，并打印出平均分。5．在查找學生，并打印出學生的相關資料；并按照平均分的高低排列；6．在統計學生各科成績是否》=60分，如果是就是通過，否就是沒通過，最后打印出最后的結果。7．刪除學生，選中刪除的學生，如果確定要，那么該學生的一切記錄就變為0；2．1．隨機調用函數，產生兩個其值為10到99的隨機整數分別放在c,d中用作運算時的運算數。2．隨機調用函數，產生一個值為1到3 的隨機整數放入b中，用來選擇不同的運算。根據b的值選擇不同的運算。當b=1時，去進行c+d的運算練習；當b＝2 時，去進行c-d的運算練習；當b=3時，去進行c×d的運算練習。每完成一個算題就給出是否正確的信息。3．根據答案正確與否統計。正確時，顯示’right’;錯誤時，顯示’wrong’。4．步驟1.2.3.4.重復10次。5．輸出學生成績。三． 運行結果1.Input the 1 student :num:03name:wfage:18sex:fmath:98phy:75eng:65Input the 2 student :num:06name:scage:17sex:fmath:78phy:45eng:65Input the 3 student :num:09name:ytage:17sex:mmath:69phy:75eng:501.readin 2.finds 3.del 4.tj 5.exit1-----------------------------table----num name age sex math phy eng ave------3 wf 18 f 98.0 75.0 65.0 79.3------9 yt 17 m 69.0 75.0 50.0 64.7-------6 sc 17 f 78.0 45.0 65.0 62.7-------1.readin 2.finds 3.del 4.tj 5.exit2Into number:3---num name age sex math phy eng ave---3 wf 18 f 98.0 75.0 65.0 79.3----1.readin 2.finds 3.del 4.tj 5.exit3Into number:6---num name age sex math phy eng ave---6 sc 17 f 78.0 45.0 65.0 62.6---true? Y/Ny1----------------table------------------num name age sex math phy eng ave----3 wf 18 f 98.0 75.0 65.0 79.3-----9 yt 17 m 69.0 75.0 50.0 64.7-----0 0 0 f 0.0 0.0 0.0 0.0-----1.readin 2.finds 3.del 4.tj 5.exit4 1.input the math 2.input the phy 3.input the eng 1math: pass num is :3 no pass num is :02.32+82=114right!97*15=1455right!99-58=41right!76-66=10right!58+13=71right!37+49=86right!99+52=151right!49*69=5462wrong!73-38=31wrong!86+34=120right!mark is 80四． 主要錯誤改正方法1.在本題的編寫過程中常出現begin 和end 不配對，只要始它們的個數相同就可以了，就可以了。在程序中常出現的’unknown identifier’沒有定義的錯誤，只要在程序前加上定義，就可以了。還有就是type mismatch’的類型不匹配，只要根據前后內容，重新定義，就可以了。2.在本題編寫中，題目要求是兩個兩位數運算，如果寫成c:=random(100)在運行過程中，就會出現一位數運算，只要把它寫成c:=random(90)+10，就可以了。五． 實習小結1．第一題的程序編寫比較復雜，需要較多的定義，因而在后面的程序部分，就常出現標識符重復，而導致的類型不匹配。還有就是每個部分編好后，上下不能連接，而無法調用。2．第二題較第一題簡單，和書上的例題類似，所以，比較簡單，但從中也出現一些不問題。以上兩大題中出現的問題，要在同學的幫助下，才能完成。總的來說兩題程序比較困難六． 程序清單1.program twins;const m=3;n=3;typestudent=recordnum:integer;name:string[3];age:integer;sex:char;s:array[1..n] of real;math,eng,phy:real;ave:real;end;sarr=array[1..m] of student;ta=array [1..m] of student;f=string[6];varstu:sarr;ct:ta;k,d:integer;procedure readin(var stu:sarr);const wrong='0<=data<=100 ,again!';var j,i:integer;a:student;beginwriteln;writeln('Input ',m,' num name sex math phy eng',' of student.');for j:=1 to m dobeginwriteln;writeln('Input the ',j,' student :');with a dobeginwrite('num:');readln(num);write('name:');readln(name);write('age:');readln(age);write('sex:');readln(sex);while(sex<>'m')and(sex<>'f')dobeginwrite('sex:');readln(sex)end;for i:=1 to n do begincase i of1:begin write('math:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('math:');readln(s[i]);end;end;2:begin write('phy:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('phy:');readln(s[i]);end;end;3:begin write('eng:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('eng:');readln(s[i]);end;end;end;end;stu[j]:=a;end;writeln;end;end;procedure ave(var stu:sarr);var j,i:integer;k:real;beginfor j:=1 to m dobegink:=0;with stu[j] dobeginfor i:=1 to n do k:=k+s[i];ave:=k/nend;end;end;procedure px(var stu:sarr);var tm:ta;j,i,p:integer;beginfor j:=1 to m dobeginp:=j;for i:=j+1 to m doif stu[i].ave>stu[p].ave then p:=i;tm[1]:=stu[p];stu[p]:=stu[j];stu[j]:=tm[1];end;end;procedure head(ct:ta);var i:integer;beginwrite(' ');for i:=1 to 72 do write('-');writeln;write('',' num':4,' ','name':9,' ','age':8,' ','sex':5,' ','math':6,' ','phy':9,' ','eng':8,' ');writeln('ave':6,' ');write(' ');for i:=1 to 72 do write('-');writeln;with ct[1] dobeginwrite('',num:7,' ',name:8,' ',age:8,' ',sex:5,' ');for i:=1 to n do write(s[i]:7,' ');write(ave:10,' ');writeln;end;write(' ');for i:=1 to 72 do write('-');writeln;end;procedure find(var stu:sarr);var n,i:integer;u:boolean;beginu:=true;while u dobeginwrite('Into number:');readln(n);for i:=1 to m dobeginif stu[i].num=n then beginct[1]:=stu[i];u:=false;d:=iend;end;end;end;procedure del(var stu:sarr);var i:integer;b:char;beginhead(ct);write('true? Y/N');readln(b);if b='y' then begin write('1');with stu[d] dobeginnum:=0;name:='0';age:=0;sex:='f';for i:=1 to n do s[i]:=0;ave:=0end;endelseend;procedure tj(var stu:sarr);var w1,q1,q2,num,j:integer;h1,h2,h3:boolean;beginh1:=false;h2:=false;h3:=false;q1:=0;q2:=0;writeln(' ':30,'1.input the math 2.input the phy 3.input the eng ');readln(w1);case w1 of1:h1:=true;2:h2:=true;3:h3:=true;end;if h1 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].math>=60 thenq1:=q1+1elseq2:=q2+1;writeln('math:');end;if h2 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].phy>=60 thenq1:=q1+1elseq2:=q2+1;writeln('phy:');end;if h3 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].eng>=60 thenq1:=q1+1elseq2:=q2+1;writeln('eng:');end;end;end;end;writeln(' ':5,'pass num is :',q1);writeln(' ':5,'no pass num is :',q2);end;procedure head1(var stu:sarr);var j,i:integer;beginwriteln('----------------table--------------':60);writeln;write(' ');for i:=1 to 72 do write('-');writeln;write('',' num':4,' ','name':9,' ','age':8,' ','sex':5,' ','math':6,' ','phy':9,' ','eng':8,' ');writeln('ave':6,' ');write(' ');for i:=1 to 72 do write('-');writeln;for j:=1 to m do beginwith stu[j] dobeginwrite('',num:7,' ',name:8,' ',age:8,' ',sex:5,' ');for i:=1 to n do write(s[i]:7:1,' ');write(ave:10:1,' ');writeln;end;write(' ');for i:=1 to 72 do write('-');writeln;end;end;beginreadin(stu);ave(stu);k:=0;while k<>5 dobeginwriteln('1.readin 2.finds 3.del 4.tj 5.exit');read(k);readln;while(k<>1)and(k<>2)and(k<>3)and(k<>4)and(k<>5)dobeginwriteln(' mistake,please again');read(k)end;case k of1: begin px(stu);head1(stu)end;2: begin find(stu);head(ct)end;3: begin find(stu);del(stu);px(stu);head1(stu)end;4: begin tj(stu);end;5: writeln('exit!');end;end;end..2.program shadow;var a,b,c,d,e:integer;right:boolean;procedure s1;beginwriteln('right!');right:=trueend;procedure s2;beginwriteln('wrong!');right:=falseend;procedure s3(x,y:integer);var h:integer;beginwrite(x,'+',y,'=');readln(h);if h=x+y then s1else s2 end;procedure s4(x,y:integer);var h,w:integer;beginif x

第四篇：電算化上機實驗報告

管理學院會計學專業上機實踐報告

課程名稱：會計電算化 指導教師：

上機實踐名稱：系統管理與基礎設置 上機實踐編號：實驗一

一、實驗目的

通過上機實驗，理解用友企業級財務軟件系統管理和基礎設置的原理，掌握系統管理和基礎設置的技能。

二、實驗內容

1、軟件的安裝啟動系統管理模塊

2、[系統管理]用以實現對各個模塊進行統一的操作管理和數據維護，已注冊的系統管理員可實施管理該系統中的所有賬套并可設置和修改管理員密碼、設置操作員和賬套主管、建立賬套、引入和輸出賬套等。

3、建立的賬套

4、設置操作員，劃分職責權限，進行財務分工

5、設置賬套的基礎信息

6、賬套數據的輸出保存

三、上機實踐所使用的功能 1.初始化數據庫； 2.啟動系統管理；

3.設置操作員：增加用戶，修改用戶；

4.新建賬套：設置賬套信息，輸入單位信息，確定核算類型，確定分類信息，確定編碼方案，確定數據精度，系統啟用； 5.設置操作員權限； 6.賬套輸出。

年級： 姓名：

學號： 組號：

上機實踐成績：

上機實踐日期：2016/3/18 上機實踐時間：2小時

四、操作過程出現的問題及解決方法

1.增加用戶時，輸入錯誤想要修改時，點擊修改按鍵沒有反應，點擊刪除進行重新輸入，之后查閱相關資料，需要進行雙擊之后點擊修改就可以成功修改用戶；

2.建立賬套輸入單位信息時，實訓信息給的是“聯系電話及傳真”項，實際操作時，使用的軟件中，“聯系電話”與“傳真”兩項是分開列示，所以操作時，兩個項目填了同一內容。3.以操作員身份進入系統管理設置權限時，點擊權限前面的小方格沒有反應，之后點擊修改按鍵，就可以成功在方格內打鉤；

4.賬套備份時，沒有找到實訓資料所給的文件夾，之后自行在D盤創建了相應文件夾，進行文件輸出。

五、總結

通過這次的上機，我對用友軟件有了更深的了解，同時也有了一些自己的一些看法：

在上機操作過程中，首先，要明確實驗目的。只有明確了實驗目的，我們才能明確整個實驗的方向。然后對于實驗指導書中給出的實驗原理，我們要認真思考，我們要做到盡量真正地理解，而不應僅僅按照實訓指導中的步驟做出來。并且，要有虛心請教的態度，與同學積極交流看法，加深理解，討論的過程也是消化吸收的過程。

在上機中不僅要對不懂的地方積極請教，而且別人遇到問題的時候也要積極幫助。通過這相互幫助的過程，我總結了對于本次實訓中應該注意的一些問題。

1.各系統時間的設置。很多同學啟用的系統時間往往到后面的實訓審核憑證的時候，系統會出現＂不能超前建賬時間＂或＂不能滯后建賬時間＂，這一錯誤的根源在于啟動總賬系統時間時，必須大于或等于賬套的啟用時間。

2.權限的設置。每一個用戶（除賬套主管外）的權限掌握在賬套主管的手中，只有賬套主管給予用戶權限，用戶才能行使他的職責。如果沒有設置用戶權限，在后面的操作中用戶就不能進入賬套。

3.注意賬套備份。在實驗中，賬套備份很重要。在實踐的過程中，一旦電腦出現問題數據丟失，沒有備份就會造成重新開始的麻煩。

4.要學會自我變通。自己必須根據學過的類似知識，具備舉一反三的能力，將會在以后的企業工作中有很大的幫助。

系統管理和基礎設置是最基礎的第一步，能讓我們熟悉用戶、賬套、權限、基礎檔案等的設置和管理的基本流程。實訓讓我們把平時學習的理論知識與實際操作相結合，在理論和實訓教學基礎上進一步鞏固已學基本理論及應用知識并加以綜合提高，學會將知識應用于實際的方法，能夠提高分析和解決問題的能力。實訓的過程中，我深深感覺到自身所學知識的有限以及不扎實。另外一點,也是在實訓中必不可少的部分，就是同學之間的互相幫助。有些東西感覺自己做的時候沒什么錯誤，讓同學幫忙看了一下，就能發現一些小錯誤和細節問題。所以說，相互幫助是很重要的。這在以后的工作或生活中也是很關鍵的。此次實訓，我深深體會到了積累知識的重要性。以后一定要好好學習軟件的操作，把基礎的技能掌握好，為未來打下更扎實的根基。

管理學院會計學專業上機實踐報告

課程名稱：會計電算化 指導教師：

上機實踐編號：實驗二

一、目的

通過上機，充分理解用友企業級財務軟件總賬系統初始化原理，掌握總賬系統初始化的基本操作，建立適合 實際需要的賬務系統。

二、實驗內容

在啟用新賬套之前，應根據企業的實際情況及業務要求，先對手工會計下的資料進行整理，以便在計算機上建立本單位的核算系統。用友企業級財務軟件除了可以在系統控制臺中對該系統所有的基礎信息諸 如編碼方案、數據精度、部門檔案等進行設置外，也可在相關的系統模塊中進行。

（一）新建會計科目

（二）修改會計科目

（三）復制會計科目

（四）指定會計科目

（五）查詢會計科目

（六）刪除會計科目

（七）部門與職員檔案

（八）客戶分類及其檔案

（九）供應商分類及其檔案

（十）存貨分類及其檔案

三、上機實踐所使用的功能

1.登陸企業應用平臺

2.部門檔案設置

3.人員檔案設置 4.客戶檔案設置

5.供應商檔案設置

6.存貨分類設置 7.定義計量單位組

8.定義計量單位

9.存貨檔案設置

10.建立會計科目：新建會計科目、修改會計科目、復制會計科目、指定會計科目、查詢會計科目、刪除會計科目

四、操作過程出現的問題及解決方法

問題：非末級會計科目設置出錯，并且已經輸入數據

解決方法：先將該科目及其下級科目余額清零后，選擇“基礎設置”/“基礎檔案”/“財務”/“會計科目”，選中要修改的會計科目，單擊“修改”

年級：

姓名：

組號：

上機實踐成績：

上機實踐日期：2016/3/25 上機實踐時間：2小時 上機實踐名稱：總賬系統初始化

（一）學號：

五、總結

在第二次實訓中，繼續圍繞本專業所提出的知識要求和能力要求，我進行了會計電算化計算機上機練習。現對本人這次實訓的上機練習情況和教訓經驗總結如下：

以賬套主管進登陸賬套，首先是基礎檔案設置：

進行基礎檔案設置，包括部門檔案、職員檔案、客戶分類、供應商分類、地區分類、客戶檔案、供應商檔案、開戶銀行、外幣及匯率、結算方式。

（1）啟動企業門戶。執行“開始”|“程序”|“用友ERP-U8”|“企業門戶”命令，打開“注冊〖企業門戶〗”對話框。輸入：操作員、密碼。選擇賬套，輸入會計和日期。單擊“確認”按鈕。

（2）進行基礎設置。打開“控制臺”頁簽，執行“基礎信息”|“基礎檔案”命令，在“基礎檔案”窗口中，雙擊要設置檔案項目，即進入相應項目的設置界面。

（3）按所給實驗資料依次輸入基礎檔案數據。然后是建立會計科目。

（1）增加明細會計科目。執行“設置”|“會計科目”命令，進入“會計科目”窗口，顯示所有“按新會計制度” 預置的科目。單擊“增加”按鈕，進入“會計科目——新增”窗口，輸入實驗資料中所給的明細科目。單擊“確定”按鈕。繼續單擊“增加”按鈕，輸入實驗資料中其他明細科目的相關內容。全部輸完后，單擊“關閉”按鈕。

（2）修改會計科目。在“會計科目”窗口中，單擊要修改的會計科目，單擊“修改”按鈕或雙擊該科目，進入“會計科目——修改”窗口。單擊“修改”按鈕，進行修改后單擊“確定”按鈕。注意已有數據的科目不能修改科目性質。

（3）刪除會計科目。在“會計科目”窗口中，選擇要刪除的會計科目。單擊“刪除”按鈕，彈出“記錄刪除后不能修復！真的刪除此記錄嗎？”提示框。單擊“確定”按鈕，即可刪除該科目。

（4）指定會計科目。執行“編輯”|“指定科目”命令，進入“指定科目”窗口。單擊“現金總賬科目”單選按鈕，將“1001現金”由待選科目選入已選科目。“銀行總賬科目”單選按鈕，將“1002銀行存款”由待選科目選入已選科目。單擊“確認”按鈕。指定科目后，才能執行出納簽字，從而實現現金、銀行管理的保密性，才能查看現金、銀行存款日記賬。

管理學院會計學專業上機實踐報告

課程名稱：會計電算化 指導教師：

上機實踐編號：實驗三

一、目的

通過上機，充分理解用友企業級財務軟件總賬系統初始化原理，掌握總賬系統初始化的基本操作，建立適合 實際需要的賬務系統。

二、實驗內容

（一）設置明細權限

（二）設置憑證類型

（三）設置總賬控制參數

（四）常用憑證

（五）修改余額方向

（六）錄入本位幣余額

（七）錄入外幣余額

（八）錄入數量余額

（九）試算平衡

三、上機實踐所使用的功能

1.設置憑證類別

2.項目定義

3.設置結算方式 4.設置總賬系統選項

5.期初余額錄入

6.設置明細權限

四、操作過程出現的問題及解決方法

問題：使用應收賬款、應收票據科目或應付賬款、應付票據科目填制憑證時，屏幕上出現“不能使用[應收系統]的受控科目”或“不能使用[應付系統]的受控科目”的提示。

分析：設置會計科目時，已定義為客戶、供應商核算的會計科目被設置成應收系統、應付系統的受控科目。

解決辦法：如果該會計科目不需要由應收系統、應付系統受控，應在進行相應會計科目設置時，不指定受控系統，而設置為空，即由總賬系統直接控制，那么在總賬系統中填制憑證時就不會出現這種提示了。

五、總結

通過實驗掌握了總賬管理系統的概念、功能及與其他系統的關系、設置控制系數、設置基礎數據、輸入期初余額等內容。總賬管理系統是財務及企業管理軟件的核心系統，適用各行業賬務核算及管理工作。但應該注意以下幾點：

1.會計科目，開始時根據資料增加和修改會計科目，等到填制憑證時才發現要新增會計科目，更換操作員再進入“基礎數據”，然后更改。增加的明細科目，會把總賬科目的金額過渡到明細科目中。2.客戶往來，供應商往來期初余額直接錄入，個人往來、項目核算期初余額要進入到輔助核算科目窗口中錄入。3.調整某一科目的余額方向時，若該科目及下級科目尚未錄入期初余額，則當一級科目方向調整后，其下級科目也隨一級科目一起調整。4.輔助核算科目時，如果輸入，過程中發現某項輸入錯誤，可按?esc?鍵取消當前項的輸入；如果想放棄修改，按?Esc?鍵即可。

年級： 姓名：

組號：

上機實踐成績：

上機實踐日期：2016/4/1 上機實踐時間：2小時 上機實踐名稱：總賬系統初始化

（二）學號：

管理學院會計學專業上機實踐報告

課程名稱：會計電算化 指導教師：

上機實踐名稱：日常會計業務處理

（一）上機實踐編號：實驗四

一、目的

通過實驗，掌握憑證填制的內容及相應的控制，憑證審核和憑證記賬的方法，并理解計算機方式與手工方式下憑證填制、憑證審核及憑證記賬的差異。

二、實驗內容

憑證處理是日常會計核算業務中最經常性的工作，也是日常使用賬務處理系統中最基礎性的工作。

一般賬務處理系統的憑證處理功能主要包括：憑證輸入、憑證修改、憑證審核和記賬。

（一）手工輸入記賬憑證

（二）在“憑證輸入”過程中新增會計科目

（三）保存記賬憑證

（四）日常機制憑證

（五）查詢未記賬憑證

三、上機實踐所使用的功能

1.增加憑證

2.保存憑證

3.查詢憑證

四、操作過程出現的問題及解決方法

問題：不能進行憑證錄入。

解決方法：因為未對憑證進行“憑證類別”（也就是常見的“收字、轉字、付字”）設定，解決方法很簡單，進入“憑證類別”進行設定即可.五、總結

通過這次用友軟件的使用，我對自己的專業有了更為詳盡的了解，也是對這幾年大學里所學知識的鞏固與運用。從這次實訓中，我知道了自己有諸多方面的不足，需要認真改正缺點和彌補會計知識的不足，用友軟件實習結束了，在以后的工作中，我想我會更密切接觸財務軟件，不管用什么財務軟件，遇到什么樣的問題，有了這一次實踐操作，都會對我們以后工作和學習有重要的幫助。在此，感謝老師為我們所提供這個用友財務軟件操作機會。

年級： 姓名：

學號： 組號：

上機實踐成績：

上機實踐日期：2016/4/8 上機實踐時間：4小時

管理學院會計學專業上機實踐報告

課程名稱：會計電算化 指導教師：

上機實踐名稱：日常會計業務處理

（二）上機實踐編號：實驗五

一、目的

通過實驗，掌握憑證填制的內容及相應的控制，憑證審核和憑證記賬的方法，并理解計算機方式與手工方式下憑證填制、憑證審核及憑證記賬的差異。

二、內容

（一）修改記賬憑證

（二）審核記賬憑證

（三）作廢記賬憑證

（四）刪除記賬憑證

（五）記賬與反記賬

（六）查詢記賬憑證

三、上機實踐所使用的功能

1.修改憑證

2.作廢憑證

3.刪除憑證

4.查詢憑證

5.審核憑證/取消審核

6.記賬/取消記賬 7.出納簽字/取消簽字

四、操作過程出現的問題及解決方法

問題：已記賬的憑證無法修改。

解決方法：首先以“審核員”或者“記賬員”的身份重新登錄，然后進入“套賬管理”模塊，選擇“恢復記賬前狀態”菜單，這時，可以在“恢復最近一次記賬前狀態”和“恢復到月初時狀態”之間進行選擇。之后進入“憑證處理”模塊，取消對出錯憑證的審核，然后再以“制單員”的身份重新登錄，進行修改操作。

五、總結

在此次實驗中，需要做相關業務的知識的填充。清楚出納和會計的崗位職責以及不同崗位的業務流程，不同職責的權限是不同的，所以用戶登錄操作需要思路清晰。

注意事項總結：

1.若系統數據是上個月初啟用，在記賬前，需對上個月的賬目進行結賬。

2.相應的憑證需要對應相應的時間，注意時間的先后順序，時間問題會增加一些困難，導 致操作出錯，通過修改本地系統時間進行操作。（感覺好像是一個系統漏洞，能夠通過此進行投機取巧）。

通過U8，我更深刻的體會到財務處理過程的業務流程。

年級：

姓名：

學號： 組號：

上機實踐成績：

上機實踐日期：2016/4/15 上機實踐時間：2小時

管理學院會計學專業上機實踐報告

課程名稱：會計電算化 指導教師：

上機實踐名稱：期末賬務處理 上機實踐編號：實驗六

一、目的

通過實驗，了解電算化方式下高效地完成月末處理的特點，掌握生成轉賬憑證的操作技巧。

二、實驗內容

期末會計業務是會計人員在每個會計期末都需要完成的一些特定的會計工作，包括：成本費用的計提、分攤、對賬、結賬等。在將本月所發生的經濟業務全部登記入賬后，計提分攤費用，結轉損益類科目，并進行對賬、結賬，結束本月會計處理流程，為下月會計處理做好準備。

（一）自動轉賬定義

（二）期末自動轉賬

（三）期末對應結轉

（四）自動結轉匯兌損益

（五）自動結轉期間損益

（六）賬賬核對

（七）試算平衡

（八）期末結賬

三、上機實踐所使用的功能

1.自定義轉賬設置

2.對應結轉設置

3.期間損益設置 4.轉賬生成5.對賬

6.結賬/取消結賬

四、操作過程出現的問題及解決方法

問題：期末不能結賬

解決方法：重新由賬套主管登錄，在“期末”菜單中雙擊“結賬”，進入結賬向導，雙擊要取消的結賬的月份，按“Ctrl+Shift+F6”激活“取消結賬”，單擊確定即可

五、總結

通過本次上機實踐，總結出以下注意事項：

1.第一次使用銀行對賬功能前，系統要求錄入日記賬及對賬單未達賬項，在開始使用銀行對賬之后不再使用。

2.在錄入完單位日記賬、銀行對賬單期初未達賬項后，請不要隨意調整啟用日期，尤其是向前調，這樣可能會造成啟用日期后的期初數不能在參與對賬。3.對賬條件中的方向、金額相同是必選條件。

4.在自動對賬不能完全對上的情況下，可采用手工對賬。

5.輸入轉賬計算公式有兩種方法：

一是直接輸入計算公式；二是引導方式錄入公式。

年級：

姓名：

學號： 組號：

上機實踐成績：

上機實踐日期：2016/4/22 上機實踐時間：2小時

管理學院會計學專業上機實踐報告

課程名稱：會計電算化 指導教師：

上機實踐名稱：報表制作 上機實踐編號：實驗七

一、目的

通過本次實驗，通過對手工報表的分析，進一步介紹了固定格式報表和變動格式報表的設計以及公式的編輯，是充分發揮電子報表功能的基礎，是電子報表處理工具的強大優越性的體現。

二、實驗內容

（一）自定義一張報表

（二）利用報表模板生成報表

（三）報表格式的修改與參照

（四）區域保護、報表或格式加鎖設置

（五）編輯計算公式

（六）編輯審核公式

（七）編輯舍位平衡公式

三、上機實踐所使用的功能

1.報表格式設計（格式狀態、行高列寬、組合單元、區域劃線、單元屬性）2.編輯單元公式

3.編輯審核公式

4.編輯舍位平衡公式 5.用模板生成報表

6.報表數據生成

四、操作過程出現的問題及解決方法

問題：審核報表時，顯示錯誤信息

解決方法：是因為數據不能滿足某個審核公式的要求，重新將數據更正即可。

五、總結

財務報表對于一個企業的財務狀態有著完好的詮釋，所以報表的編制十分的重要。編制時，賬表、科目表以及余額表的平衡的要求十分嚴格，必須之前的操作無誤才能進行。所以信息錄入的時候必須小心謹慎并且多次檢查。在編制過程中對于關鍵字無法錄入時，應該在“格式”下設置關鍵字；還有注意報表生成時修改公式中的科目代碼。

通過這次試驗，深刻體會到財務處理的每一步都需要嚴格的準確性，必須養成嚴謹的人生態度，這樣才能在面對各種事務處理時才能更加如魚得水。

年級： 姓名：

學號： 組號：

上機實踐成績：

上機實踐日期：2016/4/29 上機實踐時間：4小時

第五篇：Java上機實驗報告

Homework3實驗報告

一、實驗目的與要求

1、掌握Java中類和接口的基本知識；

2、繼承的基本知識；

3、集合的基本操作

二、實驗內容 1.PIMCollection 類

創建一個可以管理PIMEntities實體的集合，該類實現了Collection接口，且必須實現了以下方法：(1).getNotes();返回PIMCollection中所有的PIMNote項，如果不包含PIMNote項，則返回一個空集合

(2).getTodos();返回集合PIMCollection中所有的PIMTodo項，如果不包含PIMTodo項，則返回一個空集合

(3).getAppointment();返回集合PIMCollection中所有的PIMAppointment項，如果不包含PIMAppointment項。則返回一個空集合(4).getContacts();返回結合PIMCollection中所有的PIMContact項，如果不包含PIMContact項，則返回一個空集合

(5).getItemsForDate(Date d);返回集合PIMCollection中所有與d匹配的PIMEntities，如果沒有匹配d的項，則返回一個空集合

（只有PIMTodo和PIMAppointment項，因為PIMNote和PIMContact跟日期沒有關系）。

2.TestPIMCollection類（自己的測試類）

向PIMCollection集合類中加入了一些PIMEntity實體類，并用PIMCollection類中實現的方法分別篩選出了其中的PIMNote、PIMTodo、PIMAppointment、PIMContact、符合指定日期d的集合并打印輸出。

三、實驗器材

計算機+windows操作系統+eclipse

四、實驗步驟

1.程序源代碼（壓縮在文件夾里）2.編譯執行程序 3.記錄執行結果

五、實驗結果

1.TestPIMCollection的測試代碼：

2.程序的執行結果：

如圖所示：程序分別輸出了Todo、Note、Appointment、Contact、以及匹配指定日期的結合的結果。

六、實驗小結

1、熟悉了Java集合的基本內容和操作，也包括了泛型的一些知識。

2、通過這個實驗鞏固了java的基礎知識：類和接口的有關知識，繼承的應用。

3、掌握了在eclipse下編譯執行Java程序的知識。

4、通過幾次的編程，熟悉了java的編程規則。

5、綜合應用所學知識完成java程序的分析、設計、調試和總結，為以后編寫更復雜的java程序打下了很好的基礎。