BÀI 4: Tổng đoạn. (5,0 điểm) Một dãy con gồm các phần tử liên tiếp nhau trong một dãy cho trước được gọi là đoạn. Yêu cầu: Cho dãy gồm N số tự nhiên, viết chương trình tìm đoạn ngắn nhất có tổng các phần tử bằng giá trị K cho trước. Tên file bài làm: BAI4.PAS Dữ liệu vào: Cho trong file văn bản DOAN.INP gồm: (Trường hợp nhập sai DK thì in ra -1) + Dòng 1: chứa 2 số tự nhiên N, K ( 1N1000 ); + Các dòng tiếp theo: các phần tử của dãy, mỗi phần tử cách nhau một dấu cách. Dữ liệu ra: Ghi ra file văn bản DOAN.OUT, chứa một dòng duy nhất gồm hai số tự nhiên x và b. Trong đó x: là chỉ số đầu đoạn; b: là số phần tử trong đoạn (chiều dài đoạn). Nếu tìm không có thì ghi 0 0. PASCAL NHÉ!!

Đáp án:

uses crt;

var T1,T2:text;

    i,n,j,d,c,tong,k:longint;

    a:array[1..1000000]of longint;

    kt:boolean;

procedure nhap;

begin

        readln(n,k); kt:=true;

        while not(eof(t1)) do

        begin

        while not(eoln(t1)) do

        begin

        inc(i);

        read(a[i]);

        end; readln;

        end;

end;

procedure xuli;

begin

        d:=0;

        c:=high(longint)-2;

        for i:=1 to n do

        begin

        j:=i;

        tong:=a[i];

        while (j<>n)and(tong<=k)and(tong+a[j+1]<=k) do

        begin inc(j); inc(tong,a[j]);

        end;

        if (tong=k)and(j-i+1<c-d+1) then

        begin

        d:=i; c:=j;

        end;

        end;

        if d=0 then write('0 0')else write(d,' ',c-d+1);

end;

begin

clrscr;

nhap;

xuli;

readln;

end.

Giải thích các bước giải: