Giáo trình Nhập môn Tin học LỜi nóI ĐẦU

6.2.2 Câu lệnh lựa chọn CASE

Câu lệnh IF chỉ thực hiện rẽ 2 nhánh tương ứng với giá trị của biểu thức <Điều kiện>. Khi cần lựa chọn để thực hiện một trong nhiều khả năng khác nhau ta phải dùng rất nhiều lệnh IF. Câu lệnh CASE sẽ giới thiệu sau đây là lệnh rẽ nhánh theo giá trị cho phép lựa chọn để thực hiện 1 trong nhiều công việc.

Sự thực hiện của lệnh CASE ..OF phụ thuộc vào giá trị của

...... ......

...... ......

IF <Điều kiện> THEN ELSE ;

Case <Điều kiện> of TRUE : ; FALSE: ; End;

Program VIDU_6_2;

Uses Crt;

Var songay, thang: Byte;

nam: Integer;

BEGIN

Write('Cho biet thang (dang so): '); ReadLn(thang);

Write('Cho biet nam '); ReadLn(nam);

Case thang of

4,6,9,11: songay:=30;

2:If nam mod 4 = 0 then

if (nam mod 100 = 0)and(nam mod 400 <> 0)then

songay:=28

else songay:=29;

Else songay:=28;

Else { else cua CASE}

songay:=31;

End; {của Case}

{In ket qua }

WriteLn('Thang ', thang, '/',nam,' co: ',songay,' ngay')

ReadLn;

Với bài này ta có thể giải bằng cách sử dụng câu lệnh IF hoặc CASE

Program vidu_6_3_IF;

Var x,y,F:real;

Begin

Write(‘ Nhap y = ‘);readln(y);

If x>y then

F:= x+y

F:=abs(x+y);

Writeln(‘ Gia tri cua bieu thuc F = ‘,F:8:2);

Readln;

Program vidu_6_3_CASE;

Var x,y,F:real;

Begin

Write(‘ Nhap y = ‘);readln(y);

Case x>y of

True: F:= x+y;

False: F:=abs(x+y);

End;

Readln;

Program VIDU_6_4;

Uses Crt;

Var Xa, Ya, Xb, Yb, d: Real;

BEGIN

ClrScr;

Write('Nhap toa do y cua diem A Ya= '); ReadLn(Ya);

Write('Nhap toa do x cua diem B Xb= '); ReadLn(Xb);

Write('Nhap toa do y cua diem B Yb= '); ReadLn(Yb);

{ Tinh do dai doan thang AB }

d := SQRT(SQR(Xa-Xb)+SQR(Ya-Yb));

{ In ket qua }

WriteLn('Do dai doan thang AB = ', d:10:4);

ReadLn;

END.
Ví dụ 6.5: Lập chương trình biện luận nghiệm của phương trình bậc hai ax²+bx+c=0 với các hệ số a, b nhập vào từ bàn phím.

Uses Crt;

Var a, b, c, x1, x2, delta: Real;

BEGIN

Write('Nhap he so thu nhat a= '); ReadLn(a);

Write('Nhap he so thu hai b= '); ReadLn(b);

Write('Nhap he so thu ba c= '); ReadLn(c);

If a=0 then

WriteLn('Phuong trinh bac hai suy bien, khong xet!')

Else

Begin

{ Xet delta }

If delta < 0 then WriteLn('Phuong trinh vo nghiem')

Else

Begin

x1:=-b/(2*a);

WriteLn('PT co nghiem kep x1=x2= ',x1:8:3);

end

Begin

x1:=(-b+SQRT(Delta))/(2*a);

x2:=(-b-SQRT(Delta))/(2*a);

WriteLn('Nghiem thu nhat cua PT la x1= ',x1:8:3);

WriteLn('Nghiem thu hai cua PT la x2= ',x2:8:3);

End;

ReadLn;