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

[thuctapseonx01]

      File chương trình TRAIHE.PAS
Một tệp văn bản tên TRAIHE.DAT thể hiện sơ đồ 
bố trí các lều của một trại hè do các chi đoàn dựng trại 
nhân dịp chào mừng ngày 26 - 3. 
Mỗi lều có hình tam giác cân đỉnh hướng lên phía trên, 
các dòng có lần lượt 1, 3, 5...dấu '*'. 
Các lều không dính nhau.
Ví dụ:
   *                    *
 ***                ***
*****
*******             *
                         ***
                       *****
Có 3 lều
Yêu cầu: Hãy đếm số lều có trong bản đồ và lưu vào tệp 
TRAIHE.OUT
File văn bản TRAIHE.DAT có số dòng không hạn chế,
chiều dài tối đa của mỗi dòng không quá 128 kí tự.

[quanganhaq]

Mình không hiểu đề bài của bạn, bạn nên đưa ra một vài test ví dụ [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[lamgiaseo]

Test như hình trên đó anh Trung, kết quả là 3 lều.
Thuật toán: bạn duyệt từng dòng, kiểm tra nếu có 1 * đứng riêng, không có * nào ở bên trái hoặc bên phải nó thì tức là tìm được 1 lều, tăng biến đếm. Sau khi duyệt xong tệp thì kq cần tìm lưu ở biến đếm.

[leanhseomxh]

Tieu long viết cả chương trình giúp mình đi.
Nhưng mình không biết biến điều khiển vòng For chạy từ đâu đến đâu. Vì đang làm việc trên tệp mà số dòng không hạn chế!

[quanganhaq]

Tieu long viết cả chương trình giúp mình đi.
Nhưng mình không biết biến điều khiển vòng For chạy từ đâu đến đâu. Vì đang làm việc trên tệp mà số dòng không hạn chế!

[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG] Chắc làm nhiều quá nên bạn bị sao rồi! Kaka
Dùng 2 lệnh này nhé bạn.
1. Câu lệnh dưới có nghĩa là: "Trong khi chưa hết dòng (line) của file F thì làm ..."

While Not EOLN(F) Do

EOLN: Viết tắt của End Of Line

2. Câu lệnh dưới có nghĩa là: "Trong khi chưa hết file F thì làm ..."

While not EOF(F) Do

EOF: Viết tắt của End Of File

[manquang29]

Bạn cứ viết chương trình đầy đủ giúp mình đi nhé! Còn đoạn đọc vào tệp thì sao nhỉ. Mình có phải viết để máy tự đọc hay là người sử dụng tự đọc?Có phải sử dụng mảng 2 chiều ko bạn hay là sử dụng mảng 1 chiều thôi.
Còn hàm EOF(f) thì mình nhớ chứ, mình biết mà!

[changmin629x]

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.

[nguyentienthuy]

Cách như của sacklove thì chủ yếu là phải thạo về phần kiến thức tệp thôi nhỉ, bạn hoàn toàn sử dụng tệp và xâu mà không sử dụng kiểu dữ liệu mảng.Thế với bài toán này thì có thể viết theo kiểu mảng có được không vậy?

[chuvanduyhn91]

Cách như của sacklove thì chủ yếu là phải thạo về phần kiến thức tệp thôi nhỉ, bạn hoàn toàn sử dụng tệp và xâu mà không sử dụng kiểu dữ liệu mảng.Thế với bài toán này thì có thể viết theo kiểu mảng có được không vậy?

Tệp tối ưu hơn bạn à! Mảng làm sao tối ưu được với lại thời gian nạp hoặc tìm kiếm cũng lâu hơn.

[MinhPhuc123]

Cách như của sacklove thì chủ yếu là phải thạo về phần kiến thức tệp thôi nhỉ, bạn hoàn toàn sử dụng tệp và xâu mà không sử dụng kiểu dữ liệu mảng.Thế với bài toán này thì có thể viết theo kiểu mảng có được không vậy?

Bạn có thể đọc vào 1 mảng rồi for 1 lượt tất cả các phần tử . Nhưng như vậy chẳng phải là tốn thời gian và bộ nhớ hơn sao ?