Trang chủ Tin Học Lớp 9 viết bằng pascal Một lời quảng cáo chào hàng trong một hiệu sách mua 3, tặng 1, trả tiền 2....
Câu hỏi :

viết bằng pascal Một lời quảng cáo chào hàng trong một hiệu sách mua 3, tặng 1, trả tiền 2. Vì vậy, mỗi khách mua ba quyển sẽ được tặng một quyển có giá rẻ nhất trong ba quyển. Và tất nhiên, khách hàng có thể mua nhiều sách, phụ thuộc vào việc sắp xếp các quyển sách vào mỗi nhóm ba quyển để được miễn phí quyển có giá rẻ nhất trong nhóm đó. Ví dụ, khách hàng lấy các quyển sách có giá 10,3,2,4,6,4,9. Nếu các quyển sách được sắp thành các nhóm: (10,3,2), (4,6,4) và (9) thì khách hàng ấy sẽ được tặng cuốn sách có giá là 2 trong nhóm một, 4 trong nhóm hai, và không có quyển sách nào được tặng trong nhóm ba vì nhóm này chỉ có 1 quyển. Cô bán hàng là một người tốt bụng vì vậy cô ấy luôn muốn mỗi khách hàng trả ít tiền nhất có thể. Yêu cầu: Cho giá các quyển sách, hãy giúp cô bán hàng sắp xếp các quyển sách vào các nhóm sao cho tổng số tiền khách hàng phải trả là ít nhất có thể. Chú ý cô bán hàng có thể sắp xếp các quyển sách vào các nhóm có ít nhất 1 quyển hoặc nhiều nhất 3 quyển. Dữ liệu: vào từ tệp văn bản BOOK.INP - Dòng 1 gồm một số nguyên 𝑁 (1N100000) là số sách khách hàng mua. - 𝑁 dòng tiếp theo mỗi dòng ghi một số nguyên 𝐶𝑖(1𝐶𝑖100000) là giá mỗi quyển sách. Các số trên một dòng của input file được ghi cách nhau bởi dấu cách. Kết quả: ghi ra tệp văn bản BOOK.OUT một số nguyên duy nhất là giá tiền nhỏ nhất mà khách hàng phải trả

Lời giải 1 :

var a:array[1..1000000] of longint;
    n,t,k,i:longint;

procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;
begin
       // assign(input,'BOOK.inp'); reset(input);
        //assign(output,'BOOK.OUT'); rewrite(output);
        read(n);
        for i:=1 to n do
        begin
                read(a[i]);
                inc(t,a[i]);
        end;
        sort(1,n);
        k:=n;
        if k>=3 then
        begin
                dec(k,2);
                dec(t,a[k]);
        end;
        while k>=4 do
        begin
                dec(k,3);
                dec(t,a[k]);
        end;
        {if k>1 then
        for i:=1 to k do
        dec(t,a[i]);}
        write(t);
end.

 

Bạn có biết?

Tin học là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng. Tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin. Hãy tận dụng sức mạnh của tin học để giải quyết các vấn đề và sáng tạo ra những giải pháp mới!

Nguồn :

Wikipedia - Bách khoa toàn thư

Tâm sự lớp 9

Lớp 9 - Là năm cuối ở cấp trung học cơ sở, chúng ta sắp phải bước vào một kỳ thi căng thẳng và sắp chia tay bạn bè, thầy cô. Áp lực từ kỳ vọng của phụ huynh và tương lai lên cấp 3 thật là lớn, nhưng hãy tin vào bản thân và giữ vững sự tự tin!

Nguồn :

sưu tập

Copyright © 2024 Giai BT SGK