Thứ tư, Ngày 20 Tháng 2 Năm 2019
Chào mừng năm mới Xuân Kỷ Hợi 2019!
JV color JV color JV color
Joomla Templates and Joomla Extensions by JoomlaVision.Com
  • Truy Cập Tin Nhanh
Quản lý chất lượng: Công văn số 86/QLCL-QLT: V/v thông báo kết quả thi chon HSG quốc gia THPT 2019 - Thứ năm, 14 Tháng 2 2019 08:45
Giáo Dục Trung Học - Thường xuyên: Công văn số 266/SGDĐT-GDTrHTX: V/v đôn đốc báo cáo theo công văn của Sở GDĐT - Thứ tư, 30 Tháng 1 2019 08:56
Kế hoạch tài chính: Công văn số 236/SGDĐT-KHTC: V/v báo cáo dữ liệu phục vụ KTNN năm 2019 - Monday, 28 Tháng 1 2019 15:14
Giáo Dục Trung Học - Thường xuyên: Công văn số 247/SGDĐT-GDTrHTX: V/v điều chỉnh Cộng sự tiếng Nhật năm học 2018 - 2019 - Monday, 28 Tháng 1 2019 15:11
Giáo Dục Trung Học - Thường xuyên: Quyết định số 121/QĐ-SGDĐT: V/v kiện toàn Hội đồng bộ môn THPT, THCS cấp tỉnh Nhiệm kỳ 2015-2020 - Thứ năm, 24 Tháng 1 2019 15:18

TIN TUYỂN DỤNG VIÊN CHỨC GIÁO DỤC 2018-2019

newTrang thông tin tuyển dụng:

Văn bản đã ban hành:
- Số: 2350/TB-SGDĐT, ngày 18 tháng 12 năm 2018 Thông báo V/v tuyển dụng viên chức các đơn vị trực thuộc Sở Giáo dục và Đào tạo năm học 2018-2019

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

Thông tin Bổ nhiệm công chức tháng 01/2019:
1. Bổ nhiệm ông Nguyễn Đức Danh giữ chức vụ Hiệu trưởng trường THPT Trần Phú, thời gian giữ chức vụ kể từ ngày 16/02/2019 (Quyết định số 111/QĐ-SGDĐT ngày 21/01/2019).
2. Bổ nhiệm lại ông Đinh Ngọc Đức giữ chức vụ Hiệu trưởng trường THPT Trần Hưng Đạo, thời gian giữ chức vụ kể từ ngày 21/11/2018 (Quyết định số 110/QĐ-SGDĐT ngày 21/01/2019)
Thông tin Bổ nhiệm công chức tháng 12/2018:
1. Điều động và bổ nhiệm ông Nguyễn Hữu Tâm chức vụ Chánh văn phòng Sở GD&ĐT giữ chức vụ Trưởng phòng TCCB Sở GD&ĐT.
2. Điều động và bổ nhiệm ông Lê Văn Tuyền chức vụ Trưởng phòng Chính trị, tư tưởng Sở GD&ĐT giữ chức vụ Chánh văn phòng Sở GD&ĐT.
3. Điều động và bổ nhiệm ông Ngô Minh Hùng chức vụ Trưởng phòng GDTH Sở GD&ĐT giữ chức vụ Trưởng phòng KHTC Sở GD&ĐT.
4. Điều động và bổ nhiệm ông Lưu Thanh Tú chức vụ Phó Trưởng phòng GDTrH Sở GD&ĐT giữ chức vụ Trưởng phòng GDTrHTX Sở GD&ĐT.
5. Điều động và bổ nhiệm bà Hà Thị Thanh Thuận chức vụ Trưởng phòng GDMN Sở GD&ĐT giữ chức vụ Trưởng phòng GDMNTH Sở GD&ĐT.
6. Điều động và bổ nhiệm ông Phan Sơn Trường chức vụ Trưởng phòng GDTX-CN Sở GD&ĐT giữ chức vụ Trưởng phòng QLCL Sở GD&ĐT.

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 nay15073
mod_vvisit_counterHôm qua22240
mod_vvisit_counterTuần này37313
mod_vvisit_counterTuần trước142733
mod_vvisit_counterTháng này198838
mod_vvisit_counterTháng trước551099
mod_vvisit_counterTất cả46891261
Hiện có 499 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)