Tin học LỖI EXITCODE=5 FREE PASCAL

Thảo luận trong 'Tin học cấp II' bắt đầu bởi I.AM.NGUYEN.THAI.SON, 24 Tháng năm 2019.

Lượt xem: 137

  1. I.AM.NGUYEN.THAI.SON

    I.AM.NGUYEN.THAI.SON Học sinh mới Thành viên

    Bài viết:
    1
    Điểm thành tích:
    1
    Nơi ở:
    Đắk Lắk
    Trường học/Cơ quan:
    thcs SÔNG RAY
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    đoạn code đây ạ
    const
    nhap='bang2.inp';
    xuat='bang2.out';
    var
    m,n,i,j,t,min,d:longint; e:byte;
    a,b:array[0..100000] of int64;k:qword;
    begin
    assign(input,nhap);reset(input);
    assign(output,nhap);rewrite(output);
    readln(m,n);a[0]:=0;t:=0;e:=0;
    for i:=1 to m do
    begin
    read(a);
    d:=d+a; end;
    d:=trunc(d/n);
    for i:=1 to m do begin
    k:=a[i-1];t:=t+1;
    for j:=i to m do begin
    k:=k+a[j];
    if k>d then begin b[t]:=k;break;end;
    if k=d then e:=1;end;end;
    min:=b[1];
    for i:=2 to t do
    if min>b then b:=min;
    if e=0 then write(min)
    else begin
    k:=0;e:=0;
    for i:=1 to m do begin
    k:=k+a;
    if k>=d then begin e:=e+1;k:=a;end;end;
    if e=n then write(d)
    else write(min);end;
    close(input);close(output);end.
     
  2. Trương Văn Trường Vũ

    Trương Văn Trường Vũ Mod Vật Lí Cu li diễn đàn

    Bài viết:
    518
    Điểm thành tích:
    136
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    THCS Nguyễn Huệ

    ở đoạn assign(output,nhap); là sai nha, đáng ra là xuat chứ sao nhap
     
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->