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

Tham khảo tài liệu 'tự học lập trình pascal tập 2 part 5', 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ả | 60 Pascal dành cho học sinh chứng tỏ hòn bi không bỉnh thường nằm trong số các hòn bi 1 2 3 4. Hai khả năng này xử lý tương tự như nhau. Lần cân 2 giả sử hòn bi không bỉnh thường nằm trong sơ 1 2 3 4 cân 1-2-3 và 5-6-7. có thể xảy ra 3 khả năng a Cân bằng chứng tỏ 4 là hòn bi không bình thường. Khi đó lẩn cân 3 ta sẽ cân 4 với 1 thì sẽ biết nó nặng hơn hay nhẹ hơn các hòn khác. b 1-2-3 năng hơn chứng tỏ là hòn bi không bình thường nằm trong số 1 2 3 và nó nặng hơn các hòn khác. Khi đó lẩn cân 3 ta sẽ cân 1 và 2. Nếu cân lệch thì hòn nặng hơn là hòn không bình thường nếu cân cân bằng thi 3 là hòn bi khỗng bình thưởng c 1-2-3 nhẹ hơn chứng tỏ hòn bi không bình thường nằm trong số 1 2 3 và nó nhẹ hơn các hòn khác. Khi đó lẩn cân 3 ta sẽ cân 1 và 2 để chọn hòn nhè hơn. Nếu cân cân bằng thì 3 là hòn bi không bình thưởng. 3. KIỂU DỮ LIỆU MẢNG 1. a Sai vỉ 5 và không cùng kiểu. b Sai vì và không phải là kiểu đếm được. c Sai vì thiếu kiểu chỉ dẫn. d Sai vỉ đoạn con phải viết là 10. 13. e Đúng. 2. Program P2302 Uses Crt Var a array 1 .2 of real Phần 2. HƯỚNG DẨN 61 c array oíreaì đ dx dy X y real Begin Clrscr WritelnfGiai hệ phương trình tuyến tính hai ẩn Writelnf a11x a12y c1 Writelnf a21x a22y c2 Writeln nhập các hệ số của hệ phương trìiin Write aH- Read ln a 1 1 Writefa12- Readln a 1 2 Writefd Readln c 1 Write a21- Readln a 2 1 Write a22 Readln a 2 2 Write c2- Readln c 2 d a 1 1 a 2 2 -a 2l1 a 1 2 dx c 1 a 2 2 -c 2 a 1 2 dy a 1 1 c 2 -a 2 1 c 1 . If d 0 then Writeln Hệ vô nghiệm hoặc vò số nghiệm Else Begin x dx d y -dy d Writeln Hệ có nghiêm duy nhất Writeln x- x 12 2 y y 12 2 End Readln End. 3. Program P2203 Uses crt Var a array ofbyte 62 Pascal dành cho học sinh i. j byte Begin Clrscr Fori 1 to 10 đo For j 2 to 9 do a i j i j Writeln Bảng cửu chương Writein For i 1 to 10 do For j 2 to 9 do Write j 4 x i 2 a ij hết 80 cột tự động xuống hángị Readln End. 4. Var a array 1 .9 1 .9 of byte 5. Không. Vì khi tính toán ta chỉ cần một giá trị trung .