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

Hỗ trợ trực tuyến

Điều tra ý kiến

Các bạn thầy trang web của chúng tôi thế nào?
Bình thường
Đẹp
Đơn điệu
Ý 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
  • Ảnh ngẫu nhiên

    20180326_091122.jpg 20180326_081127.jpg 20180326_081114.jpg 20180326_081110.jpg 20180308_163607.jpg 20180308_151354.jpg 20180308_163607.jpg 20180308_150500.jpg 20180326_081110.jpg 20180131_145032.jpg 20180131_144706.jpg 20180124_144342.jpg 20180124_144043.jpg 20180124_144043.jpg 33872733_2072795782983407_2222181259650531328_n.jpg 33943791_861495960702231_6635721624756682752_n.jpg 33764323_862665070585320_5025149308693905408_n.jpg 33755871_861495094035651_7121296574109450240_n.jpg 33788777_861496310702196_6173246671674146816_n.jpg

    Thành viên trực tuyến

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

    Chào mừng quý vị đến với Thư viện tài nguyên dạy học tỉnh Hà Tĩnh.

    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.

    De va dap an thi chon HSG truong - tin hoc

    Nhấn vào đây để tải về
    Hiển thị toàn màn hình
    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: Trần Văn Hoà (trang riêng)
    Ngày gửi: 23h:42' 07-03-2011
    Dung lượng: 42.0 KB
    Số lượt tải: 377
    Số lượt thích: 0 người
    TRƯỜNG THPT ĐỨC THỌ

    ĐỀ THI CHỌN HSG TRƯỜNG KHỐI 11 NĂM HỌC 2010-2011
    Môn: Tin học
    Thời gian làm bài: 180 phút

    Viết chương trình bằng NNLT Pascal giải các bài toán sau:

    Bài 1: Cho trước dãy số. Hãy tìm một dãy con liền nhau cực đại có các phần tử bằng nhau.
    Dữ liệu vào: File DAYSO.INP chứa một dãy số
    Dữ liệu ra: Ghi vào file DAYCON.OUT dãy con lớn nhất thỏa mãn bài toán.

    Bài 2: Dãy con
    Cho một dãy số nguyên dương a1,a2,...,aN (10 < N < 100 000), ai <=10000 với mọi i=1..N và một số nguyên dương S (S < 100 000 000).
    Yêu cầu : Tìm độ dài nhỏ nhất của dãy con chứa các phần tử liên tiếp của dãy mà có tổng các phần tử lớn hơn hoặc bằng S.
    Dữ liệu vào: Đọc từ file SUB.INP gồm nhiều test, mỗi test chứa N và S ở dòng đầu. Dòng 2 chứa các phần tử của dãy.
    Dữ liệu ra: Kết quả ghi vào file SUB.OUT, mỗi test đưa một dòng chứa độ dài của dãy con tìm được.
    Ví dụ :
    SUB.INP
    SUB.OUT
    
    10 15
    5 1 3 5 10 7 4 9 2 8
    5 11
    1 2 3 4 5
    2
    3

    
    
    Bài 3: Cho trước một xâu nhị phân độ dài bất kỳ được đưa vào từ file văn bản INPUT.TXT. Cần biến đổi xâu nhị phân này về dạng toàn số 0. Các phép biến đổi có thể chỉ là một trong các loại sau:
    - Biến đổi xâu con 11 thành 00.
    - Biến đổi xâu con 010 thành 000.
    Hãy chỉ một cách biển đổi xâu đã cho thành xâu có toàn 0. Kết quả thể hiện trong file OUTPUT.TXT như sau:
    Dòng đầu tiên của OUTPUT.TXT chứa xâu ban đầu, sau đó mỗi dòng là một xâu tiếp theo sau một phép biến đổi, xâu cuối cùng là xâu toàn 0.
    Ví dụ 1:
    INPUT.TXT
    OUTPUT.OUT
    
    11010011
    11010011
    11010000
    00010000
    00000000
    
    
    Ví dụ 2:
    INPUT.TXT
    OUTPUT.OUT
    
    10101101
    Khong the bien doi duoc
    
    
    -----HẾT-----

    Lưu ý: Giám thị coi thi không giải thích gì thêm ĐÁP ÁN
    Bài 1: (7 điểm)
    Viết được thủ tục đọc và ghi tệp được 1 điểm
    Chương trình chạy đúng 1 bộ Test đưa ra được 1 điểm
    Chương trình cụ thể như sau.
    Program DaysobangnhauMax;
    Var a:array[1..1000] of integer;
    n:integer;
    f1,f2:text;
    Procedure Doctep;
    begin
    assign(f1,`c:dayso.inp`);reset(f1);
    assign(f2,`c:dayso.out`);rewrite(f2);
    n:=0;
    while not eof(f1) do
    begin
    n:=n+1;
    read(f1,a[n]);
    end;
    end;
    procedure xuli;
    Var dem,max,i,j:integer;
    Begin
    dem:=1;
    max:=0;
    for i:=2 to n+1 do
    if (a[i]=a[i-1]) and (i<=n) then dem:=dem+1
    else
    begin
    if dem>max then max:=dem;
    dem:=1;
    end;
    dem:=1;
    for i:=2 to n+1 do
    if (a[i]=a[i-1]) and (i<=n) then dem:=dem+1
    else
    begin
    if dem=max then
    begin
    for j:=i-max to i-1 do write(f2, a[j],` `);
    writeln(f2);
    end;
    dem:=1;
    end;
    close(f1);close(f2);
    end;
    BEGIN
    doctep;
    xuli;
    END.

    Bài 2: (7 điểm).
    Viết được thủ tục đọc và ghi tệp được 1 điểm
    Chương trình chạy đúng 1 bộ Test đưa ra được 1 điểm
    Chương trình cụ thể như sau.
    Program Bai2;
    Type Ma=array[1..1000] of integer;
    Var a:ma;
    f1,f2:text;
    Procedure xuli(b:ma; n,s:integer);
    Var ok:boolean;
    m,i,j,tong:integer;
    Begin
    ok:=true;
    for m:=
    Avatar

    éo có cái nào chạy được cả

     

     
    Gửi ý kiến