Chào bạn, hãy ĐĂNG KÝ tham gia diễn đàn nhé.
  • Login:

Chào mừng đến với Diễn đàn học sinh Trần Phú Hà Tĩnh.

Chào bạn, hãy ĐĂNG KÝ làm thành viên diễn đàn TRANPHUHT.COM để được hỗ trợ tốt nhất nhé.
Chúc bạn một ngày vui vẻ ^^!.

CTLINK - DỊCH VỤ CHUYỂN PHÁT NHANH UY TÍN HÀNG ĐẦU VIỆT NAM Làm áo lớp

Thông báo cuộc thi Mr & Miss Trần Phú 2013

Love Telling nvt87.utehy nhắn với admin - thpt tran phu: trời lạnh làm chén rượu ốc đê.....admin..........đi được call....inbox Thiên Thần Gãy Cánh nhắn với <3: Have a nice day WBOYthethoisao nhắn với Mùa hè: Về hè mà chán thế nhỉa :v muốn đi òi. Diễn đàn TP từ ngày mình đi cũng vắng xtanh .... Lady Killer nhắn với all....: vui vại ) Thiên Thần Gãy Cánh nhắn với hondacodon: Con dê xin chào chú yêu! chúc chú tháng mới vui vẻ, hạnh phúc và thành công nhá! <3 Coastal nhắn với huongnham: Ban quản trị sẽ cố gắng nhưng quan trọng là ở các thành viên nữa chú à nguyendinhhung93 nhắn với all mem 12 tpht: chúc các bạn ôn thi tốt và đạt được kết quả cao trong 2 ki thi sắp tới. huongnham nhắn với @all: Sao dạo này room vắng thế nhỉ? ban quản trị nên có kế hoạch vực lại đi chứ nvt87.utehy nhắn với admin: chúc admin ngủ ngon,a e ngủ khỏe.....có giấc mơ đẹp..^_^.... nvt87.utehy nhắn với forum@tranphuht: thông điệp yêu thương ^_^... Gooner Trần Phú nhắn với All: Super Spam đã trở lại Cái độ phá hoại rum vẫn như xưa !!!!!!!! Ngọa Long nhắn với ALL: NL chúc cả nhà ngày mới tốt lành ... ^^ virut_coi nhắn với @@: Nhóm ĐHV cũ ko thể dùng dc chatbox @@ Mr.Còi nhắn với All mem: Anh chị em cố gắng làm cho 4rum xôm lại nào hoa_hong_xanh nhắn với anh: nhớ lắm tềnh yêu ơi!!! bithu_bimbim nhắn với <3: Chúc mọi người năm mới vui vẻ, trẻ, khỏe, học tập, làm việc tốt và hạnh phúc nhé Trang Phan nhắn với cuộc đời sv: uiui...sự nghiệp đăng ký môn học ở Đại học..hơn cả đi tu hành chín quả, LBQ_ANDEHITA1 nhắn với addmin: hay the hien nhung gi minh co Coastal nhắn với all: Hẹn gặp lại tieudang_map nhắn với Các thầy cô giáo: Chúc các thày cô một ngày lễ thật ý nghĩa

Kết quả 1 đến 1 của 1
  1. #1
    Ở nhà chăm con...
    Ngày tham gia
    Jun 2009
    Bài viết
    4,621
    Thanks
    873
    Thanked 2,245 Times in 894 Posts
    Blog:
    8

    Mặc định [Bài Tập Pascal Hay] XÂU KÍ TỰ - Có Đáp Án

    XÂU KÍ TỰ
    Bài 1 :Lập trình đếm số lần xuất hiện ở mỗi loại kí tự thuộc bảng chữ cái tiếng Anh trong một xâu kí tự Str .

    Bài 2 :Cho số tự nhiên n và xâu có độ dài n . Hãy biến đổi xâu đã cho bằng cách thay đổi trong đó :
    a. Tất cả các dấu ! bằng dấu chấm .
    b. Mỗi một nhóm các dấu chấm liền nhau bằng một dấu chấm .
    c. Một nhóm các dấu chấm đứng liền nhau bằng dấu ba chấm .

    Bài 3 :Cho số tự nhiên n và một dãy các kí tự S1 , S2 , … , Sn . Hãy tìm số tự nhiên I đầu tiên sao cho các kí tự Si , Si+1 đều là chữ cái a . Nếu trong dãy không có những cặp như vậy thì thông báo .

    Bài 4 :Cho số tự nhiên n và dãy các kí tự S1 , S2 , … , Sn . Biết rằng trong dãy có ít nhất một dấu phẩy . Hãy tìm số tự nhiên i sao cho :
    a. Si là dấu phẩy đầu tiên .
    b. Si là dấu phầy cuối cùng .

    Bài 5 :Viết chương trình nhập một xâu kí tự , sau đó chỉ ra xem xâu đó có phải là xâu đối xứng không ( xâu đối xứng là xâu có các kí tự giống nhau và đối xứng nhau qua điểm giữa xâu , ví dụ ‘ABBA’ hoặc ‘ABCBA’ ) .

    Bài 6 :Cho một xâu kí tự S . Hãy viết chương trình tính xem trong S có bao nhiêu loại kí tự khác nhau ( phân biệt chữ in hoa với chữ in thường ) . Ví dụ với S là “Pascal” ta có đáp số là 5 .

    Bài 7 :Viết chương trình nhập một xâu kí tự và biến đổi chúng thành toàn chữ in hoa .

    Bài 8 :Họ tên một học sinh được nhập từ bàn phím . Bạn hãy viết chương trình điều chỉnh lại các kí tự đầu của các từ đơn trong tên của học sinh ấy trở thành chữ in hoa .

    Bài 9 :Viết chương trình nhập xãu kí tự từ bàn phím , sau đó gọt xâu lại bằng cách cách xoá đi các kí tự trống ở hai đầu của xâu . Ví dụ nếu nhập xâu “ Ha noi “ , thì kết quả sẽ là “Ha noi” .

    ĐÁP ÁN:
    1)
    Mã:
    Var    A: array [ 'A'..'Z'] of integer;
          S: string; 
          ch: char; 
          i: integer; 
      BEGIN
         Write(' Cho mot xau ki tu : '); Readln(s); 
         For ch:= 'A' to 'Z' do A[ch]:=0;    
         For i:=1 to length(s) do   
         Begin 
            If Upcase(S[i]) in (['A'..'Z']) then  
               Begin 
                  S[i]:= Upcase(S[i]); 
                  A[S[i]]:= A[S[i]]+1;    
               End; 
         End; 
         For ch:= 'A' to 'Z' do 
            Writeln('So lan xuat hien cua ',ch,' trong xau la: ', A[ch]:4) ; 
         Readln ; 
      END .
    2)a )
    Mã:
    Var S: string; 
         i: byte; 
      BEGIN
         Write(' Cho mot xau ki tu S = '); Readln(S); 
         For i:=1 to length(S) do 
            If S[i] = '!' then S[i]:= '.'; 
         Write( ' Chuoi sau khi da bien doi la : ', S); 
         Readln;
      END .
    b )
    Mã:
    Uses crt; 
      Var S : string;          i : byte; 
    
      BEGIN
         Clrscr; 
         Write(' Cho mot xau ki tu  S = '); Readln(S); 
         i:=1; 
         While i< length(S) do       
            If (S[i]='.')and(S[i+1]='.') then Delete(S,i,1) 
            Else inc(i); 
         Write('Chuoi sau khi da bien doi la: ' ,S); 
         Readln; 
      END .
    c )
    Mã:
    Uses crt; 
      Var  S: string; 
          i, j: byte; 
      BEGIN
          Clrscr; 
          Write('Nhap xau S='); Readln(S); 
          i:=1; 
          While i=1)and(S[i]  ',' )  do  i:=i -1; 
         If i>=1 then   Write('So thu tu thoa man la: ', i) 
         Else Write('Khong ton tai.'); 
         Readln; 
      END .
    5) [CODE]Uses Crt;
    Var St : string;
    dx : Boolean;
    i, len: byte;
    BEGIN
    Clrscr;
    Write(' Nhap xau St = '); Readln(St);
    dx:= True;
    i:=1;
    len:= Length(St);
    While dx and (i

  2. # ADS
    Circuit advertisement Google Adsense image
    Ngày tham gia
    Always
    Bài viết
    Many
    Circuito Google Adsense

 

 

Thông tin về chủ đề này

Users Browsing this Thread

Có 1 người đang xem chủ đề. (0 thành viên và 1 khách)

Các Chủ đề tương tự

  1. Trả lời: 0
    Bài viết cuối: 12-27-2011, 01:17 AM
  2. Một Số Bài Tập Pascal Hay Phần MẢNG
    Bởi Mr.Còi trong diễn đàn Tin học nhà trường
    Trả lời: 0
    Bài viết cuối: 12-27-2011, 01:17 AM
  3. Pác nào siêu pascal tìm sai và sửa lỗi giúp em cái
    Bởi Hikaru Nguyễn trong diễn đàn Hỏi & Đáp
    Trả lời: 3
    Bài viết cuối: 04-30-2011, 11:34 AM
  4. Giúp mình bài pascal 11
    Bởi Hikaru Nguyễn trong diễn đàn Các môn học khác
    Trả lời: 17
    Bài viết cuối: 02-22-2011, 11:52 AM
  5. Ai biết về pascal vào giúp em tí nào
    Bởi AnhTraj trong diễn đàn Hỏi & Đáp
    Trả lời: 19
    Bài viết cuối: 10-13-2010, 03:31 PM

Visitors found this page by searching for:

bài tập xâu kí tự trong pascal

bai tap ve xau trong pascal

các bài tập về xâu kí tự trong pascalbai tap hay ve xau trong pascalbài tập về xâu trong pascalbai tap xau ki tu trong pascalbai tap xau trong pascalbài tập xâu trong pascalbai tap ve xau ki tu trong pascalBai tap hay ve xau trong passcalbai tap Pascal kieu xauCa&amp;#769;c ba&amp;#768;i toa&amp;#769;n v&amp;#768; xu trong pascalbài tập về chuỗi trong pascalbài tập xâu kí tựbai tap pascal ve xau ki tubài tập về xâu ký tự trong pascalbai tap xau co dap ancác bài tập về kiểu chữ ký tự trong pascalbai tap xau ki tubai tap xâu kí tự trong pascalbai tap ve xau pascalmot so bai tap ve chuoi pascalbài tập hay về xâubai tap chuoi ky tu trong pascalbai tap kieu xau pascal

Tag của Chủ đề này

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  

1895
Lượt xem