tailieunhanh - Tự học lập trình Pascal tập 1 part 6

Tham khảo tài liệu 'tự học lập trình pascal tập 1 part 6', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 70 Pascal dành cho học sinh 20. Có 274 cách biểu diễn số 10 thành tổng các số tự nhiên khác nhau từng đôi một thứ tự các số hạng được tính nghĩa là 8 2 là cách khác . một cách biều diễn còn 2 8 là một Liệt kê Tổng của 5 số 0 1 2 3 4 có 5 120 cách Tổng của 4 sô 0 1 2 7 có 4J 24 cách 0 1 3 e 1. có 4 24 cách 0 1 4 i có 4 24 cách 0 2 3 S í có 4 24 cách Tổng của 3 số 0 1 9 có 3 6 cách 0 2 8 có 3 6 cách 0 3 7 có 3 6 cách 0 4 6 có 3 6 cách 1 2 7 có 3 6 cách 1 3 6 có 3 6 cách 1 4 5 có 3 6 cách 2 3 5 có 3 6 cách Tổng của 2 sô 0 10 có 2 2 cách 1 9 có 2 2 cách 2 8 có 2 2 cách 3 7 có 2 2 cách 4 6 có 2 2 cách Tổng cộng có 274 cách. 21. Có 44 cách biểu diễn số 20 thành tổng của 3 sô tự Phẩn 2. HƯỞNG DẪN 71 nhiên thứ tự cũa các số hạng không được tính ta liệt kẽ dưới đây. 20 0 10 10 20 1 1 18 20 2 2 16 20 3 3 14 0 9 11 1 2 17 2 3 15 3 4 13 0 8 12 1 3 16 2 4 14 3 5 12 - 0 7 13 1 4 15 2 5 13 3 6 11 0 6 14 1 5 14 2 6 12 3 7 10 - 0 5 15 1 6 13 2 7 11 3 8 9 - 0 4 16 1 7 12 2 8 10 0 3 17 1 8 11 2 9 9 0 2 18 1 9 10 0 1 19 0 0 20 20 4 4 12 20 5 5 10 20 6 6 8 4 5 11 5 6 9 6 7 7 4 6 10 5 7 8 4 7 9 4 8 8 22. Các sô hoàn chỉnh trong khoảng 1-100 đó là 1 6 28 có 3 số . 23. Các SỐ Fibonaci nhỏ hơn 100 là 1 1 2 3 5 8 13 21 34 55 89. 72 Pascal dành cho học sinh 4. TỌA ĐỘ MÀN HÌNH 1. Xâu Hello ở vị trí ngay sau dòng thông báo cuối cùng của một chương trình chạy trước đó. 2. a. Màn hình được cuộn lên một dòng vì vậy ký tự đó nằm ở cuối dòng 24 trên màn hình còn con trỏ màn hình xuống đầu dòng 25. b. Có một chữ A. Vì màn hình bị trôi lên một dòng cho nên dòng chữ ABCD không xuất hiện ở trang hiện tại. 3 Program CT3 Uses CRT Var X Y Shortint Begin X 10 Y 5 textcolor lightBlue Gotoxy X Y writef Gotoxy X Y 1 writef Gotoxy X Y 2 write Gotoxy X Y 3 writef Gotoxy X Y 4j write Gotoxy X Y 5 writef Welcome This is a Demo Program Creat a Windows Press Enter to Quit. Readln End. 4. Program CT4 Uses Crt Var x y byte