Pascal - Cùng Học

Lập trình Pascal

Mục lục

Home

Bài 1. Kiểu dữ liệu Boolean

Câu hỏi, ví dụ, bài tập

Câu 1: In và cho chạy thử chương trình sau:

a.

Program Example1; Var Check: Boolean; X, Y: integer; Begin Write('Nhập giá trị X:'); Readln(X); Write('Nhập giá trị Y:'); Readln(Y); Check:= (X>Y); If Check then Writeln('X>Y') Else Writeln('X 76) and ('3'0 and (2>4 mod 2))

c. (5>10 div 3) and Not(not(100>76) or (((x^2))>=0))

Trả lời

Câu 3: Hãy viết các biểu thức logic mà nó đúng nếu:

a. I chia hết cho J

b. M chẵn

c. Y không nằm trong khoảng (-2,-1) cũng như không nằm trong khoảng từ (1,2).

Trả lời

Câu 4: Bạn hãy nhập vào từ bàn phím ba số nguyên bất kỳ và kiểm tra xem tổng của chúng có lớn hơn1 không và in ra kết quả.

Trả lời

Câu 5: Bạn hãy nhập vào từ bàn phím một số nguyên bất kì và kiểm tra xem số đó có chia hết cho 3 và nằm trong khoảng từ 20 đến 70 không và in kết quả ra màn hình.

Trả lời

Câu 6: Nhập ba số thực a, b, c bất kỳ và kiểm tra xem:

a. Nó có phải là ba cạnh của một tam giác hay không?

b. Có phải là ba cạnh của một tam giác vuông không?

c. Có phải là ba cạnh của một tam giác tù hay không?

Trả lời

Câu 7: Viết chương trình nhập liên tiếp các số thực từ bàn phím. Chương trình chỉ dừng lại khi tổng các số được nhập lớn hơn 10 hoặc số các số được nhập bằng 10.

Trả lời

Câu 8: Nhập một số thực a từ bàn phím. Viết chương trình làm các công việc sau:

a. Nếu a 0 thì in ra ((a^5))

Trả lời

Câu 9: Cho trước cặp số X,Y là biểu diễn một điểm trên mặt phẳng tọa độ. Hãy kiểm tra vị trí của điểm đã cho và thông báo vị trí tương ứng của điểm như sau:

- Nếu ((X^2))+((Y^2)) = 0 thì thông báo "Điểm đã cho trùng với gốc tọa độ”.

- Nếu ((X^2))+((Y^2)) >0 thì xét các trường hợp sau đây.

a. Nếu X>0, Y >0 thông báo "Điểm nằm trong góc 1/4 thứ nhất"

b. Nếu X0 thông báo "Điểm nằm trong góc 1/4 thứ hai"

c. Nếu X 1 + 1.((5^2))) or not(((5^2))=((3^2))+((4^2)))

b. (not(2>1) and (12=10+2)) or not ( (10\frac{7}{4})) ) )

Trả lời

Câu 13: Hãy kiểm tra kết quả của chương trình sau:

Program VD; Var b: Boolean; Begin b:= (not(sqr(2) + sqr(3) < 12) and (not(12 > sqr(2) + sqr(3)))); Writeln(‘Biểu thức (not(sqr(2) + sqr(3) < 12) and (not(12 > sqr(2) + sqr(3)))) là', b); End.

Trả lời

Câu 14: Viết chương trình nhập số tự nhiên N từ bàn phím và thông báo các kết quả sau ra màn hình:

a. Nếu N