Tìm kiếm:

Em tính thi vào DH CNTT - DHQG TPHCM mà nhìn kiểu này thấy mai sau khó sống quá... Tiền thì càng ngày càng mất giá... Giá trị hàng hóa lại tăng đến đáng sợ.. Nếu 1 tháng 200-250USD chắc ko đủ tiền...

Close Topic, please!!

Lại gặp mấy cha này... nếu mà ko có lòng thành giúp người khác thì đừng có reply nhé... Mấy bác giỏi rồi thì đừng có mà lên mặt. .. Ghét thái độ

Program cau2;
var a:array[1..30] of integer;
...

Phương pháp quy hoạch động ngắn nhưng nếu nhưng người mới làm thì chắc ko năm rõ dc,.. với bài này mình nghỉ nên dùng 2 mảng A và B... Đầu tiên bạn tìm 1 đoạn dài nhất (dùng biến đếm) sau đó lưu các...

Cho dãy số A gồm n phần tử a1,a2,....an
Tìm đoạn con tăng dần dài nhất trong dãy...

Nói hay quá.. nhưng làm sai mất tiêu rồi... Vui lòng kiểm tra lại nhé... =))

Em nghĩ ta sẽ có 1 cách khác.. Nêu ai học rành về các hàm cơ bản sẽ hiểu dễ dàng hơn.. tuy phức tạp hơn nhưng đúng
...

Thôi giúp người ta đi... Tui cũng mới học nên thông cảm nếu có j sai nha
var a,b,c,tong:integer;
tb:real;
Procedure s(x,y,z:integer);
Begin
tong:=x+y+z;
tb:=tong/3;
end;
Begin...

Mình muốn viết 1 chương trình mà sử dụng thủ tục hàm chương trình con.. Mọi người giúp dùm nhé...
đề bài: Cho 1 dãy xâu.. hãy biến xâu này thành xâu toàn ký tự là chữ in hoa... yêu cầu sử dụng thủ...

thank nhé... close topic này dc rồi :)

[=========> Bổ sung bài viết <=========]

cách 1:
cho i chạy từ 1 đến n, nếu A[i]<A[i+1] thì t:=t+1;
If t=n then writeln('dung')
else...

Cảm ơn bạn và mình muốn hỏi thêm 1 ý nữa là nếu kiểm tra đúng dãy này thì nó dc sắp xếp theo tăng hay giảm