Tài nguyên dạy học

Hỗ trợ trực tuyến

  • (Nguyễn Hải Minh)
  • (thanhtuantin)

Điều tra ý kiến

Bạn thấy trang này như thế nào?
Đẹp
Đơn điệu
Bình thường
Ý kiến khác

Thống kê

  • truy cập   (chi tiết)
    trong hôm nay
  • lượt xem
    trong hôm nay
  • thành viên
  • Thành viên trực tuyến

    0 khách và 0 thành viên

    Bài tập 5.16

    Wait
    • Begin_button
    • Prev_button
    • Play_button
    • Stop_button
    • Next_button
    • End_button
    • 0 / 0
    • Loading_status
    Nhấn vào đây để tải về
    Báo tài liệu có sai sót
    Nhắn tin cho tác giả
    (Tài liệu chưa được thẩm định)
    Nguồn:
    Người gửi: Nguyễn Hải Minh (trang riêng)
    Ngày gửi: 22h:49' 25-04-2009
    Dung lượng: 6.1 KB
    Số lượt tải: 6
    Số lượt thích: 0 người
    program tim_max;
    var a,b:text;
    n,k,max,d,i,x:integer;
    begin
    assign(a,`supseq.inp`);
    reset(a);
    assign(b,`supseq.out`);
    rewrite(b);
    read(a,n,k);
    max:=0;
    d:=0;
    for i:=1 to n do
    begin
    readln(a,x);
    if x mod k=0 then d:=d+1 else
    begin
    if d>max then
    begin
    max:=d;
    d:=0;
    end;
    end;
    end;
    if d>max then max:=d;
    write(b,max);
    close(a);
    close(b);
    end.
    Chương trình sửa lại như sau: Thầy bổ sung có chữ màu đen đậm. Phần chương trình em viết không liên quan đến chương trình thầy đặt trong chú thích và làm nhạt màu.
    program tim_max;
    var a,b:text;
    n,k,max,d,i,x:integer;
    begin
    assign(a,`supseq.inp`);
    reset(a);
    assign(b,`supseq.out`);
    rewrite(b);
    read(a,n,k);
    max:=0; d:=0;
    for i:=1 to n do
    begin
    readln(a,x);
    if x mod k=0 then
    Begin d:=d+1; If d>max Then Max=d; End
    else d:=0;
    End;
    {begin
    if d>max then
    begin
    max:=d;
    d:=0;
    end;
    end;
    end;
    if d>max then max:=d;}
    write(b,max);
    close(a);
    close(b);
    end.

     
    Gửi ý kiến

    ↓ CHÚ Ý: Bài giảng này được nén lại dưới dạng RAR và có thể chứa nhiều file. Hệ thống chỉ hiển thị 1 file trong số đó, đề nghị các thầy cô KIỂM TRA KỸ TRƯỚC KHI NHẬN XÉT  ↓


    Chào mừng quý vị đến với .

    Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
    Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.