Thứ ba, Ngày 30 Tháng 5 Năm 2017
Kỷ niệm 42 năm Ngày thống nhất đất nước (30/4/1975 - 30/4/2017) và 131 năm Ngày Quốc tế lao động (01/5/1886 - 01/5/2017)
JV color JV color JV color
Joomla Templates and Joomla Extensions by JoomlaVision.Com
  • Truy Cập Tin Nhanh
Khảo thí & Kiểm định chất lượng: Công văn số 2093/BGDĐT-GDĐH: V/v nhắc nhở thí sinh thực hiện các quy định ĐKXT ĐH,CĐSP năm 2017 - Monday, 22 Tháng 5 2017 09:17
Văn Phòng Sở : Thông tin Giáo dục và Đào tạo Quý I 2017 - Thứ ba, 16 Tháng 5 2017 09:56

Thông tin thi tuyển sinh, THPT Quốc gia 2017


Thống kê số liệu đăng ký tuyển sinh vào lớp 10 năm học 2017-2018: Xem chi tiết ...

THÔNG BÁO

newThông báo: new

Kế hoạch thời gian năm học 2016-2017: Download

Tài liệu hướng dẫn:
- Bài thể dục Buổi sáng: tải về ...
- Bài thể dục Giữa giờ: tải về ...
- Bài võ thuật cổ truyền: tải về ...

Phần mềm dùng để họp trực tuyến Trueconf: Download
Phiên bản dùng cho thiết bị di động: Android  hoặc  IOS

Hướng dẫn quy trình sử dụng Eoffice - Văn phòng điện tử dành cho ngành Giáo dục và Đào tạo tỉnh Bà Rịa - Vũng Tàu.
Tải về ... 
Đề nghị cài lại Eoffice phiên bản 6.1.23. Download

BKAV phiên bản client: Download

THÔNG BÁO TUYỂN SINH NĂM HỌC 2017-2018

ts2017


UKA_Link_BRMOET_2

Mô hình trường học mới Việt Nam

mohinhmoi

Tài liệu lớp 6 năm học 2015-2016: tải về tại đây ...
Tài liệu hướng dẫn dạy của của giáo viên: tải về ...
Tài liệu tham khảo về các mức đánh giá kiểm tra các bộ môn: tải về ...

DIỄN ĐÀN: DÂN HỎI - SỞ GDĐT TRẢ LỜI

hoi-dap_1

DỊCH VỤ CÔNG TRỰC TUYẾN

Dichvucong

QUẢN LÝ NHÂN SỰ PMIS

pmis Tải bộ cài đặt PMIS: tại đây ...

CÔNG ĐOÀN NGÀNH

CDN2015

THÔNG TIN KHEN THƯỞNG - XỬ PHẠT

- Quyết định số 1507/QĐ-BGDĐT: về việc tặng bằng khen
- Quyết định số 715/QĐ-SGDĐT: về việc tặng Giấy khen cho các trường THPT đạt kết quả cao trong kỳ thi tuyển sinh Đại học năm 2014
- Quyết định số 1647/QĐ-UBND: về việc tặng bằng khen
- Quyết định số 1438/QĐ-UBND: về việc tặng bằng khen
- Quyết định số 1624/QĐ-UBND: về việc tăng cờ thi đua và danh hiệu Chiến sĩ thi đua cấp tỉnh

HỘP THƯ GÓP Ý

Sở Giáo dục và Đào tạo tỉnh Bà Rịa – Vũng Tàu hân hạnh được tiếp nhận những ý kiến đóng góp của quý Thầy cô giáo, quý phụ huynh học sinh và các em học sinh về lĩnh vực Giáo dục và Đào tạo của tỉnh Bà Rịa – Vũng Tàu với mục đích làm cho ngành giáo dục tỉnh nhà ngày càng tốt hơn.
Nội dung góp ý xin mail về địa chỉ:
Xin trân trọng cám ơn!

Văn bản về xử phạt vi phạm hành chính trong lĩnh vực giáo dục:
Joomla Templates and Joomla Extensions by JoomlaVision.Com
  • Web liên kết

  • Tin mới

  • Tin xem nhiều

Joomla Templates and Joomla Extensions by JoomlaVision.Com
  • Góc học tập

  • Lập trình

  • Báo chí

Thông tin liên hệ

cqmoi02
Sở Giáo Dục & Đào Tạo tỉnh Bà Rịa - Vũng Tàu
Địa chỉ: Khối B3 Khu Trung tâm hành chính-chính trị tỉnh; số 198 đường Bạch Đằng, phường Phước Trung, Thành phố Bà Rịa, tỉnh Bà Rịa-Vũng Tàu
Quản trị Website: Phòng Công nghệ Thông tin

Thống kê truy cập

mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHôm nay2390
mod_vvisit_counterHôm qua18192
mod_vvisit_counterTuần này20582
mod_vvisit_counterTuần trước148446
mod_vvisit_counterTháng này590943
mod_vvisit_counterTháng trước708334
mod_vvisit_counterTất cả37192883
Hiện có 585 khách Trực tuyến
Home TÀI NGUYÊN Công Nghệ Thông Tin Lập Trình Bài toán: Tích lớn nhất trong 3 số

Bài toán: Tích lớn nhất trong 3 số

In

tinhoche11_04

Bài toán: Tích lớn nhất trong 3 số                              Mã file: MULMAX3

Cho một dãy số nguyên a1, a2,…, an.

Yêu cầu: Hãy chọn ra 3 số trong dãy trên sao cho tích của chúng là lớn nhất.

 

Dữ liệu vào từ file ‘MULMAX3.INP’

  • Dòng đầu là số nguyên dương n.
  • Dòng thứ 2 chứa dãy số a1, a2,…, an.

Kết quả ghi vào file ‘MULMAX3.OUT’ ghi tích lớn nhất tìm được.

Giới hạn kỹ thuật:

  • n≤1000000;
  • -10000≤ai≤10000 với i=1, 2, … n

Ví dụ:

MULMAX3.INP

MULMAX3.OUT

6

7 -2 4 -1 6 5

210

Lời giải tham khảo:

Lời giải 1:

const fi='MULMAX3.inp';
      fo='MULMAX3.out';
var f:text;
    a:array[1..10000] of int64;
    n,max:int64;
procedure nhap;
      var i:longint;
        begin
                assign(f,fi);
                reset(f);
                readln(f,n);
                for i:=1 to n do
                    readln(f,a[i]);
                close(f);
        end;

procedure qsort(l,r:integer);
        var i,j,x,y: integer;
begin

                i:=l;
                j:=r;
        x:=a[(l+r) div 2];
        repeat
                while a[i]<x do i:=i+1;
                while a[j]>x do j:=j-1;
                if i<=j then
                  begin
                        y:=a[i];
                        a[i]:=a[j];
                        a[j]:=y;
                        i:=i+1;
                        j:=j-1;
                  end;
        until i>j;
        if l<j then qsort(l,j);
        if i<r then qsort(i,r);

end;
{chua toi uu, dang thu}
procedure xuli;
      var   kq:qword;
begin
          qsort(1,n);
          max:=a[n]*a[n-1]*a[n-2];
          kq:=a[1]*a[2]*a[n];
          if kq>max then max:=kq;

end;

procedure xuat;

begin
        assign(f,fo);
        rewrite(f);
        write(f,max);
        close(f);
end;

{chuong trinh chinh}
begin
        nhap;
        xuli;
        xuat;
end.

Lời giải 2:

const fi='mulmax3.inp';
      fo='mulmax3.out';
var a:array[1..1000000] of longint;
    n:longint;
    kq:qword;
    f:text;
procedure docfile;
var i:integer;
begin
    assign(f,fi);reset(f);
    readln(f,n);
    for i:=1 to n do
        read(f,a[i]);
    close(f);
end;

procedure ghifile;
begin
    assign(f,fo);rewrite(f);
    writeln(f,kq);
    close(f);
end;

procedure trao(var x,y:longint);
var tmp:longint;
begin
    tmp:=x;
    x:=y;
    y:=tmp;
end;

procedure quicksort(d,c:longint);
var i,j,x:longint;
begin
    i:=d;
    j:=c;
    x:=a[(i+j) div 2];
    repeat
        while a[i]<x do inc(i);
        while a[j]>x do dec(j);
        if i<=j then
            begin
                trao(a[i],a[j]);
                inc(i);dec(j);
            end;
    until i>j;
    if i<c then quicksort(i,c);
    if d<j then quicksort(d,j);
end;

procedure xuly;
begin
    quicksort(1,n);
    kq:=int64(a[n])*int64(a[n-1])*int64(a[n-2]);
    if kq<int64(a[1])*int64(a[2])*int64(a[n]) then
        kq:=int64(a[1])*int64(a[2])*int64(a[n]);
end;

begin
    docfile;
    xuly;
    ghifile;
end.

(Chương trình tập huấn kỹ năng lập trình và công tác bồi dưỡng HSG dành cho GV THCS - hè 2011)