BÀI THỰC HÀNH 4 SỬ DỤNG LỆNH ĐIỀU KIỆN IF … THEN Bài 1: Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự không giảm.. Mô tả thuật[r]
Trang 1Câu 1: Em hãy nêu cú pháp và chức năng của câu lệnh điều kiện dạng thiếu?
Câu 2: Em hãy nêu cú pháp và chức năng của câu lệnh điều kiện dạng đủ?
Trang 2BÀI THỰC HÀNH 4
SỬ DỤNG LỆNH ĐIỀU KIỆN IF … THEN
Nội dung
Bảng dưới đây cho biết các câu lệnh Pascal để thực hiện cấu trúc rẽ nhánh:
Dạng thiếu
nếu <điều kiện> thì <câu lệnh>;
if <điều kiện> then <câu lệnh>;
Dạng đầy đủ
nếu <điều kiện> thì <câu lệnh 1> else <câu lệnh 2>;
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
Trang 3BÀI THỰC HÀNH 4
SỬ DỤNG LỆNH ĐIỀU KIỆN IF … THEN
Bài 1: Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự
không giảm
a Mô tả thuật toán để giải bài toán đã cho
- B1: Nhập hai số nguyên a và b từ bàn phím
- B2: Nếu a<b thì in ra màn hình giá trị của biến a trước rồi đến giá trị biến b; ngược lại, in ra màn hình giá trị của biến b trước rồi đến giá trị biến a
- B3: Kết thúc
Tăng dần
Trang 4Bài 1 : Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự không giảm.
a Mô tả thuật toán để giải bài toán đã cho.
- B1: Nhập hai số nguyên a và b từ bàn phím.
- B2: Nếu a<b thì in ra màn hình giá trị của biến a trước rồi đến giá trị biến b; ngược lại, in ra màn hình giá trị của biến b trước rồi đến giá trị biến a.
- B3: Kết thúc.
b Viết chương trình và tìm hiểu ý nghĩa của các câu lệnh trong chương
trình:
readln(A);
readln(B);
Write(‘nhap so A:’);
Write(‘nhap so B:’);
If A<B then writeln(A,’ ’,B) else writeln(B, ‘ ’,A);
readln;
End.
Begin
var A,B:integer;
uses crt;
program sap_xep;
clrscr;
Trang 5BÀI THỰC HÀNH 4
SỬ DỤNG LỆNH ĐIỀU KIỆN IF … THEN
Bài 1: Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự
không giảm
a Mô tả thuật toán để giải bài toán đã cho
b Viết chương trình và tìm hiểu ý nghĩa của các câu lệnh
trong chương trình:
c Nhấn Alt+F9 để dịch và sửa lỗi gõ, nếu có Nhấn Ctrl+F9 để chạy chương trình với các bộ dữ liệu (12,53),(65,20) để thử chương trình Cuối cùng lưu chương trình với tên Sap_xep