Giải gấp hộ mình với Mô tả thuật toán và viết chương trình A=1/1*3+1/2*4+1/3*5+…+1/n(n+2)

0 bình luận về “Giải gấp hộ mình với Mô tả thuật toán và viết chương trình A=1/1*3+1/2*4+1/3*5+…+1/n(n+2)”

1. uses crt;
   var i,n:longint;
   kq:real;
   begin
   clrscr;
   write(‘n= ‘); readln(n);
   for i:=1 to n do
   kq:=kq + (1/(i*(i+2))) ;
   write(‘Tong la: ‘,kq:0:4);
   readln;
   end.

   Bình luận

2. Mô tả thuật toán:

   B1:Nhập N

   B2: i—->0

   B3: For k—–>1 to n do i——>i+1/k(k+2)

   B4: Thông báo Kết quả của i

   B5: Kết thúc thuật toán

   Chương trình 

   Program BTH;
   uses Crt;
   var n,k:integer;
   i:real;
   Begin
   clrscr;
   Write(‘Nhap so n: ‘);readln(n);
   For k:=1 to n do
   i:=i+1/k*(k+2);
   Writeln(‘Tong cua day so tren la: ‘,i:4:2);
   readln;
   End.

   Bình luận