kết quả từ 1 tới 3 trên 3

Cần giải giúp đề thi tin học Pascal lớp 9 cấp trường

  1. #1
    Ðến Từ
    Đà Nẵng
    Thành Viên Thứ: 377739
    Bài gửi
    126
    Quick reply to this message Trả lời       


  2. #2
    Ðến Từ
    Đà Nẵng
    Thành Viên Thứ: 377739
    Bài gửi
    126

    Reply: Cần giải giúp đề thi tin học Pascal lớp 9 cấp trường

    0406, letruongthinh giải được không giúp với

  3. #3
    Ðến Từ
    TP. Hồ Chí Minh
    Thành Viên Thứ: 56897
    Giới tính: Nam
    Bài gửi
    874

    Reply: Cần giải giúp đề thi tin học Pascal lớp 9 cấp trường

    Mình thấy bài 3 này dễ hơn 2 bài trc ấy chứ. Bạn dùng 'eoln' để biết đã đọc hết dòng hay chưa.
    Nếu ko đc, cơ bản nhất thì có thể đọc từng char một vẫn xử lý đc hết.
    Code xử lý đại khái như sau, đây là từ màn hình nhé. Bạn cần chỉnh lại để làm với file.
    Mã:
    type arr = array[1..1000000] of double;
    var a : arr;
        n, m, i, j : longint;
    
    procedure sort(L, R : longint);
    begin
    .........
    end;
    
    BEGIN
        readln(m);
        writeln(m);
        for i := 1 to m do
            begin
                n := 0;
                while not eoln do
                    begin
                        inc(n);
                        read(a[n]);
                    end;
                readln;
                sort(1, n);
                for j := 1 to n do
                    write(a[j]:0:2, ' ');
                writeln;
            end;
    END.
    LCD: 13.3" 1920x1080 IPS
    CPU: Intel i7 - 4700MQ (2.4 GHz - 3.4 GHz)
    GPU: Nvidia GTX 765m with GDDR5 2GB
    RAM: 2x8GB G.Skill 2133
    HDD: Samsung SSD 850 Pro 512 GB
    2 kg.