Cấu trúc rẽ nhánh IF THEN I – Lệnh rẽ nhánh có điều kiện IF Cú pháp: + Dạng thiếu: IF THEN ; Phát biểu: Nếu thực + Dạng đủ: IF THEN ELSE ; Nếu điều kiện thực câu lệnh ngược lại thực câu lệnh Trung tâm tin học Thanh Niên Chú ý: - Khơng có dấu ; trước từ khóa ELSE - Nếu cần thực nhiều câu lệnh trường hợp rẽ nhánh ta dùng câu lệnh ghép: if then Begin ; ; ……………………… End ; Trung tâm tin học Thanh Niên Một số ví dụ Tìm số lớn số a, b, c max := a; If max < b then max := b; If max < c then max := c; Xét số nguyên sô chẳn hay số lẻ: if (so mod = 0) then write(so , ’ la so chan’) else write (so, ’ la so le’); Xét số nguyên số âm hay số dương: if (so < 0) then write(so, ’ la so am’) else write(so, ’ la so duong’); Trung tâm tin học Thanh Niên Một số ví dụ Giải phương trình bậc ax + b = If (a=0) and (b=0) then write(PT vo so nghiem) else if a= then write(’Phuong trinh vo nghiem’) else Begin nghiem := -b / a; write(’ PT co nghiem x= ’ , nghiem:4:2); End; Trung tâm tin học Thanh Niên Một số ví dụ Giải PTB2 ax2 + bx + c = (a ≠ 0) Delta := b*b - 4*a*c; If delta < then write(’PT vo nghiem’) else begin x1 := (-b – sqrt(delta)) / (2*a); x2 := -b/a – x1; write(’PT co nghiem x1=’, x1:4:2, ’x2=’, x2:4:2); end; Trung tâm tin học Thanh Niên Bài tập Viết hồn chỉnh chương trình + Tìm số lớn số a, b, c + Xét số âm/ dương, chẳn/ lẻ + Giải phương trình bậc hai, có xét trường hợp a=0 suy biến thành bậc + Bài tập tài liệu trang 45 Chúc thành công Trung tâm tin học Thanh Niên ... Giải PTB2 ax2 + bx + c = (a ≠ 0) Delta := b*b - 4*a*c; If delta < then write(’PT vo nghiem’) else begin x1 := (-b – sqrt(delta)) / (2*a); x2 := -b/a – x1; write(’PT co nghiem x1=’, x1:4:2, ’x2=’,... lệnh Trung tâm tin học Thanh Niên Chú ý: - Khơng có dấu ; trước từ khóa ELSE - Nếu cần thực nhiều câu lệnh trường hợp rẽ nhánh ta dùng câu lệnh ghép: if then Begin ;