Chào mừng quý vị đến với Thư viện tài nguyên giáo dục Hậu Giang.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
day con tang dai nhat
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Nguyễn Vũ Tạo (trang riêng)
Ngày gửi: 10h:41' 09-06-2018
Dung lượng: 26.5 KB
Số lượt tải: 127
Nguồn:
Người gửi: Nguyễn Vũ Tạo (trang riêng)
Ngày gửi: 10h:41' 09-06-2018
Dung lượng: 26.5 KB
Số lượt tải: 127
Số lượt thích:
0 người
VCT nhập vào một dãy gồm nhiều số. Xuất ra mà nhình dãy con tăng dài nhất
program Day_con_tang_dan;
uses crt;
var j,i,kt,cs,max,n:integer;s:string;
a,b,c:array[0..100] of integer;
begin
clrscr;
write(`nhap n=`);readln(n);
for i:=1 to n do
begin
write(`a[`,i,`]=`); readln(a[i]);
end;
for i:=1 to n do
if a[i]>=a[i+1] then b[i]:=1 else b[i]:=0;
for i:=1 to n do
begin
kt:=1;
for j:=1 to n do
if (kt=1) and (b[j]=1) then c[i]:=c[i]+1 else kt:=0;
end;
max:=c[0];
for i:=1 to n do
if maxbegin
max:=c[i];
cs:=i;
end;
write(`day con giam dai nhat`);
for i:=cs to cs+max do
write(a[i]:5);
readln;end.
program Day_con_tang_dan;
uses crt;
var j,i,kt,cs,max,n:integer;s:string;
a,b,c:array[0..100] of integer;
begin
clrscr;
write(`nhap n=`);readln(n);
for i:=1 to n do
begin
write(`a[`,i,`]=`); readln(a[i]);
end;
for i:=1 to n do
if a[i]>=a[i+1] then b[i]:=1 else b[i]:=0;
for i:=1 to n do
begin
kt:=1;
for j:=1 to n do
if (kt=1) and (b[j]=1) then c[i]:=c[i]+1 else kt:=0;
end;
max:=c[0];
for i:=1 to n do
if max
max:=c[i];
cs:=i;
end;
write(`day con giam dai nhat`);
for i:=cs to cs+max do
write(a[i]:5);
readln;end.
Các ý kiến mới nhất