Trang 3 / 34 FirstFirst 1234568 ... LastLast
Hiển thị kết quả từ 21 đến 30 / 334
  1. #21
    Tham gia
    01-01-2008
    Location
    HCM
    Bài viết
    1,059
    Like
    5
    Thanked 15 Times in 11 Posts
    Quote Được gửi bởi The_Phenomenal View Post
    ChẢ LÀ MỚi VÀo HỌc Pascal ThÌ Ông ThẦy Giao Cho TỚ BÀi TẬp NÀy VỀ NhÀ:

    Cho MỘt DÃy SỐ NguyÊn GỒm N PhẦn TỬ ( N NhẬp TỪ BÀn PhÍm):
    A/ XuẤt Ra SỐ LỚn NhẤt VÀ SỐ NhỎ NhẤt Trong DÃy SỐ TrÊn
    B/ SẮp XẾp DÃy SỐ Theo ThỨ TỰ GiẢm DẦn
    C/ XuẤt Ra DÃy SỐ Khi SẮp XẾp

    VÌ LÀ LÍnh MỚi NÊn TỚ ChỈ BiẾt Đc MẤy CÁi ĐẦu ThÔi ChỨ PhẦn GiẢi QuyẾt Ở GiỮa ThÌ KhÓ ThẬt!!! Mong Ai Cao Tay CÓ ThỂ GiÚp TỚ NhÉ!!! Thank NhiỀu
    Dễ thế
    - Câu đầu tứ dùng 1 biến tạm và cho nó là max(hoặc min) rồi so sánh với từng phần tử kể từ sau nó trở đi, cái nào có giá trị lớn hơn (hoặc nhỏ hơn) thì cho nó là max(hoặc min) rồi so sánh tiếp (dùng mảng cho dễ).
    - Mở sách giáo khoa lớp 10 (hình như thế) có sơ đồ khối hướng dẫn giải thuật toán sắp xếp tăng dần, rồi dùng 1 biến phụ để chứa mản g đã săp xếp đó, xong rồi gán lại vào biếng chính cũng là mảng theo cách sau : cho nó lặp ngược, rồi phần tử cuối cùng của mảng phụ sẽ đưa vào phần tử đầu của mảng chính. Nếu khá hơn, có thể dùng phuơng pháp nổi bọt ngược để sắp xếp (bubble float )
    - Lặp thuận tới khi hết mảng rồi xuất lần lượt ra, dễ mà

  2. #22
    Tham gia
    30-04-2008
    Bài viết
    25
    Like
    0
    Thanked 0 Times in 0 Posts

    Rất hay ! Ket Tinh cua Tin Hoc 11 nam nay !

    mình học dc một số kỹ thuật lập trình và nhờ sáng tạo minh đã cho ra đời một phiên bản BETA của chương trình hack lấy XU Boom Online mà đông đảo các bạn đều nghe nói đến !
    Mình kết hợp Pascal cà C++ và VisualBasic đã đánh lừa dc một số phần mềm an ninh của VNGAME đã lấy tất cả các mã nguồn GAME của họ. Rồi chiết khấu thành bản hack hoàn mỹ như phin viễn tưởng. Tạo liên kết giữa các trò của VNGAME lại với nhau và khi nạp thẻ vào một trò thì tất cả các ACC của trò còn lại đều nhận dc XU hay KNB. Nhưng quả thật, làm dc những thành quả đó mình mất nhiều thời gian lắm khoảng 2 tháng cắm cụi làm. Đây là cảnh báo cho VNGAME:
    Nếu không qunr lý chặt chẽ nhân viên của công ty mình thì xin chắc chắn rằng một ngày nào đó VNGAME sạt nghiệp. VINASAT 1 đã phóng lên thì tôi càng dễ làm các bản hack hơn vì nó hộ trợ nhiều cái ví dụ như: dùng di động có thể chuyển tiền trong ngân hàng => USD hoặc EURO để tiêu sài. Như cao thanh lâm đã làm trong phim. Đây chỉ là ví dụ nên xin các đồng bào đừng nóng.co gì xin liên hệ tại địa chỉ 22 ngõ 8/7 tầng 18 địa ngục nếu không tìm dc thì hỏi diêm vương là biết tôi. Tôi là con trai của diêm vương ! ha ha ha ha !

  3. #23
    Tham gia
    01-01-2008
    Location
    HCM
    Bài viết
    1,059
    Like
    5
    Thanked 15 Times in 11 Posts
    Quote Được gửi bởi chooco_pie View Post
    giải giùm My bài nỳ theo pascal hay C cũng được nhé
    Đề nà :
    Cho mảng số thực vuông có tên là a có kích thước 2n x 2n .hãy lập các mảng mới bằng các khối vuông có kích thước n x n của mảng a theo cách sau : mảng ban đầu được cho trong tập tin nhom2.dat.Kết quả được lưu trong tập tin có tên ketqua2.dat

    Hồi âm sớm giúp bé nhé ...
    rất mong được làm quen với bạn
    yahoo My nè : chooco_pie
    giải tỉ mỉ nhé, vì mới học nên chưa rành đâu á
    Đã hứa là sẽ làm mà, lo gì mà lo thế )

  4. #24
    Tham gia
    08-11-2004
    Bài viết
    1,024
    Like
    0
    Thanked 21 Times in 5 Posts
    Nhớ bài này mình cho bạn My ấy thuật toán rồi mà

  5. #25
    Tham gia
    23-03-2008
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    Không cần dùng chương trình con đâu
    chỉ cần câu lệnh if-then chắc cũng ổn rồi

  6. #26
    Tham gia
    15-05-2008
    Bài viết
    6
    Like
    0
    Thanked 0 Times in 0 Posts

    Cần chú ý ! cho mình hỏi tí về cách biểu diễn kí tự nhé.

    đề nè: thay thế tất cả cụm từ 'anh' = cụm kí tự 'em'
    vd: anh va toi..
    ---> em va toi..

    thì phải làm sao?

  7. #27
    Tham gia
    15-03-2008
    Bài viết
    40
    Like
    0
    Thanked 0 Times in 0 Posts

    Vui lắm !

    Ai có thể làm cho em bài này không:
    Tính 100! .............HẾt^_^
    nhanh dùm em cái nha thank trước!

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

    Quote Được gửi bởi The_Phenomenal View Post
    ChẢ LÀ MỚi VÀo HỌc Pascal ThÌ Ông ThẦy Giao Cho TỚ BÀi TẬp NÀy VỀ NhÀ:

    Cho MỘt DÃy SỐ NguyÊn GỒm N PhẦn TỬ ( N NhẬp TỪ BÀn PhÍm):
    A/ XuẤt Ra SỐ LỚn NhẤt VÀ SỐ NhỎ NhẤt Trong DÃy SỐ TrÊn
    B/ SẮp XẾp DÃy SỐ Theo ThỨ TỰ GiẢm DẦn
    C/ XuẤt Ra DÃy SỐ Khi SẮp XẾp

    VÌ LÀ LÍnh MỚi NÊn TỚ ChỈ BiẾt Đc MẤy CÁi ĐẦu ThÔi ChỨ PhẦn GiẢi QuyẾt Ở GiỮa ThÌ KhÓ ThẬt!!! Mong Ai Cao Tay CÓ ThỂ GiÚp TỚ NhÉ!!! Thank NhiỀu
    Bài Giải Chi tiết nè:
    Program baigiai;
    uses:crt;
    var a:array[1..100] of integer;
    i,n,max,min,tg:integer;
    BEGIN
    write (' nhap so luong phan Tu? N:=');
    readln(n);
    For i:=1 to n do
    begin
    write('nhap phan tu a[',i,'] =');
    readln(a[i]);
    end;
    max:=a[1]; min:=a[1];
    (* tìm số lớn nhất và nhỏ nhất*)
    for i:=1 to n do
    begin
    if a[i]>max then a[i]:=max;
    If a[i] < min then a[i]:=min;
    end;
    writeln(' số lớn nhất mảng là: ',max);
    writeln('số nhỏ nhất mảng là: ',min);
    (*-----------------------------------*)
    (* sắp xếp nè*)
    for i:=1 to n-1 do
    if a[i]>a[i+1] then
    begin
    tg:=a[i];
    a[i]:=a[i+1];
    a[i+1]:=a[i];
    end;
    (----------------------------------------------*)
    (* Xuất ra dãy số khi sắp xếp nè:*)
    for i:=1 to n do
    write(a[i]:2);
    (*--------------------------------------------*)
    readln
    END.


    Còn phần hướng dẫn về thuật giải bạn xem bên trên nha ! có gì sai sót mong các tiền bối lượng thứ cho Thank!!!!

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

    Quote Được gửi bởi mousegold View Post
    đề nè: thay thế tất cả cụm từ 'anh' = cụm kí tự 'em'
    vd: anh va toi..
    ---> em va toi..

    thì phải làm sao?
    xài đến hàm Pos('anh',xs);
    bài giải chi tiết nè:
    PROGRAM bailam;
    uses crt;
    var i:integer;
    BEGIN
    Write('nhập xâu S');
    readln(S);
    i:=pos('anh,S);
    While i<>0 then
    begin
    delete(s,i,3);
    Insert('em',s,i);
    i:=pos('anh',s);
    end;
    Write(s);
    readln

    Hi vọng là đúng!
    END.
    Được sửa bởi Nhoc_chuoi lúc 22:09 ngày 27-05-2008 Reason: Bổ sung bài viết

  8. #28
    Tham gia
    29-05-2008
    Bài viết
    9
    Like
    0
    Thanked 0 Times in 0 Posts
    Có bạn nào có Đề thi tin học không chuyên BRVT và các tỉnh khác một số năm trước không ? Cho mình với. cám ơn các bạn trước nha !

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

    Có nhiều cách làm bài này. Mình nghĩ cách làm của Chopes là được rồi nhưng có lẽ chưa tối ưu lắm. Có thể làm = cách
    Xet:=TRUE;
    FOR i:=2 TO n-1 DO
    IF A[i-1]+A[i+1]<>(A[i]/2) THEN Xet:=FALSE;
    ...
    Mình nghĩ là thế.
    Được sửa bởi can8818 lúc 08:39 ngày 30-05-2008 Reason: Bổ sung bài viết

  9. #29
    Tham gia
    15-03-2008
    Bài viết
    40
    Like
    0
    Thanked 0 Times in 0 Posts
    ko ai giúp em à LAm thế nào để tính 100! vâyyyyyyyyyyyyyy

  10. #30
    Tham gia
    24-05-2008
    Bài viết
    16
    Like
    0
    Thanked 1 Time in 1 Post
    Đây là đoạn code tính giai thừa của những số n<140, kết quả có thể đạt 150000 chữ số
    Code:
    Var a:array[1..150000] of byte;
        n,l:word;
        i:byte;
    Function Nhan(x:word):longint;
    var j,nho:byte;
        tich:longint;
      Begin
         Nho:=0;
         Tich:=0;
         For j:= 1 to l do
            Begin
                 tich:=a[j]*x+nho;
                 nho:=0;
                 a[j]:=tich mod 10;
                 nho:=tich div 10;
            End;
         While nho <> 0 do
            Begin
                 inc(l);
                 a[l]:= nho mod 10;
                 nho:=nho div 10;
            End;
      end;
    BEGIN
         Write('n= ');
         readln(n);
         a[1]:=1;
         l:=1;
         for i := 1 to n do
             nhan(i);
         for i:= l downto 1 do
             write(a[i]);
         readln;
    END.

Trang 3 / 34 FirstFirst 1234568 ... LastLast

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •