Trong thời gian vừa qua, người dân ở thành phố XYZ đã vui mừng chào đón sự xuất hiện của con đường ven biển, con đường được đầu tư rất nhiều kinh phí làm đường
Trong thời gian vừa qua, người dân ở thành phố XYZ đã vui mừng chào đón sự xuất hiện của con đường ven biển, con đường được đầu tư rất nhiều kinh phí làm đường và xây dựng các tào nhà đẹp nằm ở cùng 1 phía của con đường, con đường này được coi là con đường có cảnh quan đẹp nhất hành tinh. Con đường có n tòa nhà, được đánh thứ tự từ 1 đến n, tính từ đầu đường, tòa nhà thứ I có độ co là hi(i=1..n). Theo các chuyên gia kiến trúc và thẩm mĩ, đoạn đường đẹp nhất là đoạn đường mà ở đó có độ cao trung bình của các tòa nhà đúng bằng k. Yêu cầu: Em hãy tìm đoạn đường có các tòa nhà liên tiếp nhau nhiều nhất sao cho đoạn đường này là đoạn đường đẹp nhất( đọ cao trung binhg của các tòa nhà đúng bằng k). Dữ liệu vào: cho từ văn bản DDUONG.INP gồm: - Dòng thứ nhất ghi 2 số nguyên n và k (1<n<10^5;0<k<10^9); - Dòng thứ 2 ghi n số nguyên hi,h2,hn(0<hi<10^9;i=1..n). Các số trên cùng một dòng ghi cách nhau 1 khoảng trống Kết quả: Ghi vào tệp Văn bản DDUONG.OUT gồm - Dòng thứ nhất ghi 1 số nguyên u là chỉ số bắt đầu của tòa nhà thuộc đoạn đường đẹp nhất, nếu có nhiều đáp án thì ghi chỉ số u nhỏ nhất - Dòng thứ 2 ghi 1 số nguyên v là số lượng tòa nhà thuộc đoạn đường tìm được. nếu không có đoạn đường nào đẹp nhất thì ghi ra 0.
Lời giải 1 :
program lamduong;
uses crt;
var f,g:text;
A:array[1..10000] of integer;
n,i,k:integer;
procedure kt_ndl;
begin
Assign(f,'DDUONG.inp');
Assign(g,'DDUONG.out'); rewrite(g);
{ $ I - } reset(f); { $ I + } {mỗi kí hiệu bạn viết dính lại nha}
if IOresult<>0 then
begin
rewrite(f);
reset(f);
end;
readln(f,n,k);
for i:=1 to n do
read(f,A[i]);
close(f);
end;
procedure xuly;
var j,d,vt:integer;
t:longint;
begin
for i:=1 to n-1 do
begin
vt:=i; d:=1; t:=A[i];
for j:=i+1 to n do
begin
t:=t+A[j];
inc(d);
if t/d=k then
begin
writeln(g,vt);
writeln(g,d);
exit;
end;
end;
writeln(g,'Khong co');
end;
BEGIN
kt_ndl; xuly;
close(g);
end.
Thảo luận
Lời giải 2 :
uses crt;
type kmang=array[0..100] of integer;
var fi,fo:text;
n,k,i,u,v:integer;
h:kmang;
procedure khoitao;
begin
assign(Fi,'DOANDUONG.INP');
assign(fo,'DOANDUONG.out');
{$I-} reset(fi); {$I+}
if ioresult<>0 then
begin
rewrite(fi);
reset(fi);
end;
readln(fi,n,k);
for i:=1 to n do read(fi,h[i]);
close(fi); rewrite(Fo);
end;
procedure xuly;
var j,s:integer;
begin
for i:=1 to n do
begin
s:=0;
for j:=i to n do
begin
s:=s+h[j];
if (s div (j-i+1))=k then
begin
u:=i;
v:=j-i+1;
exit;
end;
end;
end;
end;
BEGIN
khoitao; xuly;
writeln(fo,u);
writeln(fo,v);
close(fo);
END.
Chúc bạn học tốt.
Cho mik xin câu trả lời hay nhất.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, 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 (ảo). Với cách hiểu hiện nay, 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.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK