Giúp mình bài tập pascal này với!!! - VN-Zoom Forum

crack13 · 04-06-2008, 14:38

Cho một chuỗi ký tự S! Hãy tìm tất cả các chuỗi con đối xứng của chuỗi S!

Mr_Dolphin · 05-06-2008, 00:44

Mình nói qua về cách làm bạn về tự viết code nhé:
- Đầu tiên là chuẩn hoá chuỗi nhận vào: Xoá kí tự trắng ở đầu và cuối, xoá các kí tự trắng thừa giữa 2 chuỗi con.
- Tách các chuỗi con của chuỗi trên vào mảng, code tham khảo

Code:

begin
    write('Nhap chuoi chuan:');readln(st);
    a:=1;c:=1;
    for i:=1 to length(st)+1 do
        begin
           if (st[i]=#32) or (i=length(st)+1) then
              begin
                 t:=copy(st,a,(i-a));
                 B[c]:=t;
                 a:=i+1;c:=c+1;
              end;
        end;
    readln
end.

- Sau đó là kiểm tra tính đối xứng của từng chuỗi còn bằng cách so sánh nó với chính nó viết theo chiều ngược lại, nếu bằng nhau thì là chuỗi đối xứng.
Để bài đỡ rắc rối bạn nên dùng chương trình con để làm bài này.
Mong rằng giúp được bạn!

crack13 · 05-06-2008, 20:46

thank bạn nhìu lắm!! Mình mới bắt đầu với pascal được hơn 1 năm nay nên có những bài tập cũng chẳng bt hỏi ai, tự mày mò thì lâu quá!! Thank bạn nhìu!! Mình còn một số bài nữa!! Mai mình sẽ post lên, có j bạn giúp mình nha!!Hì, thank!!

crack13 · 05-06-2008, 20:56

Ah, ví dụ như bài này nè:
Cho một lưới ô vuông gồm M dòng, N cột chứa các số nguyên có giá trị trong phạm vi từ 0 đến 255. Một "vùng" là một tập hợp các ô vuông kề cạnh với nhau và có giá trị bằng nhau, đồng thời các ô vuông kề cạnh với vùng nhưng ko thuộc vùng thì có giá trị khác nhau với giá trị các ô trong vùng!
Yêu cầu: Cho trước một ô vuông dòng x, cột y. Hãy cho biết "vùng" chứa ô (x,y) này có bao nhiêu ô vuông tất cả?

Ai bt giúp mình với nhé, thank rất nhìu!

04-06-2008, 14:38	#1
crack13 Rìu Sắt Đôi Tham gia: Apr 2008 Bài: 294 VZD: 7.467 Điểm: 156/67 bài viết	Giúp mình bài tập pascal này với!!! Cho một chuỗi ký tự S! Hãy tìm tất cả các chuỗi con đối xứng của chuỗi S!

05-06-2008, 00:44	#2
Mr_Dolphin Rìu Bạc Tham gia: Dec 2007 Bài: 319 VZD: 4.992 Điểm: 83/54 bài viết	Mình nói qua về cách làm bạn về tự viết code nhé: - Đầu tiên là chuẩn hoá chuỗi nhận vào: Xoá kí tự trắng ở đầu và cuối, xoá các kí tự trắng thừa giữa 2 chuỗi con. - Tách các chuỗi con của chuỗi trên vào mảng, code tham khảo Code: begin write('Nhap chuoi chuan:');readln(st); a:=1;c:=1; for i:=1 to length(st)+1 do begin if (st[i]=#32) or (i=length(st)+1) then begin t:=copy(st,a,(i-a)); B[c]:=t; a:=i+1;c:=c+1; end; end; readln end. - Sau đó là kiểm tra tính đối xứng của từng chuỗi còn bằng cách so sánh nó với chính nó viết theo chiều ngược lại, nếu bằng nhau thì là chuỗi đối xứng. Để bài đỡ rắc rối bạn nên dùng chương trình con để làm bài này. Mong rằng giúp được bạn! __________________ -_::Tin Học là chia sẻ ::_- http://cnttk1a.hnsv.com Chào mừng các bạn đến diễn đàn lớp tui!

Ðiều Chỉnh
Tạo trang in Email trang này
Xếp Bài
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

05-06-2008, 20:46	#3
crack13 Rìu Sắt Đôi Tham gia: Apr 2008 Bài: 294 VZD: 7.467 Điểm: 156/67 bài viết	thank bạn nhìu lắm!! Mình mới bắt đầu với pascal được hơn 1 năm nay nên có những bài tập cũng chẳng bt hỏi ai, tự mày mò thì lâu quá!! Thank bạn nhìu!! Mình còn một số bài nữa!! Mai mình sẽ post lên, có j bạn giúp mình nha!!Hì, thank!!

05-06-2008, 20:56	#4
crack13 Rìu Sắt Đôi Tham gia: Apr 2008 Bài: 294 VZD: 7.467 Điểm: 156/67 bài viết	Ah, ví dụ như bài này nè: Cho một lưới ô vuông gồm M dòng, N cột chứa các số nguyên có giá trị trong phạm vi từ 0 đến 255. Một "vùng" là một tập hợp các ô vuông kề cạnh với nhau và có giá trị bằng nhau, đồng thời các ô vuông kề cạnh với vùng nhưng ko thuộc vùng thì có giá trị khác nhau với giá trị các ô trong vùng! Yêu cầu: Cho trước một ô vuông dòng x, cột y. Hãy cho biết "vùng" chứa ô (x,y) này có bao nhiêu ô vuông tất cả? Ai bt giúp mình với nhé, thank rất nhìu!