II. TỰ LUẬN (7 điểm) Câu 1 (2 điểm): Em hãy xác định các biến cần khai báo và kiểu dữ liệu tương ứng cho bài toán sau: Nhập vào từ bàn phím 2 số tự nhiên a và b, in ra màn hình tổng hai số đó............................................................................................................................ Câu 2 (2 điểm): Em hãy tìm lỗi sai trong câu lệnh điều kiện sau và viết lại cho đúng: a) if a :=1 then y:=x.......................................................................................................... b) if x>5 then write(x); else write(x-1); ................................................................................. Câu 3 (3 điểm): Cho bài toán sau: Nhập vào từ bàn phím hai số nguyên a và b , kiểm tra a chia hết cho b hay không: Nếu a chia hết cho b thì in ra màn hình “a chia hết cho b”, ngược lại thì in ra “a không chia hết cho b”. a) Hãy xác định bài toán và mô tả thuật toán để giải quyết bài toán trên. b) Viết câu lệnh điều kiện để thực hiện thuật toán đó. c) Viết chương trình bằng ngôn ngữ lập trình Pascal để giải bài toán trên.

1 câu trả lời

Câu 1 :

- 2 số a và b là số tự nhiên

- Tổng hai số là số tự nhiên

⇒ Var a, b, S : integer;

Câu 2 :

- if a := 1 then y := x

- Sai điều kiện a := 1

⇒ Sửa : if a = 1 then y := x;

- if x > 5 then write(x); else write(x - 1);

- Sai dấu chấm phẩy trước else

⇒ Sửa: if x > 5 then write(x) else write(x - 1);

Câu 3 :

- Xác định bài toán :

+ Input : hai số a và b

+ Output : 'a chia hết cho b' hoặc 'a không chia hết cho b'

- Mô tả thuật toán :

+ Bước 1 : nhập hai số a và b

+ Bước 2 : nếu a mod b = 0 thì a chia hết cho b

+ Bước 3 : nếu a mod b <> 0 thì a không chia hết b

+ Bước 4 : in thông báo, kết thúc

- Viết câu lệnh :

   if a mod b = 0 then write('a chia het cho b');

   if a mod b <> 0 then write('a khong chia het cho b');

- Viết chương trình :

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap hai so a, b : '); readln(a, b);

if a mod b = 0 then write('a chia het cho b');

if a mod b <> 0 then write('a khong chia het cho b');

readln

end.

Câu hỏi trong lớp Xem thêm