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

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.
Nội dung trích xuất từ tài liệu:
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 2CHƯƠNG 4101 CHƯƠNG T R Ì N H MOT SO V I DUPROGRAM 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:i3); End.J 10Program 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ỉ.ir-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 ...