học kỹ thuật và kinh tế bằng ngôn ngữ Pascal - 101 thuật toán và chương trình: Phần 2

Chia sẻ: Lê Thị Na | Ngày: | Loại File: PDF | Số trang:131

Thêm vào BST

Báo xấu

136
lượt xem 30
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Phần 2 Tài liệu 101 thuật toán và chương trình - Bài toán khoa học kỹ thuật và kinh tế bằng ngôn ngữ Pascal trình bày nội dung chương 4 - 101 chương trình. Tham khảo nội dung giáo trình để nắm bắt nội dung chi tiết.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: học kỹ thuật và kinh tế bằng ngôn ngữ Pascal - 101 thuật toán và chương trình: Phần 2

CHƯƠNG 4 101 CHƯƠNG T R Ì N H MOT SO V I DU PROGRAM VIDU1; Var x,y,A,B,C : r e a l ; Begin WritelnC Vào so l i e u ' ) ; Write( X = ' ) ; Readln(x); Writer y = ' ) ; Readln(y); A := X * X + y * y ; B X + y + Ã; c := X * ý - Ã - B * B; W r i t e l n C A = \A:8:3,' B = ',B:8:3,' c = ',C:8:3); End. Program VIDU2 ; Var a,b,c : r e a l ; Begin writeC a = ' ) ; readln(a); writeC b = ' ) ; readln(b); writeC c = readln(c); I f a>b then i f a>c then writeln('Max l a a: ',a:4) else writeln('Max l a c: ',c:4) else i f b>c then v r i t e l n ( ' M a x l a b: ',b:4) else writeln('Max l a c: ',c:4); RrvJ. 139
Program VIDU3; label 222; var x,y,f • re*l; Begin writ-el ' * - ' ) ; readln(x); w r i te( ' y - ' ) ; readln(y); i f (x y)< 0 then begin i f y >= 0 then beg ĩ n f := x+x + y*y; end else Goto 222: end v else i f ( X y ) < - 10 t h e n begin-. f : - x*x*x + y + y+y; end els'? 222.: f := ( x y ) * u y ) : write InC f = ' A:\0i3); End. J 10
Program VÌ DU4_Phuong._trinh_bac_ha ỉ; var a,b,c : real; xi,x2,delta : real; Begin writeln( ' Giai phuong t r i n h bác h a i *) writeln('Vào các he so a,b,c'); writeC a = ' ) ; readln ( a ) ; writeC b = ' ) ; readln ( b ) ; writeC c = ' ) ; readln ( c ) ; ' writeln;j d e l t a := b*b - 4*a*c; i f d e l t a = 0 then begin writelnC Nghiêm kép:'); writelnr X = ' ,-b/(2*a) :4:2); end; i f d e l t a > 0 then begin writeln ( " Hai nghiêm thúc : ' ) ; x i := ( - b + s q r t ( d e l t a ) ) / (2*a); x2 :- ( - b - s q r t ( d e l t a ) ) / (2*a); writelnC x i = *, x i :4:2); writelnr x2 - ', x2 -.4:2); end else begin writeln ( ' Hai nghiêm phúc l i e n hop:'); x i := -b / (2*a) ; ~ x2 := a q r t ( - d e l t a ) / ( 2 * a ) ; w r i t e l n (' x i = ,xl:4:2,' +J' ,3bs(x2):4:2); w r i t e l n (* x2 = ,xl:4:2, - J ' ,abs(x2):4:2); end; End.
Program VIDU5_Tinh_Tong; const n = 10; var i : integer; Tong : r e a l ; X : a r r a y [ l . . n ] of r e a l ; Begin writelnC Vào day X ' ) ; f o r i := Ì t o n do begin writeC x [ ' , i , ' ] = ' ) ; readln( x [ i ] ) ; end; T o n g := 0; F o r i := 1 t o n do Tong := Tong + x [ i ] - , writeln(' Tong = ' . T o n g : 1 0 : 2 ) ; End. Program V I D U 6 _ G i a _ t r i _ d a _ t h u c ; const n = 10; var k : integer; p , X : real; a : arrayti..ni of real; Begin writeln(' Vào đay a ' ) ; f o r k := Ì t o n dò begin write(' 3.[ ' , k , ' . ] - ' ) ; readln(a[k j); end; writeln; wrìte(' Vào gia t r i X -' ) ; readln(x); p := 0; f o r k : " 0 t o ti di.) p : - V + X y alk]'; writ":'-' G i a t r i J a thúc p - *,P:10:i Knrỉ.
i'r-w-Mi VlDUV.EJfvLX; var e_mu,x,t,ep3Ì : real; n : integer; Begin writeC X = readln(x); w r i t e ( ' e p a i = ' ) ; read]-lí ^ p s i ) ; e_jnu : - Ì ỉ n := 1; t : - x; repeat e .mu := e_mu + t ; ri := n + 1; t := t * X / n ; u n t i l t < epai; w r i t e l n ('e_mu',x:7:3,* - ',e_mư:14:3); En..!. V ÍÍIMOI VIDl)8JLapNewton ; orist n ~ 5; V -r í : integer; X : a r r a y [ l . . n ] of real; t,xo,epsi : real; Function JỊaiti(x: r e a l ) : r e a l ; begin Ham x+x*x+x*x - 6+x+x+x+x - 15*x*x*x - 20*x*x - 14*x - 4 en i; 143
F u n c t i o n DaoHani(x: r e a l ) : r e a l ; begin DaoHam := 5*x*x*x*x - 24+x^x*x - 45*x»x 40* X - 14; end; Begin write(* Vào g i a t r i xo = ' } ; r e a d l n ( x o ) : writeC Vào g i a t r i e p a i l o n : e p a i - * ) ; readln(epsi); i := 1 ; x [ i ] ;= x o ; repeat x [ i + l ] := - HaunULi]) / DaoHam(x[i]); t := a b a ( x [ i + l ] - x [ i ] ) ; := x [ ĩ + l ] ; i := i + 1 ; i f i>100 then w r i . t e l n ( ' B a i t o a n không h o i t u ') else u n t i l t
readln(n); w r i t e l n ( * Vào na t r a n he so mo rong a ('.n+l,'' s o ) * ) ; for i : = l to n do begin writeln('Vào hang t h u ' ) ; f o r j : = l t o n+ĩ d o begin J writeCa[ ,i,"',',j,'] = ' ) ; readln(a[i,j]); end; writeln; end; OK := ' '; t := t r u e ; while t do begin writeC Co s u a so l i e u không ( c / k ) : ' ) ; readln(OK); i f upcase(OK) = 'c* then begin w r i t e l n ( ' C h i so hang,cot cua phan t u c a n s u a ' ) ; J «rite( C h i so hang i = ' ) ; r e a d l n ( i ) ; w r i t e C C h i so c o t j = ' ) ; r e a d l n ( j ) ; w r i t e ( ' a [ ' , i , ' , ' , j , ' ] = ' ) ; r e ad l n ( a [ i , j 3 ) ; end; i f u p c a s e ( O K ) o ' C * then t := f a l s e ; end; i := 1; t i := t r u e ; while t i ánd (í
t := f a l s e ; end e l s e k := k+1; i f k±n+l then begin i f a[i,k]= 0 then w r i t e l n C HE vo DINH ') else w r i t e l n r HE vo NGHIÊM - ) ; t i := f a l s e ; end; end; if a[i,i]oO then begin c := a C i . i ] ; f o r j := i+1 t o n+1 do a [ i j ] := a t i . J V c ; f o r k := i+1 t o n do begin c := a [ k , i ] ; f o r j : = i + l t o n+1 do a t k j ] := a [ k , j ] - a t i , J ] * c ; end; end; i := i+1; end; i f t i then begin x [ n ] := a [ n , n + l ] / a [ n , n ] ; f o r i : = n - l downto 1 do begin x [ i ] := a C i , n + l ] ; f o r j:=n downto i+1 do x [ i ] := x [ i ] - a [ i , j ] * x [ j ] ; end; writeln; witelnr MA TRAN KÉT QUA ' ) ; writeln; f o r i : = l t o n do begin f o r j:=1 t o n+1 do write(a[i,j]:10:2); writeln; end; writeln; 146
writeln(' NGHIÊM CUA PHUONG TRINH - ) ; writeln; f o r i : = i t o n do writelnC x[-,ỉ,'] = -,x[i]:10:2); end; End. DAI SO Program CT10_T0_H0P; Var n,k,i : integer; c : real; . Begin, WriteIn('Chuông t r i n h t o hop chap k cua n phạn t u ' ) ; W r i t e l n C VÀO so LIEU Writer n = );Readln(n); W r i t e r k = ')-Readln(k); c := 1; For i : = l t o k do Begin c := ( n - i + l ) * c / i ; " End; W r i t e l n C To hop chap *,k,' trong n," phan t u : ' c:10:3); End. 147
Program CT11_TICH_S0; Var i,n : integer; p : real; X : array[l..100] of r e a l ; Begin Writeln(" Chuông t r i n h t i n h tích c u a n so thúc'); W r i t e l n ( ' VÀO so L I E U ' ) ; Write( n = ' ) ; Readln(n); For i := Ì t o n đ o Begin «rite(-x[-,i,-]= - ) ; Readln(x[i]); End; p:=l; For i : = 1 t o n do Begin p:=p*x[i]; End; W r i t e l n C TÍCH so = ',p:10:3); End. Program CT12_T0NG_VA_TICH; Var i,n : integer; p,3,e : real; X : a r r a y [ l . . 1 0 0 ] of r e a l ; Begin WritelnC VÀO so LIEU -); WriteCn = ' ) ; Readln(n); For i : = l t o n do Begin Writer x[',i,-J= ' ) ; Readln(x[i]); End; s := Ó; 148
p := 1; For i : = 1 t o n do Begin p := p * x [ i ] ; 3 := 3 + x [ i ] ; End; e := IH-S; Writeĩn( 'KÉT QUA = ',e:10:3); End. Program CT13_S0_DU0NG; Var i,n,t : integer; X : a r r a y d .100] o f r e a l ; Begin W r i t e l n C * VÀO so L I E U * ) ; Write( n = ' ) ; Readln(n); For i : = 1 t o n do Begin Write(*jt[-,i,*]= - ) ; Readln(x[i]); End; t:=0; For i : = l t o n do i f x [ i ] > 0 then Begin Writeln(x[i]:10:3); t:=t+l; End; Writelnr so DUONG = * , t : 1 0 ) ; End.
Program CTÌ4_TRƯNG_BINH; Var i,n,t : integer; a,b,m : real; X : arrayCl..100] of r e a l ; Begin Write J.n(' Chuông t r i n h t i n h trung b i n h ' ) ; Writelnr VÀO so LIEU * ) ; Writer a = * ) ; Readln(a); Writer b = ' ) ; Readln(b); Write( n = * ) ; Readln(n); For i : = l t o n do Begin Write('x[',i,']= Readln(x[i]); End; m:=0; t:=0; For i : = 1 t o n do Begin I f ( x [ i ] > a ) and ( x [ i ] < b ) then Begin t:=t+l; m:=m+x[i]; End; End; m:=m/t; W r i t e l n C TRƯNG BINH TRONG KHOANG [A,B] = ',m:10:3); End.
Program CT15_S0_FIB0NACQIỊ., Var r i , i : integer; u : a r r a y [ l . . 1 0 0 ] of i n t e g e r ; Begin Writeln(' Ọiuong t r i n h t i n h c á c ao FIBONACCI *) W r i t e I n C VÀO so LIÊU ' ) ; W r i t e C n = )-, Readln(n); utl]:=i; u[2]:=2; / F o r i : = 3 t o n do Begin u[i];=u[i-l]+u[i-2]; Writelu(u[i]); End; End. Program CT16_MAX; Var i,n : integer; max,t: r e a l ; X : a r r a y [ 1 . . 1 0 0 ] of r e a l ; Begin WritdlnC Chuông t r i n h xác dinh so l o n n h á t ' ) ; Writ«ln(- VÀO SO LIEU ' ) ; Write( n = '); Readlnựi); For i : - ĩ t o n do Begin Write( ' x [ ' , i , ' ] = Readln(x[i]); Knd; DIM := * [ 1 ] ; t := 0; For i : = Ì t o n do Begin
i f x [ i ] > 0 then t := t+1; i f max>x[i] then max := max e l s e max := x [ i ] ; End; W r i t e i n C MAX = max: 10:3,' so DUONG '.,t:10:0); End. Program Cri7_TAH_GIAC_PASCAL; Var n,m,p : integer; .Function HHITHUC(n,p:integer):integer; Begin I f ( p e l ) o r (p=n) then Nhithuc:=l else Nhithuc: =Nhi thúc (ri-1, p-1 )+Nhithuc (n-1, p ) ; End; Begin (* Main * ) W r i t e l n C Chuông t r i n h t i n h tam giác P a s c a l ' ) ; W r i t e C Cho so m = Readln(m); For n:= Ì t o m do Begin For p:=l t o n do Wrìte(Nhi thúc(n,p):4); Writeln; End; End. 152
Program CT18_C0LESTER0L; Var i,n,t : integer; a,s,m : real; X : arrayCl..100] o f r e a l ; Begin W r i t e l n C Chuông t r i n h ' k i e m t r a luông C o l e s t e r o l ' ) ; W r i t e l n r DOC so LIEU ' ) ; W r i t e ( * So nguôi kham bênh n = ' ) ; Readln(n); W r i t e ( " Luông c o l e s t e r o l cho phép a = Readln(a); W r i t e l n ( " Luông c o l e s t e r o l moi nguôi X = For i : = 1 t o n do Begin Write('xr,i,'] =- ) ; Readln(x[i]); End; t:=0; s:=0; For i : : 1 t o n do Begin I f x£i] > a then Begin s:=s+x[i]; t:=t+l; End Else a:=s;t:=t; End; m:= 3/t; W r i t e l n ( * So bênh nhan * , t : 5 , ' C o l e s t e r o l tbinh',m:10:3); End. 153
Program CT19_H0AN_VI; Var i,j,k,l,m : integer; X : a r r a y [ 1 . . 5 ] of i n t e g e r ; Begin For i : = 1 t o 5 do x[i]:=i; For i : = 1 t o 5 do For j : = 1 to 5 do For k:= 1 t o 5 do For 1:= 1 t o 5 do For m:= 1 t o 5 do Begin If(x[i]x[j])or(x[i]ox[k])or(x[i]ox[l]) o r ( x [ i ] O x [ m J ) o r ( x [ j ]x[k] ) o r ( x [ j ] < > x [ l ] ) or(x[j]x[m])or(x[k]ox[l])or(x[k]x[m]) or(x[l]ox[m]) then Writeln(x[i]:10,x[j]:10, x[k]:10,x[l]:10,x[m]:10) End; End. Program CT20_SAP_XEP_CHÚOI_SO; Var i,j,n : integer; t : real; M : array[l..100]of r e a l ; Begin W r i t e l n C Chuông t r i n h sap xép mot bang n s o ' ) ; WriteCCho n = ' ) ; Readln(n); For i:= 1 t o n do Begin Write('M[-,i,-] = ' ) ; Reađln(M[i]); 154
End; For i : : 1 t o n do For j : = 1 to n do Begin I f M [ i ] > M [ j ] then Begin t!=Mti]; M[i]:=M[j]; M[j]:=t; End; End; W r i t e l n C Két qua sau k h i sap xép ' ) ; For i : = 1 to n do W r i t e l n C M[*,i, í .= ' , M [ i ] : 10:3) End. Program CT21_S0_DIEN_TH0AI; Var il,i2,i3,Ì4,Ỉ5 : i n t e g e r ; Begin W r i t e l n C Chuông t r i n h diên t h o a i 5 s o ' ) ; For i l : = 0 to 9 do For Ỉ2:= 0 to 9 do For i3:= 0 to 9 do For i4:= 0 to 9 do For Ỉ5:= 0 to 9 do Begin Writeln(il:5,i2:5,i3:5,i4:5,i5:5); End; End.
Program CT22_TAM_GIAC; Var a,b,c,p,3 : r e a l ; Begin Writeln('Chuông t r i n h tinh diên tích cua tam giác'); WritelnC a,b,c l a các canh cua tam giác \ ' ) ; Writer a = ' ) ; ị Readln(a); Writer b = ' ) ; Readln(b); Writer c ="*);• Readln(c); If(a
Program CT23_GIA1_THUA; Var n,i : integer; giai_thua : real; Begin W r i t e l n C TINH GIAI THUA CUA MOT so NGUYEN'); Writer n = ' ) ; Readln(n); i:=l; giai_thua:=l; While i
Program CT24_U0C_S0_CHƯNG_L0N_NHAT; Var x,y : real; Function u s c ứ ( a , b : r e a l ) : r e a l ; Begin While a o b do Begin I f a>b then a:=a-b else b:=b-a; USCLN:=a; End; End; Begin W r i t e l n ( ' Vào 2 so x,y ; Write( x = ' ) ; Readln(x); Writer y = ' ) ; Readln(y); WritelnC uscm c u a *,x:10:0,' va \ y : 1 0 : 0 , ' l a *, uscmu,y):10:0); End. 158