Hiển thị kết quả từ 1 đến 6 / 6
  1. #1
    Tham gia
    06-01-2010
    Bài viết
    8
    Like
    0
    Thanked 0 Times in 0 Posts

    Cần chú ý ! bai tap kieu xau (string)

    viet chuong trinh nhap va xuat ra day A va nhap vao ki tu k xem co co nam trong day A hay ko neu co hay cho biet vi tri cua k trong A
    Quote Quote

  2. #2
    Tham gia
    13-01-2010
    Bài viết
    78
    Like
    0
    Thanked 0 Times in 0 Posts
    =.="... Cái này... hơi dễ... sao không lo suy nghĩ đi...
    Bài tham khảo cho bạn nè
    Code:
    Var s:string;
        k:char;
        i:byte;
    Begin
      write('Nhap xau');readln(s);
      write('Nhap ki tu k');readln(k);
      writeln('Xau vua nhap: ',s);
      Writeln('Cac vi tri ma ',k,' xuat hien trong xau:');
      For i:=1 to length(s) do
       If s[i]=k then write(i:4);
      Readln;
    End.

  3. #3
    Tham gia
    23-03-2010
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    giai thich tai sao k lai kieu char

  4. #4
    Tham gia
    10-11-2009
    Location
    TP Hồ Chí Minh
    Bài viết
    985
    Like
    171
    Thanked 49 Times in 47 Posts
    K là ký tự
    __________

  5. #5
    Tham gia
    18-01-2009
    Location
    Long An
    Bài viết
    28
    Like
    0
    Thanked 1 Time in 1 Post
    chương trình của bạn co khuyết điểm là tốn bộ nhớ khi chỉ cần tìm ra thui!!! nếu ký tự cần tìm nằm ở cuối xâu thì nó sẽ diệt toàn bộ xâu!!!!!
    bạn nên dùng chương trình con để tìm vị trí và tìm ký tự trong xâu!!!!
    đây là chương trình của mình còn thấp kém lắm!!!! có gì sai sót các bạn bỏ wa cho nha!!!!
    uses crt;
    type mang=array[1..256] of byte;
    var a:mang;
    i:byte;
    k:char;
    s:string;
    procedure nhap;
    begin
    writeln('ban hay nhap vao 1 xau bat ky '); readln(s);
    writeln('nhap vao 1 ky tu can kiem tra co trong xau hay hok ');
    readln(k);
    end;
    procedure kiemtra(s:string;k:char);
    var dem:byte;
    begin
    dem:=0;
    for i:=1 to length(s) do
    if a[i]=k then
    begin
    inc(dem);
    break;
    end;
    if dem<>0 then writeln(k,' co trong xau ') else writeln(k,' hok co trong xau ');
    end;
    procedure vitri(s:string;k:char);
    begin
    writeln(k,' co vi tri trong xau la ');
    for i:=1 to length(s) do
    if s[i]=k then a[i]:=i;
    writeln;
    for i:=1 to length(s) do
    if a[i]<>0 then write(a[i]:4);
    end;
    begin
    clrscr;
    nhap;
    kiemtra(s,k);
    vitri(s,k);
    readln;
    end.
    mình còn rất yếu có gì sai xót mong các pác chỉ giáo thêm nha!!!!!!

  6. #6
    Tham gia
    23-06-2009
    Location
    Huyện Gia Bình - Tỉnh Bắc Ninh
    Bài viết
    323
    Like
    0
    Thanked 4 Times in 4 Posts
    Bài đơn giản này xây dựng thành chương trình con cho phức tạp ra à!

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • 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
  •