Trang 1 / 5 1234 ... LastLast
Hiển thị kết quả từ 1 đến 10 / 41
  1. #1
    Tham gia
    07-11-2007
    Bài viết
    5
    Like
    0
    Thanked 0 Times in 0 Posts

    Buồn quá đi ! các anh ơi giúp em tin 11với sắp kiểm tra rùi 2 hôm nữa kiểm tra ruj`

    các anh giải giúp em mấy bài sau với:
    bài 1: viết CT nhập 2 sô a,b đưa ra màn hình tổng,hiệu,tính thương của chúng : a,b thuộc R
    Bài 2: viết ct tính tổng: (n nhập từ bàn phím)
    S= 1 + 1/3 + 1/5 + ... + 1/(2n+1)

    S = 1 - 1/2 + 1/3 - 1/4 + ... + ((-1)^(n+1))*1/n
    Bài 3 viết ct
    s = 1/(1+2) + 1/(2+3) + ...+1/(n+(n+1))+...
    cho đến khi 1/(n+(n+1)) < 0,00001
    Bài 4 Dùng lệnh If để viết ct :
    giải hệ pt: ax+by=c và dx+ey=f
    Quote Quote

  2. #2
    Tham gia
    14-10-2007
    Location
    ô hay, đến từ đâu thì kệ người ta chứ :p
    Bài viết
    112
    Like
    0
    Thanked 19 Times in 7 Posts
    bài 1:
    Code:
    var a,b:real;
    BEGIN
          write('nhap a: '); readln(a);
          write('nhap b: '); readln(b);
          writeln('tong ',a:5:2,'+',b:5:2,'=',a+b:5:2); 
          writeln('hieu ',a:5:2,'-',b:5:2,'=',a-b:5:2); 
          writeln('tich ',a:5:2,'*',b:5:2,'=',a*b:5:2); 
          writeln('thuong ',a:5:2,'/',b:5:2,'=',a/b:5:2); 
          readln;
    END.

  3. Thành viên Like bài viết này:


  4. #3
    Tham gia
    14-10-2007
    Location
    ô hay, đến từ đâu thì kệ người ta chứ :p
    Bài viết
    112
    Like
    0
    Thanked 19 Times in 7 Posts
    bài 2:
    ct tính tổng S= 1 + 1/3 + 1/5 + ... + 1/(2n+1)
    Code:
    var n,i:integer;
        s:real;
    BEGIN
         repeat     
               write('nhap n nguyen duong : '); readln(n);
         until n>0; 
         s:=1.0;  
         for i:=1 to n do
             s:=s+ 1/(2*i+1);
         writeln('tong s = ',s:5:3); 
         readln;
    END.
    ct tính tổng S = 1 - 1/2 + 1/3 - 1/4 + ... + ((-1)^(n+1))*1/n
    Code:
    var n,i:integer;
        s:real;
    BEGIN
         repeat     
               write('nhap n nguyen duong : '); readln(n);
         until n>0;
         s:=0.0;  
         for i:=1 to n do
             begin
                  if (i mod 2 = 1) then s:=s+ 1/i
                  else s:= s -1/i;
             end;
         writeln('tong s = ',s:5:3); 
         readln;
    END.

  5. Thành viên Like bài viết này:


  6. #4
    Tham gia
    14-10-2007
    Location
    ô hay, đến từ đâu thì kệ người ta chứ :p
    Bài viết
    112
    Like
    0
    Thanked 19 Times in 7 Posts
    bài 3:
    Code:
    var n:integer;
        s:real;
    BEGIN
         s:=0.0;  
         n:=1;
         while (1 >= 0,00001*(2*n+1)) do
             begin
                  s:=s+ 1/(2*n+1);
                  n:=n+1;   
             end;
         writeln('tong s = ',s:5:3); 
         readln;
    END.

  7. Thành viên Like bài viết này:


  8. #5
    Tham gia
    14-10-2007
    Location
    ô hay, đến từ đâu thì kệ người ta chứ :p
    Bài viết
    112
    Like
    0
    Thanked 19 Times in 7 Posts
    bài 4:
    đã giải , xem ở link sau : http://ddth.com/showthread.php?t=149118

    chúc bạn làm bài kiểm tra tốt


    notes: lần sau có nhờ jì thì đừng ghi là chỉ nhờ mỗi anh thui nha

  9. Thành viên Like bài viết này:


  10. #6
    Tham gia
    05-12-2009
    Bài viết
    14
    Like
    0
    Thanked 0 Times in 0 Posts

    help me

    giúp mình 2 bài này với:

    bài 1: tính tổng s=2010 + 2/3 + 3/4 + 4/5 +....+ 2009/2010
    bài 2: tính tổng s=a + 2/(a+1) + 3/(a+2) + 4/(a+3) +....+ n/(a+n-1) + ...cho đến khi n/(a+n-1) <= 0.00006

  11. #7
    Tham gia
    30-11-2009
    Bài viết
    30
    Like
    0
    Thanked 2 Times in 2 Posts
    Bài 1
    Var i:integer;
    s:real;
    Begin
    s:=2010;
    For i:=2 to 2009 do
    s:=s+(i/(i+1));
    Write('s=',s);
    readln;
    end.

  12. Thành viên Like bài viết này:


  13. #8
    Tham gia
    05-12-2009
    Bài viết
    14
    Like
    0
    Thanked 0 Times in 0 Posts
    còn bài 2 nữa bạn ơi. giúp mình. thank

  14. #9
    Tham gia
    10-11-2009
    Location
    TP Hồ Chí Minh
    Bài viết
    792
    Like
    171
    Thanked 46 Times in 44 Posts
    var i:integer;
    S,a:real;
    begin
    writeln('ban nhap a= ');
    readln(a);
    S:=a;
    i:=2;
    while i/(a+i-1)>0.00006 do
    begin
    S:=S+i/(a+i-1);
    i:=i+1;
    end;
    writeln('xuat tong S= ',S:5:2);
    readln;
    end.
    2 Bài nỳ mình thấy wen wen hình như là bạn có post trên diendantinhoc.vn rùi phải hok

  15. Thành viên Like bài viết này:


  16. #10
    Tham gia
    05-12-2009
    Bài viết
    14
    Like
    0
    Thanked 0 Times in 0 Posts
    uhm. chắc đó cũng là bạn roi`. may mà gặp bạn. thank nhiu` nghe.

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

    mà giải thích rõ cho mình luôn đi

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

    ko chạy dc ban ah. nhập a vào roi` enter là bị thoát.
    Được sửa bởi phucduongd2t lúc 20:18 ngày 05-12-2009 Reason: Bổ sung bài viết

Trang 1 / 5 1234 ... 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
  •