teen HẢI PHÒNG có bài toán khó nhờ các bạn trường NGUYỄN VĂN LINH gải hộ

CHÀO BÀ CON TRONG CHUYÊN MỤC LỚP CHUYÊN TIN CỦA TRƯỜNG NGUYỄN VĂN LINH
TUI LÀ MỘT TEEN CỦA TRƯỜNG THPT AN LÃO TP HẢI PHÒNG
tui có bài này khó quá ko làm được nên nhờ bà con làm hộ
ĐỀ BÀI
viết chương trình tìm số chữ số đầu tiên lớn nhất tạo thành dãy đơn điệu của dãy n cho trước
dãy đơn điệu là dãy tăng giảm hoặc giảm tăng vd: 4353412 hoặc 5924173
số chữ số đầu tiên lớn nhất tạo thành dãy đơn điệu của dãy n: 21837612736 là 6 chữ số
mong các bạn giúp đỡ
thanks.

Bạn viết rõ cái đề cái!

ĐỀ BÀI: CHO TRƯỚC MÔT DÃY SỐ NGUYÊN DƯƠNG N. HÃY VIẾT CHƯƠNG TRÌNH TÌM SỐ CHỮ SỐ ĐẦU TIÊN LỚN NHẤT TẠO THÀNH SỐ ĐƠN ĐIỆU

Còn số đơn điệu là dãy số tăng giảm hoặc giảm tăng vd: 4353412 hoặc 5924173
giả sử cho dãy n: 1856372287 thì số chữ số đầu tiên lớn nhất tạo thành số đơn điệu của dãy đã cho là 7 số và các số đó là 1856372. còn những số ở sau thì ko cần quan tâm
tui cho ví dụ thế đã rõ ràng chưa
TUI CÓ QUEN MỘT BẠN CÓ TÊN LÀ LITTLELEE VÀ ĐƯỢC BẠN ĐÓ GIỚI THIỆU ĐẾN DIỄN ĐÀN NÀY

Rất đơn giản. Như mình nói hôm trước, đầu tiên chuyển số sang chuỗi. Bạn tạo 1 hàm kiểm tra một chuỗi có phải là đơn điệu hay ko. Tuy nhiên có cải tiến là chỉ cần chỉ số của s thôi, ko cần phải đưa luôn 1 xâu vô. Hàm như sau:

Code:

function ktdd(j:integer):boolean;
 var i:integer;
 begin
  ktdd:=true;
  i:=1;
  while (s[i]<s[i+1])and(i<j) do inc(i);
  if i=j then begin ktdd:=false; exit; end;
  while (s[i]>s[i+1])and(i<j) do inc(i);
  if i=j then exit;

  while (s[i]>s[i+1])and(i<j) do inc(i);
  if i=length(s) then begin ktdd:=false; exit; end;
  while (s[i]<s[i+1])and(i<j) do inc(i);
  if i<j then begin ktdd:=false; exit; end;
 end;

Có hàm trên rồi thì dễ thôi. trong chương trình chính

k:=length(s)+1;
repeat
k:=k-1;
until ktdd(k);