Trại hè - Tin học trẻ Bắc Ninh.

[wetti]

MÌnh đã gõ và chayh bài của sacklovew rồi nhưng mà mình nhập như đề bài có 3 tam giác thì lại đưa ra tệp kết quả là 7 tam giác. Như vậy là chương trình chưa chuẩn, mình chưa phát hiện ra.Mình chưa hiểu bài của bạn ấy lắm, có lẽ mình cần phải có thời gian nghiên cứu thêm. Mình nghĩ là bài toán này không đơn giản chút nào.

[chimlonvng5]

const         fi='traihe.inp';
                fo='traihe.dat';
var            s: string;
                f:text;
                i,d:longint;
begin
               assign(f,fi);
               reset(f);
               i:=0;
               while not(eof(f)) do
               begin
                           while not(eoln(f)) do
                           begin
                                      readln(f,s);
                                      s:=s+' ';
                                      while pos(' * ',s) > 0 do
                                      begin
                                                 inc(d);
                                                 delete(s,pos(' * ',s),3);
                                      end;
                           end;
                           readln(f);
              end;
              close(f);
              assign(f,fo);
              rewrite(f);
              write(f,d);
              close(f);
end.

Sacklove có thể giải thích rõ thuật toán không? Bởi vì mình thử test thì có test đầu tiên đã sai nên không thử tiếp [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
*___*
___***___*
*_*****_***
________*****
test này kq out chỉ là 2 trong khi ta thấy là có tới 4 trại (không biết có tính trại chỉ có 1 ô không nhỉ?)