- Chọn địa điểm muốn tìm nhật thực Thực hiện lệnh View > Eclipse
a) Mô tả thuật toán để giải bài toán
Bớc 1: Nhập 2 số nguyên a, b từ bàn phím
Bớc 2: Nếu a ≤ thì hiển thị ra màn hình giá trị của biến a trớc ròi đến giá trị của biến b.
Bớc 3: Nếu b<a thì hiển thị giá trị của b trớc rồi đến giá trị của a Bớc 4: kết thúc. b)Gõ chơng trình Program Sapxep; Uses Crt; Var a, b: integer; begin clrscr
Write (‘nhap số A:’); Readln(A); Write (‘nhap số B:’); Readln(B); if A<b then Writeln (A,’ ‘, B) else writeln(B,’ ‘, A);
Readln; End.
c) Tìm hiểu ý nghĩa của từng câu lệnh trong chơng trình. Program Sapxep; Uses Crt; Var a, b: integer; begin clrscr { Bớc 1: Nhập 2 số nguyên a và b từ bàn phím}
Write (‘nhap số A:’); Readln(A); Write (‘nhap số B:’); Readln(B); {Bớc 2: Nếu a<b thì hiển thị ra màn
Gv yêu cầu HS dịch và sửa lỗi nếu có, chạy ch- ơng trình.
HS: Thực hiện trên máy.
GV: Hãy lu chơng trình ới tên sapxep
GV yêu cầu HS viết chơng trình bài 2
HS: Các nhóm viết vào giấy sau đó đối chiếu với bài trong SGK
HS: Gõ chơng trình vào máy.
GV: Hãy lu chơng trình với tên Aicaohon
b}
if A<b then Writeln (A,’ ‘, B) else writeln(B,’ ‘, A);
{ Ngợc lại in ra màn hình giá trị biến B trớc rồi đến giá trị biến A
Readln; End.
* Nhấn Alt+ F9 để dịch và sửa lỗi nếu có. Nhấn Ctrl+ F9 để chạy ch- ơng trình với một số bộ dữ liệu (12,53) , (65,20) để thử chơng trình.
Bài 2:
a) Gõ chơng trình Program Ai_cao_hon; uses crt;
var Long, Trang: Real; Begin
Clrscr;
Write (‘Nhap chieu cao cua Long:’); Readln (Long);
Write (‘Nhap chieu cao cua Trang:’); Readln (Trang);
if Long> Trang then Writeln ( ‘Ban Long cao hơn’);
if Long< Trang then Writeln (‘ Ban trang cao hon’)
else
Writeln (‘Hai ban cao bang nhau’); Readln
End.
V/ Củng cố bài: GV yêu cầu HS nhắc lại câu lệnh điều kiện dạng thiếu và dạng đủ.
Hớng dẫn về nhà: Tìm hiểu thêm bài 2 và đọc trớc bài 3.
Tiết 32: Bài thực hành 4
Sử dụng lệnh điều kiện if…then (tiếp)
Ngày soạn: 15/12/2009
I/ Mục tiêu:
* Kiến thức: - Viết câu lệnh if…then trong chơng trình
- Rèn kỹ năng ban đầu về đọc các chơng trình đơn giản và hiểu đợc ý nghĩa của thuật toán sử dụng trong chơng trình.
* Kỹ năng: - Viết đúng câu lệnh rẽ nhánh dạng khuyết, rẽ nhánh dạng đầy đủ. - Biết sử dụng đúng và có hiệu quả câu lệnh rẽ nhánh.