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

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.

---

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.

---

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.

---

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 :D


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

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

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.

còn bài 2 nữa bạn ơi. giúp mình. thank

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 :)

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.