Bài thực hành 4. Sử dụng câu lệnh điều kiện If….Then

Nhiệt liệt chào mừng các thầy cô giáo về dự giờ tin học
Kính chúc các thầy cô mạnh khoẻ
Chúc các em mạnh khoẻ, học tập tốt và hăng hái phát biểu xây dựng bài trong giờ học này
Kiểm tra bài cũ
Viết chương trình tính diện tích đường tròn với độ dài bán kính nhập từ bàn phím ?
Đáp án
PROGRAM Tinh_dien_tich_HT;
VAR R,DT : Real ;
BEGIN
Write ( ‘ Nhap vao ban kinh R = ’);Readln(R);
DT:=R*R*3.14;
Writeln (‘Dien tich cua hinh tron la :’ ,DT:6:2);
Writeln (` Nhan ENTER đe thoat ... `) ;
Readln; {Dung man hinh de xem ket qua}
END.
Đáp án
PROGRAM Tinh_dien_tich_va _chu _vi_HT;
VAR R,CV ,DT: Real ;
BEGIN
Write ( ‘ Nhap vao ban kinh R = ’);Readln(R);
DT:=R*R*3.14;
CV:=2*R*3.14;
Writeln (‘Dien tich cua hinh tron la :’ ,DT:6:2);
Writeln (‘Chu vi cua hinh tron la :’ ,CV:6:2);
Writeln (` Nhan ENTER đe thoat ... `) ;
Readln; {Dung man hinh de xem ket qua }
END.
Tiết 19: Các câu lệnh rẽ nhánh: if.then, case.of
1. rẽ nhánh
Cách diễn đạt các mệnh đề có dạng : Nếu .thì.được gọi là cấu trúc rẽ nhánh thiếu
Cách diễn đạt các mệnh đề có dạng : Nếu .thì.,nếu không thì. được gọi là cấu trúc rẽ nhánh đủ
Tiết 19: Các câu lệnh rẽ nhánh: if.then, case.of
B�i toán 1: : Tính can b?c 2 c?a m?t s? thực a
Dữ liệu vào, ra
In put: nhập giá trị số thực a
Hình bên là sơ đồ khối thuật giải của bài toán
Out put: Căn bậc hai của a
12
Tiết 19: Các câu lệnh rẽ nhánh: if.then, case.of
2. Câu lệnh if.then
a) Dạng thiếu
If < điều kiện > then < câu lệnh>;
Sơ đồ lệnh if.then. dạng thiếu
Trong đó: Điều kiện là biểu thức Lô gíc Câu lệnh là một câu lệnh của Pascal
b) Dạng Đủ
If <điều kiện> then else < Câu lệnh 2 >;
Sơ đồ lệnh if.then. dạng đủ
Tiết 19: Các câu lệnh rẽ nhánh: if.then, case.of
Ví dụ 1:
If a<0 then writeln(` khong khai can duoc`);
Ví dụ 2:
If a mod 3=0 then Write (` a chia het cho 3 `) else Write (` a không chia het cho 3 `) ;
Ví dụ 3:
If b>a then max:=b;
- Dùng lệnh gán max:=a và lệnh if - then dạng thiếu:
- Dùng lệnh lệnh if - then dạng đủ:
If b>a then max:=b else max:=a;
Để tìm số lớn nhất max trong 2 số a và b, có thể thực hiện bằng 2 cách :
Tiết 19: Các câu lệnh rẽ nhánh: if.then, case.of
S 12
3. Câu lệnh ghép
Tiết 19: Các câu lệnh rẽ nhánh: if.then, case.of
Câu lệnh ghép ( hay câu lệnh hợp thành) là một dãy các câu lệnh đơn gộp với nhau và được đặt giữa hai từ khoá Begin và end
Begin < Các câu lệnh>; end;
Câu lệnh ghép của Pascal có dạng:
Ví dụ 4: Câu lệnh ghép được thể hiện trong phần thân chương chương trình tìm Max và Min của 2 số a và b
IF a Begin
Min : = a;
Max : = b;
End
ELSE Begin
Min : = b;
Max := a;
End;
IF a = b THEN
Writeln(‘ Hai so da cho bang nhau )
ELSE Begin Writeln ( ‘ So lon la ’, Max ); Writeln ( ‘ So nho la’, Min );
End;
S14
PROGRAM Tinh_can_bac_hai ;
VAR a : Real ;
BEGIN
Write ( ` Nhap so a = ` ) ; Readln(a) ;
IF a < 0 THEN
Write ( a : 8: 2 , ` La so am nen khong lay can duoc !!! `)
ELSE
Writeln (` Can so bac 2 cua `, a:8:2 ,` la `,SQRT(a):8:2 );
Writeln (` Nhan Eenter thoat... `) ;
Readln; { Dung man hinh de xem ket qua }
END.
B�i toán 1: : Tính can b?c 2 c?a m?t s? thực a
Lời giải
S 6
B�i toán 2: : Lập trình thực hiện phép chia số a cho số b với điều kiện b<>0
PROGRAM Phep_chia ;
VAR a,b : Real ;
BEGIN
Write ( ‘ Nhap so a = ’ ) ; Readln(a) ;
Write ( ‘ Nhap so b = ’ ) ; Readln(b) ;
if b<>0 then writeln (‘Thuong la:’,a/b:6:2);
Else Writeln(‘ Mau so =0 ! Khong chia duoc !’);
Writeln (` Nhan Eenter thoat... `) ;
Readln; { Dung man hinh de xem ket qua }
END.
Lời giải
Bài tập về nhà
Bài tập 1: Lập chương trình tìm Max và Min của 2 số nguyên nhập từ bàn phím
Bài tập 3: Tìm số ngày của năm N, biết rằng năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100. Ví dụ , các năm 2000, 2004 là năm nhuận và có số ngày là 366, các năm 1900, 1945 không phải là năm nhuận và có số ngày là 365 ngày.
Bài tập 4: Lập chương trình giải và biện luận phương trình bậc nhất ( ax+b = 0) . Hai số a, b nhập từ bàn phím.
Bài tập 2: Lập chương trình tìm Max và Min của 3 số nguyên nhập từ bàn phím
S11
Sơ đồ thuật toán tìm nghiệp PT bậc nhất
Hướng dẫn bài tập 4
Chào tạm biệt !