Thứ ba, Ngày 18 Tháng 12 Năm 2018
Chào mừng kỷ niệm 36 năm ngày Nhà Giáo Việt Nam (20/11/1982-20/11/2018)
JV color JV color JV color
Joomla Templates and Joomla Extensions by JoomlaVision.Com
  • Truy Cập Tin Nhanh
Kế hoạch tài chính: Công văn số 2324/SGDĐT-KHTC: V/v trợ cấp tết Nguyên đán Kỷ Hợi năm 2019 - Thứ sáu, 14 Tháng 12 2018 14:41
Giáo Dục Trung Học: Chuyên Đề Đổi mới Phương pháp dạy học Cụm Vũng Tàu (có sơ đồ) - Thứ năm, 22 Tháng 11 2018 09:34
Khảo thí & Kiểm định chất lượng: Công văn số 5480/BGDĐT-QLCL: V/v tổ chức kỳ thi THPT quốc gia năm 2019 - Thứ tư, 05 Tháng 12 2018 09:46
Khảo thí & Kiểm định chất lượng: Công văn số 2245/SGDĐT-KT&KĐCL: V/v nhận phôi bằng tốt nghiệp THCS năm học 2017 - 2018 - Monday, 03 Tháng 12 2018 14:49

=========== THÔNG BÁO ============


DOWNLOAD
- Chuyên Đề Đổi mới Phương pháp dạy học Cụm Vũng Tàu: Tại đây...
- Chuyên Đề Đổi mới Phương pháp dạy học Cụm Xuyên Mộc - Đất Đỏ: Tại đây...

Thông tin Bổ nhiệm công chức tháng 10/2018:

1. Điều động và bổ nhiệm bà Lữ Thị Trà Giang - Hiệu trưởng trường THPT Minh Đạm giữ chức vụ Hiệu trưởng THPT Chuyên Lê Quý Đôn từ ngày 01/11/2018 theo Quyết định số 1057/QĐ-SGDĐT ngày 31/10/2018.
2. Bổ nhiệm ông Huỳnh Tấn Phúc - PGD Trung tâm GDTX Xuyên Mộc giữ chức vụ Giám đốc Trung tâm GDTX Xuyên Mộc từ ngày 18/09/2018 theo Quyết định số 898/QĐ-SGDĐT ngày 18/09/2018.

KHẨN:
 * Phần mềm Cơ sở dữ liệu CSDL.MOET.GOV.VN Bộ GD&ĐT đã mở lại năm học 2018-2019  đề nghị các đơn vị Phòng GD&ĐT huyện, TX, TP và đơn vị trực thuộc Sở vào địa chỉ http://csdl.moet.gov.vn/ đọc văn bản hướng dẫn và triển khai thực hiện theo chỉ đạo của Bộ GD&ĐT. Hạn chót nộp báo cáo đầu năm 30/10/2018. Trân trọng!
------------------------------------------
* Công văn số 1939/SGDĐT-TCCB&CNTT ngày 15/10/2018 nhắc nhở thực hiện báo cáo dữ liệu đầu NH 2018-2019

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

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

Dichvucong

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

HoiDap2017

DỰ THẢO LUẬT CẦN XIN Ý KIẾN CÔNG DÂN

ykien

QUẢN LÝ NHÂN SỰ PMIS

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

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

BVU-tuyen-sinh2018


TS2018_CDSP01


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ề ...

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 TCCB&CNTT-02543541500

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 nay15540
mod_vvisit_counterHôm qua72891
mod_vvisit_counterTuần này15540
mod_vvisit_counterTuần trước149470
mod_vvisit_counterTháng này276083
mod_vvisit_counterTháng trước346199
mod_vvisit_counterTất cả45984170
Hiện có 378 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)