//
you're reading...
Bài tập huấn luyện, Chủ đề tập hợp (set), Dùng cho cấp THCS, Dùng cho cấp THPT

Bài tập về tập hợp (set) – Bài 05

Bài tập về tập hợp (set)

Trang này của Nguyễn Công Tác

Bấm vào các liên kết dưới đây để xem các trang liên quan:


Lý thuyết bài 11 – Kiểu tập hợp (set)
Về trang trước – Bài 04
Đến trang sau – Bài 06


Bài 05:

Viết chương trình nhập vào một chuỗi từ bàn phím. In ra màn hình dãy các nguyên âm và dãy các phụ âm có trong chuỗi đã nhập.

Phần mã sẽ được trình bày trong vùng màu xám như dưới đây:


Mẫu chương trình



Program Nguyen_am_Phu_am;
TYPE
    Kytu=Set of Char;
Var
    a,b,Nguyen,Phu:Kytu;
   Chuoi:String;
   i:Integer;
   Ch:Char;
Begin
    Writeln('CAC NGUYEN AM, PHU AM TRONG MOT CHUOI');
   Writeln('-------------------------------------');
   Write('-Nhap mot chuoi ky tu: ');
   Readln(Chuoi);
   a:=['a','e','i','o','u','A','E','I','O','U'];
   b:=['a'..'z','A'..'Z'] - a;
   Nguyen:=[];
   Phu:=[];
   For I:=1 To Length(Chuoi) Do
       Begin
          If Chuoi[i] In a Then
             Nguyen:=Nguyen + [Chuoi[i]];
         If Chuoi[i] In b Then
             Phu:=Phu +[Chuoi[i]];
      End;
   Writeln;
   Writeln('*Chuoi nay co cac nguyen am sau day:');
   Write('     ');
   For Ch:='A' To 'z' Do
       If Ch In Nguyen Then
          Write(Upcase(ch),', ');
   Writeln;
   Writeln('*Chuoi nay co cac phu am sau day:');
   Write('     ');
   For Ch:='A' To 'z' Do
       If Ch In Phu Then
          Write(Upcase(Ch),', ');
   Writeln;
   Writeln;
   Write('    Bam phim de ket thuc ');
   Readln
End.

Kết quả in ra
CAC NGUYEN AM, PHU AM TRONG MOT CHUOI
————————————-
-Nhap mot chuoi ky tu: chuc mung nam moi
*Chuoi nay co cac nguyen am sau day:
A, I, O, U,
*Chuoi nay co cac phu am sau day:
C, G, H, M, N,
Bam phim de ket thuc


Nguồn tài liệu

Tham khảo từ Internet.


Giải thuật và lập trình – Lê Minh Hoàng
Trang bài học Pascal cơ bản
Dự phòng
Dự phòng

Advertisements

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Không có bình luận

Trả lời

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

Các tác giả

Chuyên mục

Tháng Mười Hai 2014
H B T N S B C
« Th11   Th1 »
1234567
891011121314
15161718192021
22232425262728
293031  

NCT Computer

Flickr Photos

lost

Lookkk deeeply into my eyes....

Cimitero San Michele

More Photos

Thống kê

  • 115,518 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: