kết quả từ 1 tới 10 trên 10

cho e xin code Pascal bài này, mai e học r!!!

  1. #1
    Ðến Từ
    Hưng Yên
    Thành Viên Thứ: 389693
    Bài gửi
    37
    Quick reply to this message Trả lời       


  2. #2
    Ðến Từ
    Hà Tĩnh
    Thành Viên Thứ: 392819
    Giới tính: Nam
    Bài gửi
    710

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Bạn search Google đi
    Hãy Thanks đi nếu bài viết có ích nhé các Member !
    Cảm ơn!







  3. Đã cảm ơn Tiy:


  4. #3
    Ðến Từ
    Hưng Yên
    Thành Viên Thứ: 389693
    Bài gửi
    37

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Trích Nguyên văn bởi I love Windows 10 Xem bài viết
    Bạn search Google đi
    Search ko xong, bài nào cx lỗi cả

    - - - Updated - - -

    Có ai giỏi jup mik qua teamview lun

  5. #4
    Ðến Từ
    Hưng Yên
    Thành Viên Thứ: 389693
    Bài gửi
    37

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    nhanh di moi nguoi

  6. #5
    Ðến Từ
    Hà Tĩnh
    Thành Viên Thứ: 392819
    Giới tính: Nam
    Bài gửi
    710

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    thử code anh mới tìm dc nhé
    Mã:
    begin
    for i:=1 to n do
    if a<a[i+1] then b:=1 
    else b=0;
    
    for i:=1 to n do
    begin
    kt:=1;
    for j:=i to n do
    if (kt=1) and (b[j]=1) then c:=c+1
    else kt:=0;
    end; 
    max:=c[1];
    for i:=1 to n do
    if max<c then
    begin 
    max:=c;
    cs:=i;
    end;
    writeln('day con dai nhat là')
    for i:=cs to cs+max do write(a:5

  7. Đã cảm ơn Tiy:


  8. #6
    Ðến Từ
    Hưng Yên
    Thành Viên Thứ: 389693
    Bài gửi
    37

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Trích Nguyên văn bởi I love Windows 10 Xem bài viết
    Nhớ thanks các bài viết của mk nhé
    thử code anh mới tìm dc nhé
    begin
    for i:=1 to n do
    if a<a[i+1] then b:=1
    else b=0;

    for i:=1 to n do
    begin
    kt:=1;
    for j:=i to n do
    if (kt=1) and (b[j]=1) then c:=c+1
    else kt:=0;
    end;
    max:=c[1];
    for i:=1 to n do
    if max<c then
    begin
    max:=c;
    cs:=i;
    end;
    writeln('day con dai nhat là')
    for i:=cs to cs+max do write(a:5
    ae mik tự nhiên thân thiết nhỉ

  9. #7
    Ðến Từ
    Hà Tĩnh
    Thành Viên Thứ: 392819
    Giới tính: Nam
    Bài gửi
    710

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Trích Nguyên văn bởi sonhoctin Xem bài viết
    ae mik tự nhiên thân thiết nhỉ
    Ờ. thân thiết quasv
    Nhớ lên nói với cô là e gian lận nha v

  10. Đã cảm ơn Tiy:


  11. #8
    Ðến Từ
    Hưng Yên
    Thành Viên Thứ: 389693
    Bài gửi
    37

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Trích Nguyên văn bởi I love Windows 10 Xem bài viết
    Ờ. thân thiết quasv
    Nhớ lên nói với cô là e gian lận nha v
    trung thực đấy!

  12. #9
    Ðến Từ
    Hà Tĩnh
    Thành Viên Thứ: 392819
    Giới tính: Nam
    Bài gửi
    710

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Trích Nguyên văn bởi sonhoctin Xem bài viết
    trung thực đấy!
    Bít rồi thưa em gái
    khi nào mk hỏi j nhớ giúp nha

  13. Đã cảm ơn Tiy:


  14. #10
    Ðến Từ
    Cần Thơ
    Thành Viên Thứ: 300468
    Giới tính: Nam
    Bài gửi
    1.871

    Reply: cho e xin code Pascal bài này, mai e học r!!!

    Không làm loãn topic quá trớn nhé !
    Click >