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

Reviews hay rinh note 4, galaxy V được vi vu Hàn Quốc

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

Lời mời tham dự chương trình từ thiện "Giáng Sinh Trong Mắt Em"

Mời offline công nghệ cùng Vn-Zoom tại Hà Nội

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

Mời offline công nghệ cùng VN-Zoom tại TP HCM
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

    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.647
    Cảm ơn
    11.934
    Điểm
    5.263/3.016 bài viết

    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.438/1.515 bài viết

    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.647
    Cảm ơn
    11.934
    Điểm
    5.263/3.016 bài viết

    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

    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.647
    Cảm ơn
    11.934
    Điểm
    5.263/3.016 bài viết

    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.647
    Cảm ơn
    11.934
    Điểm
    5.263/3.016 bài viết

    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

    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

    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.647
    Cảm ơn
    11.934
    Điểm
    5.263/3.016 bài viết

    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.438/1.515 bài viết

    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.647
    Cảm ơn
    11.934
    Điểm
    5.263/3.016 bài viết

    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

    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

    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.647
    Cảm ơn
    11.934
    Điểm
    5.263/3.016 bài viết

    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
  •