LỆNH IF
Ví dụ: Nếu chiều nay trời không mưa, em sẽ đi chơi bóng.Nếu mưa nhỏ em sẽ đi bơi, còn lại em ở nhà.
lệnh IF điều kiện dạng thiếu và dạng đủ
dạng thiếu: IF …..Then
dạng đủ: IF …….Then ……else
Bài tập 2:
Nhập chều cao của 2 bạn Long và Linh
So sánh chiều cao của 2 bạn trên.
Cách 1:
PROGRAM lenh_IF;
USES CRT;
VAR A,B : real;
BEGIN
CLRSCR;
WRITEln('NHAP CHIEU CAO CUA A :'); READLN(A);
WRITEln('NHAP CHIEU CO CUA B :'); READLN(B);
IF A>B THEN WRITELN(' A CAO HON B ');
IF A<B THEN WRITELN(' A THAP HON B ');
IF A = B THEN WRITELN(' A = B ');
READLN;
END.
Cách 2:
PROGRAM so_chu;
USES CRT;
VAR A,B : real;
BEGIN
CLRSCR;
WRITEln('NHAP CHIEU CAO CUA A :'); READLN(A);
WRITEln('NHAP CHIEU Cao CUA B :'); READLN(B);
IF A>B THEN WRITELN(' A CAO HON B ')
ELSE
IF A<B THEN WRITELN(' A THAP HON B ')
ELSE WRITELN(' A = B ');
READLN;
END.
Bài tập 2:
Tính điểm trung bình 3 môn học của bạn Long có điểm môn toán : 8.5, môn Văn: 5.0, môn Tiếng Anh: 3.5
Tính học lực của bạn Long. Biết rằng:
Nếu DTB >=8 Giỏi;
Nếu DTB < 8 và DTB >= 6.5 : Khá
Nếu DTB < 6.5 và DTB >= 5.0 : TB
Nếu DTB < 5.0 và DTB >= 3.5 : Yếu
Nếu DTB < 3.5 Kém
PROGRAM lenh_IF_DIEM_TB;
USES CRT;
VAR VAN, TOAN,ANH, DTB : real;
BEGIN
CLRSCR;
WRITE('NHAP DIEM MON VAN CUA LONG :'); READLN(VAN); WRITELN;
WRITE('NHAP DIEM MON TOAN CUA LONG :'); READLN(TOAN);WRITELN;
WRITE('NHAP DIEM MON TIENG ANH CUA LONG :'); READLN(ANH);WRITELN;
DTB := (TOAN + VAN + ANH)/3;
WRITE('DIEM TRUNG BINH CUA LONG LA:', DTB:4:2);
IF DTB>=8.5 THEN WRITELN(' BAN LONG XEP LOAI GIOI')
ELSE
IF DTB>=6.5 THEN WRITELN(' BAN LONG XEP LOAI KHA')
ELSE
IF DTB>=5 THEN WRITELN(' BAN LONG XEP LOAI TB')
ELSE IF DTB>=3.5 THEN WRITELN(' BAN LONG XEP LOAI YEU')
ELSE WRITELN(' BAN LONG XEP LOAI KEM ');
READLN;
END.