Vết chương trình tính tổng A=1/1*3 +1/2*4+…+1/n(n+2) Giải bằng hai cách

0 bình luận về “Vết chương trình tính tổng A=1/1*3 +1/2*4+…+1/n(n+2) Giải bằng hai cách”

1. cách 1(dùng for-to-do):

   program oken;
   uses crt;
   var i,n:longint;
       s: real;
   begin
           clrscr;
           write(‘nhap n: ‘); readln(n);
           for i:=1 to n do
                   s:=s+ 1/(i*(i+2));
           writeln(‘Tong S: ‘,s:0:3);
           readln;
   end.

   cách 2( dùng while-do):

   program oken;
   uses crt;
   var i,n:longint;
       s: real;
   begin
           clrscr;
           write(‘nhap n: ‘); readln(n);
           i:=1; s:=0;
           while i<=n do
                   begin
                           s:=s+ 1/(i*(i+2));
                           i:=i+1;
                   end;
           writeln(‘Tong S: ‘,s:0:3);
           readln;
   end.

   ${Oken}$

   Bình luận

2. cách 1(dùng for-to-do):

   program Bai_tap_1;
   uses crt;
   var i,n:longint;
       s: real;
   begin
           clrscr;
           write(‘nhap n: ‘); readln(n);
           for i:=1 to n do
                   s:=s+ 1/(i*(i+2));
           writeln(‘Tong S: ‘,s:2:3);
           readln;
   end.

   cách 2( dùng while-do):

   program Bai_tap_2;
   uses crt;
   var i,n:longint;
       s: real;
   begin
           clrscr;
           write(‘nhap n: ‘); readln(n);
           i:=1; s:=0;
           while i<=n do
                   begin
                           s:=s+ 1/(i*(i+2));
                           i:=i+1;
                   end;
           writeln(‘Tong S: ‘,s:2:3);
           readln;
   end.

   Bình luận