[Tin 8] Câu lệnh If ... then

K

khai221050

Lớp 8 mà học and rồi à. A nói qua về ý tưởng cũng như vài thứ liên quan nhé
- ý tưởng: muốn là bội chung 2 số a,b thì phải thỏa mãn 2 điều kiện là n chia hết cho a n chia hết cho b
- Cần hiểu về bản chất của toán tử and. Nó là một phép toán logic, sử dụng trong các câu lệnh điều kiện, câu lệnh có sử dụng toán tử nhị phân,... Bản chất của nó là câu lệnh sẽ cho kết quả là true nếu cả hai điều kiện true.
- Một chương trình nếu gọi là tốt thì có 1 tiêu chí là hướng đối tượng sử dụng. Do vậy thay vì chỉ sử dụng một hàm chính đơn giản thì nên sử dụng thêm một thủ tục (procedure), nhưng do e mới học lớp 8 nên anh chỉ sử dụng hàm chính đơn giản, nếu kiểm tra thực hành sử dụng chương trình con thì điểm sẽ cao hơn
Bài làm:
program BkMinmintrax;
uses crt;
var n:integer;
a,b: word;
begin
clrscr;
writeln('Chuong trinh kiem tra boi chung cua 2 so');
writeln('Hay nhap hai so nguyen duong a,b bat ky va so n ');
readln(a,b,n);
if (n mod a =0) and (n mod b=0)
then writeln('n la boi chung cua a va b')
else writeln('n khong la boi chung cua hai so do');
readln;
end.
 
Top Bottom