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

Tuyển nhân sự diễn đàn 2014

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Cuộc thi khoảnh khắc tuyệt vời cùng Vn-Zoom.com

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

Tin tức công nghệ mới nhất

Sản phẩm đáng chú ý tại Asus Expo 2014
Trang 25/129 đầuđầu ... 15 23 24 25 26 27 35 75 125 ... cuốicuối
kết quả từ 361 tới 375 trên 1933
  1. #361
    kisame0703's Avatar
    kisame0703 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    May 2009
    Bài
    233
    Cảm ơn
    255
    Điểm
    89/45 bài viết
    VR power
    0

    Default

    Dạ anh ơi bài này trong phần bài tập của Case of ạ còn các tháng có 31 ngày là 1,3,5,7,8,10,12 dù sao cũng cảm ơn anh rất nhiều ạ

  2. #362
    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.652
    Cảm ơn
    11.933
    Điểm
    5.259/3.016 bài viết
    VR power
    0

    Default

    Trích kisame0703 View Post
    Dạ anh ơi bài này trong phần bài tập của Case of ạ còn các tháng có 31 ngày là 1,3,5,7,8,10,12 dù sao cũng cảm ơn anh rất nhiều ạ
    Thế năm nhuận là những năm như thế nào bạn nhỉ ?
    Nothing is true, everything is permitted

  3. #363
    19-6's Avatar
    19-6 vẫn chưa có mặt trong diễn đàn Moderator
    Tham gia
    Sep 2008
    Đến từ
    Abyss
    Bài
    1.904
    Cảm ơn
    858
    Điểm
    3.413/1.515 bài viết
    VR power
    0

    Default

    Trích kisame0703 View Post
    mọi người ơi giải giúp em bài này với ạ

    Cho nhập ngày tháng năm hãy in ra màn hình ngày tháng năm của ngày mai ( ví dụ 20-6-2011 sẽ in ra 21-6-2011, 31-12-2011 sẽ in ra là 1-1-2012 )
    code in ngày tháng năm tiếp theo, có kiểm tra năm nhuận, tháng có 31 ngày.
    Code:
    uses crt;
    var t,n,ng,a: integer;
    
    begin
     clrscr;
     writeln('Nhap ngay, thang va nam: ');
     readln(ng,t,n);
     a:=ng;
     if (ng<28)and(t=2) then
      a:=a+1;
     if (ng<30)and(t<>2) then
      a:=a+1;
     if(ng>=30)or((ng>=28)and(t=2)) then
     case t of
       1,3,5,7,8,10,12 : if ng=30 then a:=31 
                         else
                         begin
                           a:=1;
                           t:=t+1;
                         end;
       2 : if ((n mod 4=0)and(n mod 100<>0))or(n mod 400=0) then
            begin
             if ng=28 then 
              a:=29
             else
             begin
              a:=1;
              t:=t+1;
             end;
            end
           else
           begin
            a:=1;
            t:=t+1;
           end;
       4,6,9,11 : begin a:=1; t:=t+1; end;
     end;
     if (a=1)and(t=13) then
     begin
      n:=n+1;
      t:=1;
     end;
     writeln('ngay ',a,' thang ',t,' nam ',n);
     readln;
    end.


  4. Có 2 thành viên cảm ơn 19-6 cho bài viết này:
    auauau97 (04-07-2011), kisame0703 (04-07-2011)

  5. #364
    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.652
    Cảm ơn
    11.933
    Điểm
    5.259/3.016 bài viết
    VR power
    0

    Default

    Trích kisame0703 View Post
    Dạ anh ơi bài này trong phần bài tập của Case of ạ còn các tháng có 31 ngày là 1,3,5,7,8,10,12 dù sao cũng cảm ơn anh rất nhiều ạ
    Code:
    Uses crt;
    Var
      c:longint;
      a,b:word;
    Begin
      Clrscr;
      Write('Nhap ngay-thang-nam:');
      Readln(a,b,c);
      If (b>12) or (b<=0) or (a>31) or (a<=0) then
        Begin
          Write('Nhap sai !');
          Readln;
          Exit;
        End;
      Case b of
        1,3,5,7,8,10,12:
          Begin
            If b=12 then
              Begin
                c:=c+1;
                b:=1;
              End;
            Case a of
              31:
                Begin
                  a:=1;
                  b:=b+1;
                End;
              Else a:=a+1;
            End;
          End;
        2:
          Begin
            If ((c mod 4=0) and (c mod 100<>0)) or (c mod 400=0) then
               If a=28 then 
                  Begin
                    b:=b+1;
                    a:=29
                  End;
            Else
            If a=28 then
              Begin
                a:=1;
                b:=b+1;
              End;
          End;
        Else
          Case a of
            30:
              Begin
                b:=b+1;
                a:=1;
              End;
            Else a:=a+1;
          End;
      End;
      Write('Ngay-thang-nam cua ngay mai:',a,'-',b,'-',c);
      Readln;
    End.
    mượn tạm cái kiểm tra năm nhuận của 19-6 nhé, mình chả nhớ mấy cái này !
    Hơi dài nhỉ ?
    Mình vẫn chưa nghĩ được cách tối ưu hơn cho bạn !
    Bạn bổ sung thêm về phần năm nhuận nhé !
    Thay đổi nội dung bởi auauau97; 04-07-2011 lúc 20:47.
    Nothing is true, everything is permitted

  6. Có 2 thành viên cảm ơn auauau97 cho bài viết này:
    19-6 (04-07-2011), kisame0703 (04-07-2011)

  7. #365
    kisame0703's Avatar
    kisame0703 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    May 2009
    Bài
    233
    Cảm ơn
    255
    Điểm
    89/45 bài viết
    VR power
    0

    Default

    Năm nhuận là năm chỉ xuất hiện sau 4 năm thường ví dụ 2008 là năm nhuận cho tới năm 2012 ( tức là thêm 4 năm nữa ) thì 2012 sẽ là năm nhuận. Năm nhuận thì tháng 2 có 29 ngày còn những tháng khác vẫn như những năm thường. Nếu mà theo bài này thì lúc xét tháng thì anh xét tháng 2 của năm thường và năm nhuận là xong thui ạ

  8. Có 1 thành viên cảm ơn kisame0703 cho bài viết này:
    auauau97 (04-07-2011)

  9. #366
    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.652
    Cảm ơn
    11.933
    Điểm
    5.259/3.016 bài viết
    VR power
    0

    Default

    Trích kisame0703 View Post
    Năm nhuận là năm chỉ xuất hiện sau 4 năm thường ví dụ 2008 là năm nhuận cho tới năm 2012 ( tức là thêm 4 năm nữa ) thì 2012 sẽ là năm nhuận. Năm nhuận thì tháng 2 có 29 ngày còn những tháng khác vẫn như những năm thường. Nếu mà theo bài này thì lúc xét tháng thì anh xét tháng 2 của năm thường và năm nhuận là xong thui ạ
    Thế thì xong rồi đó bạn !
    Bạn cũng có thể tham khảo thêm code của 19-6 !
    Nothing is true, everything is permitted

  10. #367
    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.652
    Cảm ơn
    11.933
    Điểm
    5.259/3.016 bài viết
    VR power
    0

    Default

    Trích kisame0703 View Post
    Code nào ạ @.@ em có thấy đâu ạ với lại em chưa thấy cái code case of của anh ạ
    Đây nè bạn:
    Code:
    Uses crt;
    Var
      c:longint;
      a,b:word;
    Begin
      Clrscr;
      Write('Nhap ngay-thang-nam:');
      Readln(a,b,c);
      If (b>12) or (b<=0) or (a>31) or (a<=0) then
        Begin
          Write('Nhap sai !');
          Readln;
          Exit;
        End;
      Case b of
        1,3,5,7,8,10,12:
          Begin
            If b=12 then
              Begin
                c:=c+1;
                b:=1;
              End;
            Case a of
              31:
                Begin
                  a:=1;
                  b:=b+1;
                End;
              Else a:=a+1;
            End;
          End;
        2:
          Begin
            If ((c mod 4=0) and (c mod 100<>0)) or (c mod 400=0) then
               If a=28 then 
                  Begin
                    b:=b+1;
                    a:=29
                  End;
            Else
            If a=28 then
              Begin
                a:=1;
                b:=b+1;
              End;
          End;
        Else
          Case a of
            30:
              Begin
                b:=b+1;
                a:=1;
              End;
            Else a:=a+1;
          End;
      End;
      Write('Ngay-thang-nam cua ngay mai:',a,'-',b,'-',c);
      Readln;
    End.
    Nothing is true, everything is permitted

  11. Có 1 thành viên cảm ơn auauau97 cho bài viết này:
    kisame0703 (04-07-2011)

  12. #368
    kisame0703's Avatar
    kisame0703 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    May 2009
    Bài
    233
    Cảm ơn
    255
    Điểm
    89/45 bài viết
    VR power
    0

    Default

    Mọi người ơi giúp em bài này với ạ

    Sử dụng thủ tục và biến cục bộ biến toàn bộ để vẽ

    1 đường thẳng
    2. Hình Chữ Nhật Đặt Ruột
    3. Hình Vuông rỗng ruột
    4. Tam giác vuông
    5. Tam Giác Cân

  13. #369
    kisame0703's Avatar
    kisame0703 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    May 2009
    Bài
    233
    Cảm ơn
    255
    Điểm
    89/45 bài viết
    VR power
    0

    Default

    Dạ hok anh em mới chỉ học tới Hàm và Thủ Tục thôi ạ...anh vẽ cái này bằng cách nhập 1 ký tự rồi sử dụng công thức để vẽ đó ạ

  14. #370
    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.652
    Cảm ơn
    11.933
    Điểm
    5.259/3.016 bài viết
    VR power
    0

    Default

    Trích kisame0703 View Post
    Mọi người ơi giúp em bài này với ạ

    Sử dụng thủ tục và biến cục bộ biến toàn bộ để vẽ

    1 đường thẳng
    2. Hình Chữ Nhật Đặt Ruột
    3. Hình Vuông rỗng ruột
    4. Tam giác vuông
    5. Tam Giác Cân
    Dùng đồ họa hả bạn ?
    Nothing is true, everything is permitted

  15. #371
    19-6's Avatar
    19-6 vẫn chưa có mặt trong diễn đàn Moderator
    Tham gia
    Sep 2008
    Đến từ
    Abyss
    Bài
    1.904
    Cảm ơn
    858
    Điểm
    3.413/1.515 bài viết
    VR power
    0

    Default

    Trích kisame0703 View Post
    Mọi người ơi giúp em bài này với ạ

    Sử dụng thủ tục và biến cục bộ biến toàn bộ để vẽ

    1 đường thẳng
    2. Hình Chữ Nhật Đặt Ruột
    3. Hình Vuông rỗng ruột
    4. Tam giác vuông
    5. Tam Giác Cân
    Code:
    uses crt;
    var i,j,cd,cr,n: integer;
    
    procedure vehinh1(var cd: integer);
    begin
     for i:=1 to cd do
      write('*');
     writeln;
    end;
    
    procedure vehinh2(var cd,cr: integer);
    begin
     for i:=1 to cr do
     begin
      for j:=1 to cd do
       write('* ');
      writeln;
     end;
     writeln;
    end;
    
    procedure vehinh3(var cd,cr: integer);
    begin
     for i:=1 to cd do
      write('* ');
     writeln;
     if cr>=3 then
      for i:=1 to cr-2 do
       writeln('*','*':cd*2-2);
     for i:=1 to cd do
      write('* ');
     writeln;
    end;
    
    procedure vehinh4;
    begin
     j:=1;
     writeln('*':2);
     for i:=1 to 7 do
     begin
      writeln('*':2,'*':j);
      j:=j+1;
     end;
     for i:=1 to 5 do
      write('*':2);
     writeln;
    end;
    
    procedure vehinh5(var n: integer);
    var k: integer;
    begin
     j:=n*2;
     k:=2;
     writeln('*':j);
     for i:=1 to n-2 do
     begin
      j:=j-1;
      writeln('*':j,'*':k);
      k:=k+2;
     end;
     write('':j-3);
     for i:=1 to n do
      write('*':2);
    end;
    
    begin
     clrscr;
     write('Nhap chieu dai duong thang: ');
     readln(cd);
     vehinh1(cd);
     write('Nhap chieu dai hcn: ');
     readln(cd);
     write('Nhap chieu rong hcn: ');
     readln(cr);
     vehinh2(cd,cr);
     vehinh3(cd,cr);
     writeln('Tam giac vuong: ');
     vehinh4;
     write('Nhap do dai tam giac can: ');
     readln(n);
     vehinh5(n);
     readln;
    end.


  16. Có 2 thành viên cảm ơn 19-6 cho bài viết này:
    auauau97 (05-07-2011), kisame0703 (05-07-2011)

  17. #372
    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.652
    Cảm ơn
    11.933
    Điểm
    5.259/3.016 bài viết
    VR power
    0

    Default

    Trích kisame0703 View Post
    Dạ hok anh em mới chỉ học tới Hàm và Thủ Tục thôi ạ...anh vẽ cái này bằng cách nhập 1 ký tự rồi sử dụng công thức để vẽ đó ạ
    Nhưng mà vẽ bằng ký tự gì hả bạn ?
    Nhập độ dài cạnh từ bàn phìm à ?
    Nothing is true, everything is permitted

  18. Có 1 thành viên cảm ơn auauau97 cho bài viết này:
    kisame0703 (05-07-2011)

  19. #373
    kisame0703's Avatar
    kisame0703 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    May 2009
    Bài
    233
    Cảm ơn
    255
    Điểm
    89/45 bài viết
    VR power
    0

    Default

    Nhưng mà vẽ bằng ký tự gì hả bạn ?
    Nhập độ dài cạnh từ bàn phìm à ?
    Dạ ký tự gì cũng được ạ và nhập độ dài từ bàn phím đó anh

  20. #374
    kisame0703's Avatar
    kisame0703 vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    May 2009
    Bài
    233
    Cảm ơn
    255
    Điểm
    89/45 bài viết
    VR power
    0

    Default

    Em cảm ơn mọi người nhiều lắm ạ

  21. #375
    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.652
    Cảm ơn
    11.933
    Điểm
    5.259/3.016 bài viết
    VR power
    0

    Default

    Trích 19-6 View Post
    Code:
    uses crt;
    var i,j,cd,cr,n: integer;
    
    procedure vehinh1(var cd: integer);
    begin
     for i:=1 to cd do
      write('*');
     writeln;
    end;
    
    procedure vehinh2(var cd,cr: integer);
    begin
     for i:=1 to cr do
     begin
      for j:=1 to cd do
       write('* ');
      writeln;
     end;
     writeln;
    end;
    
    procedure vehinh3(var cd,cr: integer);
    begin
     for i:=1 to cd do
      write('* ');
     writeln;
     if cr>=3 then
      for i:=1 to cr-2 do
       writeln('*','*':cd*2-2);
     for i:=1 to cd do
      write('* ');
     writeln;
    end;
    
    procedure vehinh4;
    begin
     j:=1;
     writeln('*':2);
     for i:=1 to 7 do
     begin
      writeln('*':2,'*':j);
      j:=j+1;
     end;
     for i:=1 to 5 do
      write('*':2);
     writeln;
    end;
    
    procedure vehinh5(var n: integer);
    var k: integer;
    begin
     j:=n*2;
     k:=2;
     writeln('*':j);
     for i:=1 to n-2 do
     begin
      j:=j-1;
      writeln('*':j,'*':k);
      k:=k+2;
     end;
     write('':j-3);
     for i:=1 to n do
      write('*':2);
    end;
    
    begin
     clrscr;
     write('Nhap chieu dai duong thang: ');
     readln(cd);
     vehinh1(cd);
     write('Nhap chieu dai hcn: ');
     readln(cd);
     write('Nhap chieu rong hcn: ');
     readln(cr);
     vehinh2(cd,cr);
     vehinh3(cd,cr);
     writeln('Tam giac vuong: ');
     vehinh4;
     write('Nhap do dai tam giac can: ');
     readln(n);
     vehinh5(n);
     readln;
    end.
    Đề bài bảo vẽ hinh vuông rỗng mà bạn

    Bài của bạn chỉ cần sửa lại 1 chút là được:

    Code:
    Uses crt;
    Var
      i,j,cd,cr,n: integer;
    {----------------------------------------------------------------------}
    Procedure vehinh1(var cd: integer);
    Begin
      For i:=1 to cd do
        Write('*');
      Writeln;
    End;
    {----------------------------------------------------------------------}
    Procedure vehinh2(var cd,cr: integer);
    Begin
      For i:=1 to cr do
        Begin
          For j:=1 to cd do
            Write('*');
          Writeln;
        End;
      Writeln;
    End;
    {----------------------------------------------------------------------}
    Procedure vehinh3(var cd: integer);
    Begin
      For i:=1 to cd do
        Write('* ');
      Writeln;
      If cd>=3 then
        For i:=1 to cd-2 do
          Writeln('*','*':cd*2-2);
      For i:=1 to cd do
        Write('* ');
      Writeln;
    End;
    {----------------------------------------------------------------------}
    Procedure vehinh4;
    Begin
      j:=1;
      Writeln('*':2);
      For i:=1 to 7 do
        Begin
          Writeln('*':2,'*':j);
          j:=j+1;
        End;
      For i:=1 to 5 do
        Write('*':2);
      Writeln;
    End;
    {----------------------------------------------------------------------}
    Procedure vehinh5(var n: integer);
    Var
      k: integer;
    Begin
      j:=n*2;
      k:=2;
      Writeln('*':j);
      For i:=1 to n-2 do
        Begin
          j:=j-1;
          Writeln('*':j,'*':k);
          k:=k+2;
        End;
      Write('':j-3);
      For i:=1 to n do
      Write('*':2);
    End;
    {----------------------------------------------------------------------}
    BEGIN
      Clrscr;
      Write('Nhap chieu dai duong thang:');
      Readln(cd);
      vehinh1(cd);
      Write('Nhap chieu dai hcn:');
      Readln(cd);
      Write('Nhap chieu rong hcn:');
      Readln(cr);
      Vehinh2(cd,cr);
      Write('Nhap do dai hinh vuong:');
      Readln(cd);
      Vehinh3(cd);
      Writeln('Tam giac vuong:');
      vehinh4;
      Write('Nhap do dai tam giac can:');
      Readln(n);
      vehinh5(n);
      Readln;
    END.
    Mình chỉ sửa cái vehinh3 của bạn thôi, còn các cái khác thì tốt rồi !
    Nothing is true, everything is permitted

  22. Có 2 thành viên cảm ơn auauau97 cho bài viết này:
    19-6 (05-07-2011), kisame0703 (05-07-2011)

 

 
Trang 25/129 đầuđầu ... 15 23 24 25 26 27 35 75 125 ... 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
  •