giáo trình pascal phần 2

... FALSE TRUE 2. Char 1 byte 25 6 ký tự của bảng mã ASCII. 3. Shortint 1 byte - 128 127 4. Byte 1 byte 0 25 5 5. Integer 2 byte - 327 68 327 67 6. Word 2 byte 0 65535 7. Longint 4 byte -21 47483648 21 47483647 8. ... thich} Cấu Trúc Của Một Chương Trình Pascal Một chương trình Pascal gồm 2 phần chính: Phần khai báo và phần thân chương trình. Khi thực thi, chương trình Pascal sẽ thực thi tuần tự từng lệnh một theo ... LẶP 20 Lệnh Lặp Với Số Lần Xác Định 20 Lệnh Lặp Với Số Lần Lặp Không Xác Định 23 Chương IV: CHƯƠNG TRÌNH CON 25 KHÁI NIỆM VỀ CHƯƠNG TRÌNH CON 25 HÀM (FUNCTION) 26 THỦ TỤC (PROCEDURE) 27 LỜI...

Ngày tải lên: 18/08/2012, 08:59

... GT (2) GT (2) m = 2  Tính 2 * GT (2- 1)  gọi GT(1) GT(1) m = 1  Gán GT(1):=1 Cuối cùng một quá trình “tính ngược” sẽ cho phép trả về giá trị của GT(4): GT(4)  4 * (3 * (2 * GT(1))). Cách 2: Dùng ... lặp) đạt giá trị 24 5 thì bị gán lại thành 25 2 nên không khi nào bien bằng 25 0 để Pascal chấm dứt vòng lặp. Ngay cả khi bien đã duyệt qua hết phạm vi của kiểu dữ liệu (tức giá trị 25 5) thì bien ... hai nhánh. Cách 2: (Dùng chỗ lưu trữ tạm) FUNCTION FIBO(n:word):word; Var Counter,F1,F2:word; BEGIN F1:=1; F2:=1; Fibo:=1; FOR Counter:=3 TO n DO Begin Fibo:=F1+F2; F1:=F2; F2:=Fibo; End; END; Trong...

Ngày tải lên: 13/11/2012, 12:03

... A[3 ,2] hoặc A [2] [3]. Ta có thể hình dung mảng A: Array[1 4, 1 5] như sau. A[1,1] A[1 ,2] A[1,3] A[1,4] A[1,5] A [2, 1] A [2, 2] A [2, 3] A [2, 4] A [2, 5] A[3,1] A[3 ,2] A[3,3] A[3,4] A[3,5] A[4,1] A[4 ,2] ... và B có cùng số phần tử và cùng kiểu phần tử, ta có thể thay toàn bộ phần tử A bởi các phần tử tương ứng của B bằng một phép gán A := B. III. MẢNG NHIỀU CHIỀU Ở đây, ta xét mảng 2 chiều, còn mảng ... ĐỊNH NGHĨA VÀ KHAI BÁO Một tậo hợp bao gồm một số phần tử có cùng kiểu gọi là kiểu phần tử. Số các phần tử tối đa trong tập hợp là 25 6, kiểu phần tử có thể là kiểu vô hướng liệt kê, kiểu miền...

Ngày tải lên: 13/11/2012, 12:03

... - Giáo trình Lập trình nâng cao 50 b. Truy nhập vào tệp Seek(bientep,i); i=0,1 ,2, Thủ tục Seek sẽ ñịnh vị con trỏ tại phần tử thứ i của tệp, Pascal quy ñịnh vị trí các phần tử là 0, 1, 2 ... số 123 .45 vào tệp theo quy cách ngầm ñịnh của Pascal. Dữ liệu sẽ ñược ghi vào tệp như sau Tep van ban 123 1 .23 4500000E+ 02 (dòng trống) Trường ðại học Nông nghiệp 1 - Giáo trình Lập trình ... 1 - Giáo trình Lập trình nâng cao 4 1. Khái niệm về chương trình con Chương trình con trong Pascal ñược hiểu là một chương trình nằm trong lòng một chương trình khác. Chương trình con...

Ngày tải lên: 17/08/2012, 08:48

... [] 0,1 () 1.0 0.1 0Dxd μ = += ∫ . Ví dụ 2. Cho hàm số 1 1, 0 2 () 1 2, 1 2 khi x fx khi x ⎧ ≤ < ⎪ = ⎨ ⎪ ≤ < ⎩ Thế thì [0,1) 113 1. ([0, )) 2. ([ ,1)) 22 2 fd μμ μ =+= ∫ . c) Các tính chất ... các tập n kkk QQQ , ,, 21 sao cho U n i k i QQ 1 ' = ⊂ Suy ra ∑ = ≤ n i k i QQ 1 ' hay ∑∑∑ ∑ ∞+ = ∞+ = ∞+ = = − +−=+−≤ ≤+−≤−− 1 2 11 2 2 1 2 2 1 )()( ) (2 kk kk k kk n i kk kk i k ii abab abab εε ε ε ... Do đó với n ∀ đủ lớn tồn tại số tự nhiên { } 1, 2, , 2 n mn∈ sao cho () 1 22 nn mm fx − ≤< . Vì () 1 2 n n m Sx − = nên () () 1 2 n n Sx fx− < với n đủ lớn. - Nếu () fx=+∞ ...

Ngày tải lên: 12/09/2012, 16:21

... các tập n kkk QQQ , ,, 21 sao cho U n i k i QQ 1 ' = ⊂ Suy ra ∑ = ≤ n i k i QQ 1 ' hay ∑∑∑ ∑ ∞+ = ∞+ = ∞+ = = − +−=+−≤ ≤+−≤−− 1 2 11 2 2 1 2 2 1 )()( ) (2 kk kk k kk n i kk kk i k ii abab abab εε ε ε ... P 0 = [0,1] \ G. Ta có các tập G n rời nhau và μ (G n ) = 2 n-1 . 1/ 3 n = 1 /2 . (2/ 3) n Khi đó ∑∑ ∞+ = ∞+ = === 11 3 2 2 1 1)()()( nn n n GG μμ Vậy μ (P 0 ) = μ ([0, 1]) - μ (G) ... đơn giản ở ví dụ 8. Đặt 1 Α = [1, 3), 2 A = [3, 4], 3 A = (4, 7), 1 α = 1, 2 α = 2, 3 α = 4. Khi đó các tập hợp này rời nhau và )()()()( 321 321 xxxxf AAA χαχαχα ++= với mọi x ∈ [1,...

Ngày tải lên: 12/09/2012, 16:21

... tri cho L = 0 .2 L = 0 .20 00 nhap gia tri cho U = 22 0 U = 22 0 ZL = 0 + 62. 8319i ZC = 0 - 0.0318i Z = 1.0000e+003 +6 .28 00e+001i i = 0 .21 91 - 0.0138i UR = 2. 1914e+0 02 -1.3762e+001i UL = 0.8647 ... 10 20 30 40 50 60 70 80 90 100 110 0 0 0 0 0 0 0 0 0 0 0 0 Columns 13 through 24 120 130 140 150 160 170 180 190 20 0 21 0 22 0 23 0 0 0 0 0 0 0 0 0 0 0 0 0 Columns 25 through 36 24 0 25 0 ... (-b + sqrt(b ^2- 4*a*c))/ (2* a) x1 = 0.5000 >> x2= (-b - sqrt(b ^2- 4*a*c))/ (2* a) x2 = -3 ã Ví dụ 2: Tính giá trị của đa thức. >> a = x^3 -2* x ^2 - 6; >>b = x ^2 + 5*x -7;...

Ngày tải lên: 13/09/2012, 10:21

... FALSE TRUE 2. Kiểu số nguyên 2. 1. Các kiểu số nguyên Tên kiểu Phạm vi Dung lượng Shortint - 128 → 127 1 byte Byte 0 → 25 5 1 byte Integer - 327 68 → 327 67 2 byte Word 0 → 65535 2 byte LongInt -21 47483648 ... 3.19: Viết chương trình tính các tổng sau: S0 = n! = 1 *2* *n {n giai thừa} S1 = 1 + 1 /2 + + 1/n S2 = 1 + 1 /2! + + 1/n! S3 = 1 + x + x2 /2! + x3/3! + + xn/n! S4 = 1 - x + x2 /2! - x3/3! + + (-1) n x n /n! S5 ... REPEAT. 21 Giáo trình bài tập Pascal Bài tập 4.11: Viết thủ tục để tối giản phân số a/b , với a, b là 2 số nguyên. Bài tập 4. 12: Viết các hàm đệ quy để tính: S 1 = 1 +2 +3+ +n ; S 2 = 1+1 /2 + +...

Ngày tải lên: 03/11/2012, 09:29

... hai phần tử với nhau. Sau đó tiếp tục đem phần tử thứ 2 so sánh các phần tử tiếp theo theo trình tự nh vậy, và cứ nh thế cho đến phần tử thứ n - 1. - In kết quả ra màn hình Chơng trình Pascal ... nhu cầu. * Phần thân chơng trình: Phần thân chơng trình là phần quan trọng nhất và bắt buộc phải có, phần này luôn nằm giữa 2 từ khoá là BEGIN và END. ở giữa là lệnh mà các chơng trình chính ... 25 5 SHORTINT 1 - 128 127 INTEGER 2 - 327 68 + 327 67 WORD 2 0 65535 LONGINT 4 - 21 47483648 21 47483647 Var I:byte; s: integer; …. S:=1; For i:=1 to 8 do s:=S*i; IV .2. 2. Các phép toán số học đối với...

Ngày tải lên: 05/06/2013, 01:26

... WriteSt(x1,k,Attr,#179+Replicate(# 32, x2-x1-1)+#179); WriteSt(x1,y2,Attr,#1 92+ Replicate(#196,x2-x1-1)+ #21 7); End; Procedure WinSh(x1,y1,x2,y2,Attr: Byte; Tit: String; Shd: Boolean); Begin BoxSh(x1,y1,x2,y2,Attr,Shd); ... BoxSh(x1,y1,x2,y2,Attr: Byte; Shd: Boolean); Var k: Byte; Begin if Shd then SetAttr(x1+ShdX,y1+ShdY,x2+ShdX,y2+ShdY, ShdAttr); WriteSt(x1,y1,Attr, #21 8+Replicate(#196,x2-x1-1)+#191); for k:=y1+1 to y2-1 ... hoả trong Pascal 4-10 Pascal Nỏng cao (Advanced Pascal) Hoaỡng Hổợu Haỷnh Inc(VOfs ,2) ; end; End; Procedure WriteStC(x1,y,x2,Attr: Byte; S: String); Var x: Byte; Begin x:=((x1+x2) div 2) - (Length(S)...

Ngày tải lên: 29/06/2013, 01:27

... chương trình tính tổng S = 1 +2+ +N. 18 Giáo trình bài tập Pascal Chương 4 CHƯƠNG TRÌNH CON: THỦ TỤC VÀ HÀM I. KHÁI NIỆM VỀ CHƯƠNG TRÌNH CON Chương trình con (CTC) là một đoạn chương trình thực ... trị>; END; BEGIN {Chương trình chính} THUTUC[( )]; A:= HAM[( )]; END. 27 Giáo trình bài tập Pascal Bài tập 3. 12: Viết chương trình giải phương trình bậc hai: ax 2 + bx + c = 0, a≠0. Gợi ... luận: Delta<0: Phương trình vô nghiệm. Delta=0: Phương trình có nghiệm kép: x = -b/ (2* a). Delta>0: Phương trình có 2 nghiệm phân biệt: x 1 ,2 = (-b±SQRT(Delta))/ (2* a). Bài tập 3.13: Viết chương trình nhập...

Ngày tải lên: 05/08/2013, 01:26

... HT2 Bài 9 : Hợp âm 7 át. a. Định nghĩa - Ký hiệu - Sự chuẩn bị của hợp âm bảy át. b. Giải quyết hợp âm bảy át. c. Các thể đảo của hợp âm bảy át. d. Các bớc nhảy. e. Bài tập ứng dụng. 2 2 2 2 2 1 1 2 1 3 2 1 1 1 1 1 2 1 1 1 3 1 1 1 1 2 ... học phần hoà âm ứng dụng và phối bè 1 hệ cđsp âm nhạc 1. Tên học phần : Hoà âm ứng dụng và phối bè 1 2. Số đơn vị học trình : 4 ĐVHT = 60 tiết. 3. Trình độ đào tạo : Sinh viên năm thứ 2 hệ ... soạn hợp âm cho giai điệu. b. Thực hành soạn hợp âm cho bài hát. Kiểm tra HT4 1 1 1 2 1 1 2 2 1 1 2 1 1 2 2 V. Bài giảng chi tiết. Vi Hng - Tổ Nhạc - Khoa TiÓu häc 4 Hoà âm ứng dụng Hệ...

Ngày tải lên: 13/08/2013, 16:20

... 1 .21 37 và rê con trỏ tới đáy tại 1 .20 21 và sau đó kéo xuống mức thoái lui tại 1 .20 85. Các mức mở rộng được tạo là 1 .20 41 (38 .2% 2), 1 .20 27 (50%), 1 .20 13 (61.8%), 1.1969 (100%), 1.1 925 (138 .2% ), ... 110.78 và giữ và kéo con trỏ tới đỉnh tại 1 12. 27. Ta có thể nhìn thấy các mức được vẽ bởi phần mềm. Các mức thoái lui là 111. 92 (23 .6%), 111.70 (38 .2% ), 111. 52 (50%) và 111.35 (61.8%).Bây giờ sự mong ... một biểu đồ theo giờ của EUR/USD.Ta có đỉnh tại 1. 327 8 và đáy tại 1.3169.Các mức thoái lui là 1.3195 (23 .6%), 1. 321 1 (38 .2% ), 1. 322 4 (50%) và 1. 323 6 (61.8%).Sự mong đợi đối với xu hướng xuống là...

Ngày tải lên: 16/08/2013, 22:18

... so với các giá cũ hơn Giá đóng cửa Weighted Tổng số 25 1 25 28 2 56 31 3 93 27 4 108 22 5 110 15 3 92 Tổng số 3 92: 15 =26 ,13 ... thứ nhất chỉ có hiệu lực bằng 1/5 ngày th 5.Cụng thc ca nú l : WMA(5)={(1 25 )+ (2 28 )+(3ì31)+(4 27 )+(5 22 )}/15= 26 .13 Tuy nhiên,có người vẫn chưa hài lòng với hai chỉ số trên, người ta ... Eastman Kodak : (C - P) = (57.15 - 59.439) = -2. 289 (C - P) x K = -2. 289 x 0.181818 = -0.41 62 (C - P) x K +P = -0.41 62 + 59.439 = 59. 023 Chú ý rằng mỗi một giá đóng cửa trước đó trong...

Ngày tải lên: 16/08/2013, 22:20

... được định giá (quote) bởi broker là 1 .29 34/1 .29 38. Điều này có nghĩa rằng broker của bạn muốn mua EUR/USD từ bạn với giá 1 .29 34 và bán cho bạn với giá 1 .29 38. Stop Order : Bắt đầu một giao ... position) EUR/USD với giá 1 .29 45, ít hơn 11 pips so với bạn mua với lệnh market order. Nhược điểm của lệnh giới hạn là nếu EUR/USD tăng giá trên 1 .29 52/ 56, giới hạn của bạn là 1 .29 45 sẽ không bao giờ ... hiểm của tôi không quá 2% tài khoản cho mỗi giao dịch. Hiện giờ tôi giao dịch “5 mini lot” và tôi sẽ tăng “lot size” của tôi theo nguyên tắc quản lý tiền 2% của tôi. 2 . Th tc giao dch...

Ngày tải lên: 16/08/2013, 22:20

Ngày tải lên: 16/08/2013, 22:21

Ngày tải lên: 17/08/2013, 16:10

Ngày tải lên: 21/08/2013, 08:49

Ngày tải lên: 26/08/2013, 00:10

Ngày tải lên: 14/09/2013, 05:10