Lệnh case...of trong pascal là gì? cho tôi 1 ví dụ về lệnh case... of với

Chương trình sau đây yêu cầu bạn đọc vào một tháng, máy sẽ đưa ra nhận xét đây là quí mấy

var thang : integer;

Begin

    write (" Doc vao mot tháng:)

  Readln(thang);

  case thang of

   1,2,3  : writeln(' ®©y lµ th¸ng cña quý I ');  

   4,5,6  : writeln(' ®©y lµ th¸ng cña quý II ');

   7,8,9  : writeln(' ®©y lµ th¸ng cña quý III ');

   10,11,12 : writeln(' ®©y lµ th¸ng cña quý IV');

  end;

End.

chi tiết hơn bạn tham khaor cac an pham sau:

Bài tập Tin Đại cương(TURBO PASCAL) của tác giả Tô Văn Nam, NXB Giáo dục, đã xuất bản vào các năm:2004,2005, 2006, 2007, 2008, 2009;

- Giáo trình Tin Đại cương (với C) của tác giả Tô Văn Nam, NXB Giáo dục, 2009

- Nhập môn  Tin học (với Pascal) của tác giả Tô Văn Nam, NXB GD, 2004,2005, 2006, 2007. 2008. 2009

Em có thể mua tại

Tại Hà nội 25 Hàn Thuyên,187b Giảng võ, 232 Tây sơn, 23 Tràng tiền,...

Tại Đà nẵng 15 Nguyễn Chí Thanh, 62 Nguyễn Chí Thanh,...

Tại TP HCM 451b HBT Quận33, 240 Trần Bình Trọng Quận 5,...

Tại Cần Thơ s00s 5/5 Đường 30/4,....