THPT Chuyên Vị Thanh

Số 04 Đường Đồ Chiểu TX Vị Thanh - Tỉnh Hậu Giang


You are not connected. Please login or register

Câu đố kì 2 - tuyển chọn HSG cấp trường

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

Admin


Admin
Admin
Dãy con
Cho dãy số nguyên dương {aN} = {a1, a2, …, aN} (N<=1000). Tìm dãy con nhiều phần tử nhất (không nhất thiết liên tiếp và có ít nhất 3 phần tử) của dãy đã cho sao cho bất kì 3 số hạng khác nhau của dãy con: ai, aj, ak đều có ai + aj + ak không lớn hơn tổng các số hạng còn lại của dãy con.
Dữ liệu vào: ‘DAYCON.INP’
Dòng 1: số N là số các phần tử của dãy {aN}
Dòng 2: gồm N số nguyên dương ai , i = 1..N, các ai không lớn hơn 106.
Dữ liệu ra: ‘DAYCON.OUT’
Một số nguyên duy nhất là số lượng phần tử của dãy con tìm được.
Ví dụ:
DAYCON.INP
9
6 5 22 9 8 10 7 11 4
DAYCON.OUT
8

1. Nộp bài 01 file BL.pas
2. Bạn nào giải tốt, đúng đắn sẽ được tuyển chọn trực tiếp vào đội tuyển học sinh giỏi tin học của trường dự thi cấp tỉnh.
3. Thời hạn cuối cùng nhận bài: 02.11.2008
4. Email nhận bài: thptcvtclbtoantin@gmail.com lehuukyquan@yaoo.com.vn hoặc thùng thư CLB Toán – Tin


_________________
Tài khoản này đã bị xóa, không chịu trách nhiệm về diễn đàn này nữa...Thân ái!
Xem lý lịch thành viên

Khách v


Khách viếng thăm
Bài này tui biết nè. Bảo đảm luôn. Thử nhé:
1. Tạo file input đã
2. Chương trình con gồm có:
* Đọc dữ liệu Input
* Sắp xếp tăng cái đã
* Xử lí bằng cách giảm dần giá trị tổng
* Đưa ra kết quả
3. Tui đã hướng dẫn - đáng lẽ giải luôn nhưng "mần biếng mần" quá!
Chừng nào ông thầy cho tui ASMEDIT tui chơi tiếp - bằng không giận ông thầy 5 phút luôn...sp cho con đi mà, con không làm hại nhân thế đâu mà, con ngoan lắm mà, sp ui...

[Þ]É…Ú†™

avatar
Thành viên cấp 4
Thành viên cấp  4
hEM hỈu zÌ hẾt Razz

Xem lý lịch thành viên

Khách v


Khách viếng thăm
Hông hiểu là bình thường đó bạn! Hiểu cái này dễ điên lắm! Nói thiệt, tui theo ông thầy riết gần điên nè! Mà cái này hay lắm đó bạn..lớp 11 có thể làm được kì 1, nhưng kì 2 này hơi bị gay cấn vì bị ông thầy chơi trò thử sai mừ! Đánh giá cục bộ để giảm dần giá trị ban đầu - cũng na ná như bài cái ba lô thôi mà...
Mà thôi, để các bạn giải chứ tui đâu còn tuổi hs mà vô đội tuyển mắc công lắm! Ai giải được nhớ chia tui vài trái me trường chuyên nhé - vì đã hướng dẫn!
Ê! TheFireStar! Lần này anh làm vậy được không?



Được sửa bởi IT man ngày Mon Oct 27, 2008 1:54 pm; sửa lần 1. (Reason for editing : Các chữ màu có ý nghĩa nhất định cho bài giải)

TheFireStar

avatar
Thành viên cấp 4
Thành viên cấp  4
Hj hj, ngẫm nhứt cả đầu mà ko hiểu cũng như ko biết . Hùi sáng kiểm tra tin học 1 tiết làm ko được nên ác cảm zới Pascal gòi


_________________


4rum ta ngày càng load lâu...

Xem lý lịch thành viên http://www.firestar.co.cc

6 Bài giải kỳ II on Sun Nov 02, 2008 10:21 am

NguyễnPhạmHồngThanh

avatar
Thành viên mới
Thành viên mới
Sau đây là bài giải kỳ II của em
const th1='d:\thanh.inp';
th2='d:\thanh.out';
var j,i,dem,n,s2:integer;
tam,s1:longint;
a:array[1..10000] of integer;
f1,f2:text;
(*----------------Nhap-----------------*)
procedure nhap;
begin
assign(f1,th1);
reset(f1);
begin
read(f1,n);
readln(f1);
s1:=0;
for i:=1 to n do
begin
read(f1,a[i]);
s1:=s1+a[i];
end;
end;
close(f1);
end;
(*---------------sap xep--------------------*)
procedure sapxep;
begin
for i:=1 to n do
for j:=i+1 to n+1 do
begin
if a[i] begin
a[i]:=a[i]+a[j];
a[j]:=a[i]-a[j];
a[i]:=a[i]-a[j];
end;
end;
assign(f2,th2);
rewrite(f2);
begin
i:=1;
begin
s2:=0;
repeat
begin
tam:=(a[i]+a[i+1]+a[i+2]);
if tam>(s1-tam) then
begin
s1:=s1-a[i];
i:=i+1;
end
else s2:=i;
end;
until (s2<>0) or (i=n);
end;
if s2=0 then write(f2,0) else
write(f2,n+1-s2);
end;
close(f2);
end;
begin
nhap;
sapxep;
end.

(*Nguyễn Phạm Hồng Thanh 10VL*)

Xem lý lịch thành viên

TheFireStar

avatar
Thành viên cấp 4
Thành viên cấp  4
Thanh code = Notepad à


_________________


4rum ta ngày càng load lâu...

Xem lý lịch thành viên http://www.firestar.co.cc

Sponsored content


Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang  Thông điệp [Trang 1 trong tổng số 1 trang]

Permissions in this forum:
Bạn không có quyền trả lời bài viết