Tìm dãy con lớn nhất các phần tử có cùng dấu của dãy số gồm n số

Tìm dãy con lớn nhất các phần tử có cùng dấu của dãy số gồm n số

Cho dãy số gồm n số. Tìm dãy con lớn nhất các phần tử có cùng dấu, (đan dấu).

Giải thuật:

Thực hiện giống nhu bài 1, chỉ thay điều kiện là M[i+1]*M[i] >0

Cài đặt:

Program Day_con2;

Var M: array[1..100] of integer;

    i,n, dau,ldau, dai,Max: integer;

Begin

     Write('Nhap so nc: '); Readln(n);

     For i:=1 to n do Begin Write('[',i,']='); Readln(M[i]); End;

     i:=0;

     Max:=1;

     dau:=1;

     dai:=1;

     ldau:=1;

     While i<=n do

     Begin

     i:=i+1;

     if M[i+1]*M[i]>0 then dai:=dai+1 else

     if dai> Max then Begin Max:=dai; ldau:=dau; dai:=0 End

     else Begin dau:=i+1; dai:=1 End;

     End;

     Write('Xau con dai:',max,' bat dau tu: ',ldau);

     Readln

End.

Nhận xét:

Hãy thực hiện bài tập trên bằng kỹ thuật vét cạn dãy con.

Bài tập cho dãy gồm n số. Tìm dãy con lớn nhất đơn điệu (liên tục tăng, giảm hoặc giảm, tăng).

Giải thuật: Dãy đang dấu nếu M[i]*M[i+1] < 0.

Cài đặt:

Giống bài giải trên

Bạn thấy bài viết này như thế nào?: 
Average: 6 (5 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Ion Docs 2 Go - Máy scan ảnh và văn bản cho iPhone, iPad

Ion Docs 2 Go - Máy scan ảnh và văn bản cho iPhone, iPad

Tại CES 2012, hãng Ion Audio đã tung ra giải pháp giúp người dùng scan được văn bản hay hình ảnh bằng thiết bị iOS

Kế hoạch hàng tỷ đô với công cụ tìm kiếm trên Facebook

Kế hoạch hàng tỷ đô với công cụ tìm kiếm trên Facebook

Chỉ trong vòng 3 tháng trở lại đây, người dùng đã thực hiện 1,5 tỷ lượt truy vấn tìm kiếm trên Facebook này mỗi ngày.

Ngày 1 -  bắt đầu học xu thế công nghệ Big Data

Ngày 1 - bắt đầu học xu thế công nghệ Big Data

Big Data đang trở thành một trong những xu hướng công nghệ được nói đến nhiều nhất. Thách thức thật sự với các tổ chức lớn là tối đa hóa khả năng của dữ liệu sẵn

Công ty diệt chuột T&C

 

Diet con trung