Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Mời tài trợ sinh nhật diễn đàn 8 năm

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Đăng ký tham gia offline VN-Zoom 8 năm tại HCM

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Vn-Zoom.com tham gia họp báo HK Phone ra mắt iRevo

Tuyển BQT VN-Zoom
Trang 2/103 đầuđầu 1 2 3 4 12 52 102 ... cuốicuối
kết quả từ 16 tới 30 trên 1533
  1. #16
    vanchien127's Avatar
    vanchien127 vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Jun 2011
    Bài
    83
    Cảm ơn
    97
    Điểm
    31/18 bài viết
    VR power
    0

    Default

    Cho mình hỏi làm sao gi được cái code và đoạn Trích có hình như bạn thế

    ---------- Bài thêm lúc 19:28 ---------- Bài trước là lúc 18:42 ----------

    Uses crt;
    Var
    a:array[1..100] of longint;
    i:longint;
    {-------------------------------------------}
    Procedure Inra;
    Begin
    For i:=1 to 9 do
    Write(a[i],' ');
    Writeln;
    End;
    {-------------------------------------------}
    Procedure Try(k:longint);
    Var
    i:longint;
    Begin
    If k>9 then Inra
    Else
    For i:=1 to 9 do
    Begin
    a[k]:=i;
    Try(k+1);
    End;
    End;
    {-------------------------------------------}
    BEGIN
    Clrscr;
    Try(1);
    Readln;
    END.
    Sao bài này không có liệt kê ra

    ---------- Bài thêm lúc 19:33 ---------- Bài trước là lúc 19:28 ----------

    Mình thử làm bài này bằng phương pháp Sinh Thấy chạy thì được nhưng chưa biết có đủ số tập con hay không
    Mong mấy ban giúp đỡ :
    PHP Code:
    PROGRAM lietketapcon;
    USES crt;
    CONST 
    max=30;
    VAR 
    X:ARRAY[1..maxOF BYTE;
        
    A:ARRAY[1..maxOF INTEGER;
        
    i,n,j,dem:WORD;
    BEGIN
        Write
    ('nhap so n');readln(n);
        FOR 
    i:=2 TO n DO X[i]:=0;
        
    X[1]:=1;
        FOR 
    i:=1 TO n DO A[i]:=i;
        
    dem:=0;
        
    REPEAT
            
    FOR i:=1 TO n DO
                IF 
    X[i] = 1 THEN write(A[i],' ');
            
    Writeln;
            
    i:=1;
            WHILE(
    i>0)  AND (x[i] =1) DO inc(i);
            IF 
    i>0 THEN
                BEGIN
                    X
    [i]:=1;
                    FOR 
    J:=i-1 DOWNTO 1 DO X[j]:=0;
                    
    dem:=dem+1;
                
    END;
        
    UNTIL i=n+1;
        
    write('co ',dem+1,' tap con');
        
    readln
    END



    ---------- Bài thêm lúc 19:44 ---------- Bài trước là lúc 19:33 ----------

    Với lại có bài này nữa :
    Cho dãy số gồm n phần tử LT chia dãy đã cho thành hai dãy sao cho chi phí giữa 2 dãy là ít nhất

  2. Có 2 thành viên cảm ơn vanchien127 cho bài viết này:
    jacksparzi (14-08-2012), win 8 (12-02-2012)

  3. #17
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.667
    Cảm ơn
    11.927
    Điểm
    5.255/3.016 bài viết
    VR power
    0

    Default

    Trích vanchien127 View Post
    Cho mình hỏi làm sao gi được cái code và đoạn Trích có hình như bạn thế

    ---------- Bài thêm lúc 19:28 ---------- Bài trước là lúc 18:42 ----------


    Sao bài này không có liệt kê ra[COLOR="Silver"]
    ---------- Bài thêm lúc 19:33 ---------- Bài trước là lúc 19:28 ----------
    Liệt kê ra ở chỗ thủ tục Inra đó bạn. In ra các phần tử của mảng kết quả đó, là mảng a chính là các kết quả cần tìm mà ?

  4. Có 3 thành viên cảm ơn auauau97 cho bài viết này:
    jacksparzi (14-08-2012), vanchien127 (08-02-2012), win 8 (12-02-2012)

  5. #18
    manunited3's Avatar
    manunited3 vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Feb 2011
    Bài
    26
    Cảm ơn
    13
    Điểm
    11/6 bài viết
    VR power
    0

    Default

    uses crt;
    var i: integer;
    s: string;

    begin
    clrscr;
    s:='Happy New Year';
    for i:=1 to length(s) do
    begin
    write(s[i]);
    delay(1000);
    end;
    readln
    end.


    Xin lỗi nhưng mình chỉ mới học lớp 8 bạn có thể giải thích câu lệnh write (s[i]); giùm mình được k
    Thay đổi nội dung bởi manunited3; 07-02-2012 lúc 20:56.

  6. Có 2 thành viên cảm ơn manunited3 cho bài viết này:
    jacksparzi (14-08-2012), win 8 (12-02-2012)

  7. #19
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    415/259 bài viết
    VR power
    0

    Default

    Trích manunited3 View Post
    uses crt;
    var i: integer;
    s: string;

    begin
    clrscr;
    s:='Happy New Year';
    for i:=1 to length(s) do
    begin
    write(s[i]);
    delay(1000);
    end;
    readln
    end.


    Xin lỗi nhưng mình chỉ mới học lớp 8 bạn có thể giải thích câu lệnh write (s[i]); giùm mình được k
    Có nghĩa là viết ra từng chữ đấy bạn. Nếu không có chỗ delay thì nó chạy thẳng ra luôn. Còn có thêm chỗ delay thì cứ cách một giây (theo trong bài) thì nó chạy 1 chữ.
    Mà theo mình thấy thì lớp 8 chưa học length mà, với lại hình như không có trong chương trình

  8. Có 2 thành viên cảm ơn thecuong064 cho bài viết này:
    jacksparzi (14-08-2012), win 8 (12-02-2012)

  9. #20
    btn1995's Avatar
    btn1995 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Feb 2011
    Đến từ
    Đà Nẵng
    Bài
    291
    Cảm ơn
    217
    Điểm
    139/101 bài viết
    VR power
    0

    Default

    Đọc 1 số tự nhiên n và tạo bảng vuông N*N các số 1,2,3,..,n*n theo hình zic zắc chéo từ từ đỉnh phía trên- trái qua phải xuống.
    Dữ liệu: Đọc n từ file "ziczac.inp".
    Yêu cầu: ghi ra file "ziczac.out" n*n mảng 2 chiều bảng hình vuông n*n.
    VD n=2
    1 2
    3 4
    n=3
    1 2 6
    3 5 7
    4 8 9
    Giúp với!!!!
    Ai có đề thi tin học 11 k cho mình xin với.
    I have a dream^^

  10. Có 2 thành viên cảm ơn btn1995 cho bài viết này:
    jacksparzi (14-08-2012), win 8 (12-02-2012)

  11. #21
    vanchien127's Avatar
    vanchien127 vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Jun 2011
    Bài
    83
    Cảm ơn
    97
    Điểm
    31/18 bài viết
    VR power
    0

    Default

    Đọc 1 số tự nhiên n và tạo bảng vuông N*N các số 1,2,3,..,n*n theo hình zic zắc chéo từ từ đỉnh phía trên- trái qua phải xuống.
    Dữ liệu: Đọc n từ file "ziczac.inp".
    Yêu cầu: ghi ra file "ziczac.out" n*n mảng 2 chiều bảng hình vuông n*n.
    VD n=2
    1 2
    3 4
    n=3
    1 2 6
    3 5 7
    4 8 9
    Giúp với!!!!
    Sao cai VD khó hiểu thế bạn

  12. Có 2 thành viên cảm ơn vanchien127 cho bài viết này:
    jacksparzi (14-08-2012), win 8 (12-02-2012)

  13. #22
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.667
    Cảm ơn
    11.927
    Điểm
    5.255/3.016 bài viết
    VR power
    0

    Default

    Trích vanchien127 View Post
    Sao cai VD khó hiểu thế bạn
    mình nghĩ nó xếp theo hình zich zắc theo kiểu này bạn ạ
    xem ảnh nè;
    nó sẽ đi theo kiểu này :

    chả biết mình hiểu có đúng không
    mình đang nghĩ là in ra các số theo zích zắc từ 1-->khi nào hết nửa ma trận thì thôi
    rồi lại in tiếp từ n^2--> hết ma trận (tức là tới hết nửa ma trận chưa in) !!!

  14. Có 3 thành viên cảm ơn auauau97 cho bài viết này:
    jacksparzi (14-08-2012), vanchien127 (10-02-2012), win 8 (12-02-2012)

  15. #23
    tranminhtienboy's Avatar
    tranminhtienboy vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Jun 2010
    Đến từ
    Nha Trang
    Bài
    58
    Cảm ơn
    102
    Điểm
    17/13 bài viết
    VR power
    0

    Default

    Mấy bro giúp em bài này:
    Bài 1: giả sử P=(p1,p2,p3,...,pn) là một hoán vị của 1,2,3,...,n . Bảng nghịch thế của hoán vị P là dãy T=(t1,t2,t3,...,tn) trong đó t i bằng số các phần tử hoán vị P đứng bên trái i và lớn hơn i.
    Viết chương trình cho phép từ bảng nghịch thế T xây dựng lại hoán vị P tương ứng.
    vd: T=(2,4,8,6,0,2,2,1,0) thì P=(5,9,1,8,2,6,4,7,3)
    T=(2,1,0,0,0) thì P=(3,2,1,4,5);

  16. Có 2 thành viên cảm ơn tranminhtienboy cho bài viết này:
    jacksparzi (14-08-2012), win 8 (12-02-2012)

  17. #24
    god250895's Avatar
    god250895 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jul 2011
    Đến từ
    Thanhhoa City
    Bài
    555
    Cảm ơn
    379
    Điểm
    194/102 bài viết
    VR power
    0

    Default




  18. Có 3 thành viên cảm ơn god250895 cho bài viết này:
    jacksparzi (14-08-2012), thegoodbeone (04-03-2012), win 8 (12-02-2012)

  19. #25
    vnsuper's Avatar
    vnsuper vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Sep 2011
    Đến từ
    VNZ
    Bài
    100
    Cảm ơn
    98
    Điểm
    16/12 bài viết
    VR power
    0

    Default

    mấy pro giúp em bài này: cho dãy C gồm N phần tử( N<=300) chứa cá số nguyên.
    sắp xếp dãy số theo thứ tự giảm dần và tìm số lớn thứ 2
    Thay đổi nội dung bởi vnsuper; 09-02-2012 lúc 17:42.

  20. Có 3 thành viên cảm ơn vnsuper cho bài viết này:
    jacksparzi (14-08-2012), thegoodbeone (04-03-2012), win 8 (12-02-2012)

  21. #26
    god250895's Avatar
    god250895 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jul 2011
    Đến từ
    Thanhhoa City
    Bài
    555
    Cảm ơn
    379
    Điểm
    194/102 bài viết
    VR power
    0

    Default

    Trích vnsuper View Post
    mấy pro giúp em bài này: cho dãy C gồm N phần tử( N<=300) chứa cá số nguyên.
    sắp xếp dãy số theo thứ tự giảm dần và tìm số lớn thứ 2

    Code:
    uses crt;
    var
       A: array[1..300] of longint;
       i,j,n: integer;
       Tg,max2: longint;
    BEGIN
        clrscr;
        write('Nhap so phan tu: '); readln(n);
        for i:=1 to n do
          begin
            write('A[',i,']=');
            readln(A[i]);
          end;
        for j:= n downto 2 do
          for i:=1 to j-1 do
             if A[i] < A[i+1] then
               begin
                  TG:= A[i+1];
                  A[i+1]:= A[i];
                  A[i]:= TG;
               end;
         writeln('Day giam dan:');
         for i:=1 to n do write(A[i]:3);
         for i:=1 to n do
          if A[i] <> A[i+1] then
            begin
               Max2:= A[i+1];
               break;
            end;
         writeln;
         writeln('So lon thu 2: ',Max2);
         readln;
    END.



  22. Có 7 thành viên cảm ơn god250895 cho bài viết này:
    auauau97 (09-02-2012), htn9937 (21-02-2012), jacksparzi (14-08-2012), thegoodbeone (04-03-2012), vnsuper (09-02-2012), win 8 (12-02-2012), đông_tà (11-03-2012)

  23. #27
    zoomroom95's Avatar
    zoomroom95 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Feb 2011
    Bài
    50
    Cảm ơn
    55
    Điểm
    16/10 bài viết
    VR power
    0

    Default

    Bài của bạn god250895 thì tham khảo trong 100 đề tin học nhé:
    Code:
    Program Chia_luoi ;
    Uses  Crt ;
    Const Fi = 'LUOI.INP';
          Fo = 'LUOI.OUT';
    Var   A : Array[1..20,1..20]Of Integer ;
          B : Array[1..20,1..20]Of 0..1 ;
          Px,Py: Array[1..4] Of ShortInt ;
          M,N,S,S1,S2 : LongInt ;
          F : Text ;
    Procedure Read_Input ;
     Var i,j :Integer;
    Begin
     Clrscr ; S:= 0 ;
     Assign(F,Fi) ;Reset(F) ;
     Readln(F,M,N);
     For i:=1 to M do
      Begin
         For j:=1 to N do
           Begin
              Read(F,A[i,j]);
              S:=S+A[i,j];
           End;
         Readln(F);
       End;
     Close(F);
    End;
    
     Procedure Innit ;
     Begin
       S1 := S div 2;
       Px[1]:= 0 ;Px[2]:= 0  ;Px[3]:=1 ;Px[4]:=-1 ;
       Py[1]:= 1 ;Py[2]:=-1  ;Py[3]:=0 ;Py[4]:= 0 ;
     End ;
    
    Procedure Write_Output ;
     Var i,j :Integer;
    Begin
      Assign(F,Fo); ReWrite(F);
      For i:=1 to M do
        Begin
           For j:=1 to N do
           Write(F,B[i,j],' ');
           Writeln(F);
        End;
      Close(F);Halt;
    End;
    
    Function Ktra(x,y : Integer) : Boolean ;
    Begin
        Ktra:= False ;
        If (x in [1..M]) And (y in [1..N]) And
           (B[x,y] = 0 ) Then Ktra := True ;
    End;
    
    Procedure Try(x,y:Integer ;Sum :LongInt);
     Var i :Integer ;
    Begin
      For i:=1 to 4 do
      If Ktra(x+Px[i],y+Py[i]) Then
        Begin
            x := x + Px[i] ;
            y := y + Py[i] ;
            Sum := Sum + A[x,y];
            B[x,y] := 1;
            If Sum = S2 Then Write_Output ;
            Try(x,y,Sum) ;
            Sum := Sum - A[x,y];
            B[x,y] := 0;
            x := x - Px[i] ;
            y := y - Py[i] ;
         End ;
    End;
    
    Procedure Run ;
       Var i,j : Integer ;
    Begin
       Read_Input ;Innit ;
       For i:=1 to M do
        For j:=1 to N do
         If A[i,j]>= S1 Then
           Begin
               Fillchar(B,SizeOf(B),0);
               B[i,j]:=1;
               Write_Output;
            End ;
       For S2 := S1 downto 1 do
         Begin
            Fillchar(B,SizeOf(B),0);
            B[1,1]:=1;
            Try(1,1,A[1,1]);
         End;
    End;
    
    BEGIN 
       Run; 
    END.
    Nếu ai thấy hay thì thank ở dưới đấy.

  24. Có 5 thành viên cảm ơn zoomroom95 cho bài viết này:
    auauau97 (09-02-2012), god250895 (09-02-2012), htn9937 (21-02-2012), jacksparzi (14-08-2012), win 8 (12-02-2012)

  25. #28
    phanminhduc12345's Avatar
    phanminhduc12345 vẫn chưa có mặt trong diễn đàn Rìu Chiến
    Tham gia
    Jan 2012
    Bài
    1.711
    Cảm ơn
    2.517
    Điểm
    742/502 bài viết
    VR power
    6

    Default

    Giúp mình bài này : Nhập vào một dãy số nguyên n( n<=100) . Tính tổng các số nguyên tố trong dãy bằng ít nhất 2 cách ( đang học mảng 1 chiều)

  26. Có 2 thành viên cảm ơn phanminhduc12345 cho bài viết này:
    jacksparzi (14-08-2012), win 8 (12-02-2012)

  27. #29
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.667
    Cảm ơn
    11.927
    Điểm
    5.255/3.016 bài viết
    VR power
    0

    Default

    Trích zoomroom95 View Post
    Bài của bạn god250895 thì tham khảo trong 100 đề tin học nhé:
    Code:
    Program Chia_luoi ;
    Uses  Crt ;
    Const Fi = 'LUOI.INP';
          Fo = 'LUOI.OUT';
    Var   A : Array[1..20,1..20]Of Integer ;
          B : Array[1..20,1..20]Of 0..1 ;
          Px,Py: Array[1..4] Of ShortInt ;
          M,N,S,S1,S2 : LongInt ;
          F : Text ;
    Procedure Read_Input ;
     Var i,j :Integer;
    Begin
     Clrscr ; S:= 0 ;
     Assign(F,Fi) ;Reset(F) ;
     Readln(F,M,N);
     For i:=1 to M do
      Begin
         For j:=1 to N do
           Begin
              Read(F,A[i,j]);
              S:=S+A[i,j];
           End;
         Readln(F);
       End;
     Close(F);
    End;
    
     Procedure Innit ;
     Begin
       S1 := S div 2;
       Px[1]:= 0 ;Px[2]:= 0  ;Px[3]:=1 ;Px[4]:=-1 ;
       Py[1]:= 1 ;Py[2]:=-1  ;Py[3]:=0 ;Py[4]:= 0 ;
     End ;
    
    Procedure Write_Output ;
     Var i,j :Integer;
    Begin
      Assign(F,Fo); ReWrite(F);
      For i:=1 to M do
        Begin
           For j:=1 to N do
           Write(F,B[i,j],' ');
           Writeln(F);
        End;
      Close(F);Halt;
    End;
    
    Function Ktra(x,y : Integer) : Boolean ;
    Begin
        Ktra:= False ;
        If (x in [1..M]) And (y in [1..N]) And
           (B[x,y] = 0 ) Then Ktra := True ;
    End;
    
    Procedure Try(x,y:Integer ;Sum :LongInt);
     Var i :Integer ;
    Begin
      For i:=1 to 4 do
      If Ktra(x+Px[i],y+Py[i]) Then
        Begin
            x := x + Px[i] ;
            y := y + Py[i] ;
            Sum := Sum + A[x,y];
            B[x,y] := 1;
            If Sum = S2 Then Write_Output ;
            Try(x,y,Sum) ;
            Sum := Sum - A[x,y];
            B[x,y] := 0;
            x := x - Px[i] ;
            y := y - Py[i] ;
         End ;
    End;
    
    Procedure Run ;
       Var i,j : Integer ;
    Begin
       Read_Input ;Innit ;
       For i:=1 to M do
        For j:=1 to N do
         If A[i,j]>= S1 Then
           Begin
               Fillchar(B,SizeOf(B),0);
               B[i,j]:=1;
               Write_Output;
            End ;
       For S2 := S1 downto 1 do
         Begin
            Fillchar(B,SizeOf(B),0);
            B[1,1]:=1;
            Try(1,1,A[1,1]);
         End;
    End;
    
    BEGIN 
       Run; 
    END.
    Nếu ai thấy hay thì thank ở dưới đấy.
    Bạn ơi, bạn có thể nói rõ thuật toán của bạn trong bài này không ?
    mình nhìn đống code chả hiểu gì cả

  28. Có 3 thành viên cảm ơn auauau97 cho bài viết này:
    god250895 (10-02-2012), jacksparzi (14-08-2012), win 8 (12-02-2012)

  29. #30
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    936
    Cảm ơn
    133
    Điểm
    415/259 bài viết
    VR power
    0

    Default

    Trích phanminhduc12345 View Post
    Giúp mình bài này : Nhập vào một dãy số nguyên n( n<=100) . Tính tổng các số nguyên tố trong dãy bằng ít nhất 2 cách ( đang học mảng 1 chiều)
    hai cách là dùng những gì thế bạn.

  30. Có 2 thành viên cảm ơn thecuong064 cho bài viết này:
    jacksparzi (14-08-2012), win 8 (12-02-2012)

 

 
Trang 2/103 đầuđầu 1 2 3 4 12 52 102 ... cuốicuối

Quyền sử dụng

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