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à
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.
Lời giải 1 :
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.
Thảo luận
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 9
Lớp 9 - Là năm cuối ở cấp trung học cơ sở, sắp phải bước vào một kì thi căng thẳng và sắp chia tay bạn bè, thầy cô và cả kì vọng của phụ huynh ngày càng lớn mang tên "Lên cấp 3". Thật là áp lực nhưng các em hãy cứ tự tin vào bản thân là sẻ vượt qua nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247