THCS Kim Ngoc Phạm Văn Thắng I Bµi míi: Lý thuyết: Câu lệnh If Then Ngôn ngữ lập trình Pascal dùng câu lệnh rẽ nhánh If Then để mô tả việc rẽ nhánh tương ứng với loại mệnh đề rẽ nhánh sau THCS Kim Ngoc Phm Vn Thng a- Cú pháp 1: ( Hay gọi dạng thiếu) If < Điều kiện> Then ; + Trong đó: * Điều kiện: Là biểu thức quan hệ logic * Câu lệnh: Là câu lệnh Pascal ý nghĩa câu lệnh: Chương trình kiểm tra giá trị điều kiện Nếu True (đúng) câu lệnh thực hiện, điều kiện sai không thực Ví dụ: If ( X mod =0) Then Write(x’ , la so chan’ ); THCS Kim Ngoc Phạm Văn Thắng b- Cú pháp 2: ( Hay gọi dạng đủ) If Then < Câu lệnh1> ELSE < Câu lệnh2>; * ý nghĩa câu lệnh: Chương trình kiểm tra giá trị điều kiện Nếu True (đúng) lệnh1 thực hiện, ngược lại False (sai) lệnh đư ợc thực + Trong đó: * Điều kiện: Là biểu thức quan hệ logic * Câu lệnh 1, câu lệnh 2: Là c©u lƯnh cđa Pascal THCS Kim Ngoc Phạm Văn Thắng * Chú ý: Trước câu lệnh ELSE dÊu ; VÝ dô: If Delta < Then Write(‘ PT vo nghiem’ ) Else Write(‘ PT Co nghiem’ ); Ví dụ 1: Tìm giá trị lớn Max hai số nguyên a b Thuật toán: Cách 1: ¸p dơng có ph¸p d¹ng thiÕu - G/sư Ta g¸n Max:=a; - If b>a Then max:=b; THCS Kim Ngoc Phạm Văn Thắng Program Max_1; Var a,b,Max: Integer; Begin Writeln(‘nhap vao a va b=‘);Readln(a,b); Max:=a; If b>a Then Max:=b; Write(‘ Gia tri lon nhat Max la:’, Max:4:1); Readln; End THCS Kim Ngoc Phạm Văn Thắng C¸ch 2: ¸p dụng cú pháp dạng đủ If a>b Then Max:=a Else Max:=b; Program Max_2; Var a,b,Max: Integer; Begin Writeln(‘nhap vao a va b=‘);Readln(a,b); If a>b Then Max:=a Else Max:=b; Write(‘ Gia tri lon nhat Max la:’, Max:4:1); Readln; End THCS Kim Ngoc Phạm Văn Thắng VÝ dô 2: LËp trình nhập vào từ bàn phím số nguyên a,b,c, in sè lín nhÊt Tht to¸n: - Max:=a; - If max