Bài giảng Tin học 8 - Bài thực hành 4: Sử dụng lệnh điều kiện If ... then

 Bài Thực Hành 4 
Sử Dụng Lệnh Điều Kiện
 IF ... THEN
 Môn Tin học 8 Bài 1 – trang 52
 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 (tăng 
 dần). 
  ➔ Hãy xác định bài toán và mô tả thuật 
 toán Bài 1 – Thuật toán
  Bước 1: Nhập 2 số nguyên a, b từ bàn phím.
 phím.
  Bước 2: Nếu a < b thì in giá trị ra màn hình a 
 trước b sau ngược lại thì in ra màn hình giá 
 trị b trước a sau.
  Bước 3: Kết thúc Bài 1 – Trang 52+53 SGK
program Sap_xep;
uses crt;
var A, B: integer; 
begin
 clrscr;
 write('Nhap so A: '); readln(A);
 write('Nhap so B: '); readln(B);
 if A<B then writeln(A,' ',B)
 else writeln(B,' ',A);
 readln
end. 
 - Lưu với tên Sap_xep
 - Nhập bộ dữ liệu (12, 53), (65, 20) để thử chương trình Bài 2 - Xác định bài toán
Viết chương trình nhập chiều cao của hai bạn Long và 
 Trang, in ra màn hình kết quả so sánh chiều cao của 
 hai bạn, dưới dạng "Bạn Long cao hơn“, “Bạn Trang 
 cao hơn”, “Hai bạn bằng nhau”
 Xác định bài toán
  INPUT: Nhập chiều cao Long và Trang
  OUTPUT: in "Bạn Long cao hơn”, nếu Long > Trang
 in “Bạn Trang cao hơn”, nếu Long < Trang
 in “Hai bạn bằng nhau”, nếu Long = Trang Bài 2 – Mô tả
 SAI SAI
 Long > Trang Long < Trang
 ? ?
ĐÚNG ĐÚNG
 In ra In ra In ra
 Long cao hơn Trang cao hơn Hai bạn bằng nhau  ..... Bài 2 – sửa lại
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 hon');
 If Long<Trang then writeln('Ban Trang cao hon');
 If Long=Trang then writeln('Hai ban cao bang nhau');
readln
end. Bài 3
 Nhập ba số dương a, b, và c từ bàn phím, 
 kiểm tra và in ra màn hình kết quả kiểm tra 
 ba số đó có thể là độ dài các cạnh của một 
 tam giác hay không.
  ý tưởng: Ba số dương a, b, và c là độ dài các 
 cạnh của một tam giác khi và chỉ khi a + b > c, b 
 + c > a và c + a > b 
 c
 a
 b Bài 3 – trang 54
Program Ba_canh_tam_giac;
uses crt;
Var a, b, c: real; 
Begin
 Clrscr;
 write('Nhap ba so a, b va c:'); 
 readln(a,b,c);
 If (a+b>c) and (b+c>a) and (c+a>b) then
 writeln('a, b va c la 3 canh cua 
 mot tam giac!') 
 else writeln('a, b, c khong la 3 
 canh cua 1 tam giac!');
end. Dặn dò
  Về nhà học bài, làm lại các bài thực hành 
 nếu nhà có máy tính.
  Coi trước Bài 7 : “Câu lệnh lặp”