Bài Toán Tên Thiêng

[pascal co ban]

Cuối cùng thì cũng có 1 người giải. thanks trước cài đã, nếu đúng thì tốt, còn không thì lại gặm thêm vài tháng nữa vậy!

[A_AA__A]

Chạy đúng theo yêu cầu của bạn ko Pascal co ban??

[pascal co ban]

vẫn sai 1 chỗ: khi thử với input='ooooooo' thì kết quả xuất ra là 7, kết quả đúng phải là 5!

[=========> Bổ sung bài viết <=========]

nhưng dù sao thì cũng cám ơn nhiều!

[A_AA__A]

nếu là 'ooooooo' thì các tên mà tù trưởng có thể chọn là:
1.o
2.oo
3.ooo
4.oooo
5.ooooo
6.oooooo
7.ooooooo
Theo tôi kết quả sẽ là thế chứ, sao là 5 được!!!

[pascal co ban]

ko biết, đề nó bảo vậy!

[Sakun_m0nkey]

cái này bạn lấy trong đề thi tin học trẻ toàn quốc năm 2006 hả.
mình co đề này voi 2 ví dụ nữa

[QuyNam]

A_AA__A giải vậy là đúng rồi.Hình như pascal co ban chép đề sai. Nguyên mẫu đề là như vầy :

Đề thi tin học trẻ toàn quốc khối B năm 2004

Thời xa xưa , do trình độ hiểu biết còn hạn chế, người ta rất dễ tin vào những điều mê tín. Ví dụ, bộ tộc vùng Flladland cho rằng, để chống lại được bệnh tật và ngăn cản được bước đi cả thần chết, tên của những người dân thuộc bộ tộc bày phải được chọn là một xâu con các ký tự liên tiếp nhau của một tên thiêng W nào đó. Ví dụ, W là "baobaab", thì có thể chọn "ba", "oba","Baab" để làm tên người, còn "bab" hoặc "bob" không thể được dùng để làm điều đó.
Với mỗi tên thiêng W, tù trưởng bộ tộc vùng Fladland rất muốn biết là có thể có tối đa bao nhiêu tên người khác nhau.
Dữ liệu: Vào từ file văn bản HOLYNAME.INP chỉ gồm có một dòng chứa tên thiêng W độ dài không quá 2000 ký tự, trong đó chỉ có các chữ cái la-tinh thường.
Kết quả: Đưa ra file văn bản HOLYNAME.OUT một số nguyên là số lượng tối đa các các tên người có thể đặt khác nhau.
Ví dụ:
HOLYNAME.INP
baobaab
ooooo
HOLYNAME.OUT
23
5

góp thêm 1 bài giải:

uses crt;
const input='HOLINAME.INP';   output='HOLINAME.OUT';
var a:array[1..100] of string;
    k:byte;    f1,f2:text;    w:string;
function exist(s:string):boolean;
var i:word;
begin
exist:=false;
for i:=1 to k do
  if a[i]=s then
    begin   exist:=true;   exit;  end;
end;
procedure process(w:string);
var i,j:byte;  tam:string;
begin
k:=0;
for i:=1 to length(w) do
  begin
    tam:='';
    for j:=i to length(w) do
      begin
        tam:=tam+w[j];
        if not exist(tam) then
          begin   
            inc(k);  a[k]:=tam;
          end;
      end;
  end;
writeln(f2,k);   fillchar(a,k,'');
end;

begin
assign(f1,input);   reset(f1);
assign(f2,output);  rewrite(f2);
while not eof(f1) do
  begin
    readln(f1,w);  process(w);
  end;
close(f1);  close(f2);
end.

[Sakun_m0nkey]

cái bài toán này mơ hồ quá, mấy cái ví dụ không hiểu nổi, nên không biết cách giải

[=========> Bổ sung bài viết <=========]

mà cách giải của bạn sao sao ấy

[QuyNam]

bài này thực ra là đếm số chuỗi con khác nhau của một chuỗi cho trước(với chuỗi con là chuỗi các ký tự liên tiếp của chuỗi đã cho)

[Sakun_m0nkey]

ừ, đọc kỹ lại đề mới thấy nó dễ, thế mà lại là đề thi quốc gia