Tìm kiếm:

Type: Posts; User: lehang_gb1; Keyword(s):

Trang 1 / 33 1 2 3 4

Tìm kiếm: Search took 0.04 seconds; generated 4 minute(s) ago.

  1. Trả lời
    0
    Lần xem
    1,248

    Cần giúp gấp, làm giúp mình bài này!

    Cho dãy n số nguyên dương a1,a2,…,an. Một dãy con của dãy nói trên là dãy được lập từ dãy đã cho bằng cách bỏ đi một số số hạng của dãy và giữ nguyên trật tự các số còn lại. Hãy tìm một dãy con thỏa...
  2. Trả lời
    0
    Lần xem
    1,099

    Làm gúp mình bài này nhé!

    Một tệp văn bản tên TRAIHE.DAT thể hiện sơ đồ bố trí các lều của một trại hè do các chi đoàn dựng trại nhân dịp chào mừng ngày 26 - 3. Mỗi lều có hình tam giác cân đỉnh hướng lên phía trên, các dòng...
  3. Chủ đề: Quick sort

    lehang_gb1
    Trả lời
    5
    Lần xem
    30,882

    {Sap xep nhanh Quick sort} type...

    {Sap xep nhanh Quick sort}

    type mang=array[1..100] of integer;
    Var A:mang;
    i,N,x:integer;
    procedure phandoan(l,r:integer);
    Var i,j,x,w:integer;
    Begin
    x:=A[(l+r) div 2];
    i:=l;j:=r;
  4. Trả lời
    6
    Lần xem
    1,752

    Tính tổng của 2 số cực lớn

    Tính tổng của 2 số cực lớn(mỗi số không ít hơn 45 chữ số}
  5. Trả lời
    2
    Lần xem
    7,854

    {hàm đệ quy tìm kiếm nhị phân} {Tim kiem nhi...

    {hàm đệ quy tìm kiếm nhị phân}
    {Tim kiem nhi phan bang de quy}
    {Tim kiem nhi phan bang de quy}
    Type mang=array[1..100] of integer;
    Var t,i,N,dau,cuoi,k,cs:integer;
    A:mang;
    function...
  6. Trả lời
    2
    Lần xem
    7,854

    {Tim kiem nhi phan bang de quy} Type...

    {Tim kiem nhi phan bang de quy}
    Type mang=array[1..100] of integer;
    Var i,N,dau,cuoi,k:integer;
    A:mang;
    procedure tknp(Var A:mang;dau,cuoi,k:integer);
    Var giua:integer;
    Begin
    ...
  7. Trả lời
    2
    Lần xem
    1,770

    Trông cách làm của bạn phức tạp thế, mình nghĩ...

    Trông cách làm của bạn phức tạp thế, mình nghĩ đếm số từ thì đơn giản, cộng thêm dấu cách vào cuối xâu rồi kiểm tra từ đầu xâu đến cuối xâu, nếu S[i]<>' ' và S[i+1]=' ' thì tăng đếm.

    Var S:string;...
  8. Trả lời
    3
    Lần xem
    1,240

    {Nhap vao 1 xau, thong bao ra man hinh so luong...

    {Nhap vao 1 xau, thong bao ra man hinh so luong cua xau
    khong thuoc bang chu cai}
    Var S:string;
    i,d:integer;
    Begin
    write('Nhap vao 1 xau:'); Readln(S);
    For i:=1 to length(S) do...
  9. Trả lời
    13
    Lần xem
    2,375

    {Tim tu dai nhat trong chuoi} Var f1,f2:text;...

    {Tim tu dai nhat trong chuoi}
    Var f1,f2:text;
    i,d:integer;
    S1,S,max:string;
    Begin
    assign(f1,'dulieu.int');
    Reset(f1);
    Readln(f1,S);
    assign(f2,'dulieu.out');
    ...
  10. {bài 3 chuyển 1 số nguyên N sang số ở hệ nhị...

    {bài 3 chuyển 1 số nguyên N sang số ở hệ nhị phân. Ta kết hợp với kiểu xâu}

    {Doi 1 so nguyen N sang so nhi phan}
    Var N,du:integer;S:string;
    Begin
    write('Nhap vao so nguyen duong N:');...
Hiển thị kết quả từ 1 đến 10 / 323
Trang 1 / 33 1 2 3 4