Tin học Viết chương trình pascal

Thảo luận trong 'Tin học cấp III' bắt đầu bởi Cầu Vồng, 12 Tháng mười một 2019.

Lượt xem: 97

  1. Cầu Vồng

    Cầu Vồng Học sinh tiến bộ Thành viên

    Bài viết:
    343
    Điểm thành tích:
    154
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    1,Tính tổng S=-1+2-3+...+(-1)n+n với n là số nguyên dương được nhập từ bàn phím.
    2, S= [tex]\sqrt{1+\sqrt{2+...+\sqrt{n-1+\sqrt{n}}}}[/tex] với n là số nguyện dương được nhập từ bàn phím.
     
    Last edited: 12 Tháng mười một 2019
    Hải Ham Học thích bài này.
  2. Hải Ham Học

    Hải Ham Học Học sinh Thành viên

    Bài viết:
    129
    Điểm thành tích:
    26
    Nơi ở:
    Bà Rịa - Vũng Tàu
    Trường học/Cơ quan:
    thcs hòa hiệp

    cái s=1+2-3... có lộn không vậy, đáng ra phải s=1-2+3..+(-1)n+n hoặc s= -1+2-3 thì nó đúng hơn chứ
     
    Cầu Vồng thích bài này.
  3. Cầu Vồng

    Cầu Vồng Học sinh tiến bộ Thành viên

    Bài viết:
    343
    Điểm thành tích:
    154

    Mình nhầm đề bài :(( -1 nhé bạn
     
    Hải Ham Học thích bài này.
  4. Hải Ham Học

    Hải Ham Học Học sinh Thành viên

    Bài viết:
    129
    Điểm thành tích:
    26
    Nơi ở:
    Bà Rịa - Vũng Tàu
    Trường học/Cơ quan:
    thcs hòa hiệp

    Bài 1 nhé
    Mã:
    var i:integer;
           n:int64;
    begin
       readln(n); s:=0;
       for i:=1 to n do
         if (i mod n<>0) then s:=s-i
         else then s:=s+i;
        writeln(s);
    end.
     
    Cầu Vồng thích bài này.
  5. Hải Ham Học

    Hải Ham Học Học sinh Thành viên

    Bài viết:
    129
    Điểm thành tích:
    26
    Nơi ở:
    Bà Rịa - Vũng Tàu
    Trường học/Cơ quan:
    thcs hòa hiệp

    Bài 2 nè
    Mã:
    var i:integer;
           n:int64;
    begin
     readln(n);
     s:=0;
     for i:=n downto 1 do
       s:=sqrt(s+n);
     writeln(s);
    readln;
    end.
    :v đọc code trên hiểu chứ ??? có thắc mắc gì không
     
    Last edited by a moderator: 15 Tháng mười một 2019
    Cầu Vồng thích bài này.
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->