viết chương trình tính tổng S= 1 + 1/2 +1/3+-.+1/n ( trong đó n được nhập vào từ bàn phím ) Mấy bạn kiểu copy thì ra chỗ khác :) tự làm k thì ăn b

0 bình luận về “viết chương trình tính tổng S= 1 + 1/2 +1/3+-.+1/n ( trong đó n được nhập vào từ bàn phím ) Mấy bạn kiểu copy thì ra chỗ khác :) tự làm k thì ăn b”

1. Tính bằng for…do

   program tong_S;

   uses crt;

   var n,i:integer;

         s:real;

   begin

        clrscr;

        write(‘Nhap n: ‘);  readln(n);

        s:=0;

        for i:=1 to n do

             s:=s+1/i;

        write(‘S= ‘,s:0:2);

        readln;

   end.

   Tính bằng while…do

   program tong_S;

   uses crt;

   var n,i:integer;

         s:real;

   begin

        clrscr;

        write(‘Nhap n: ‘);  readln(n);

        s:=0;  i:=1;

        while i<=n do

             begin

                  s:=s+1/i;

                  i:=i+1;

             end;

        write(‘S= ‘,s:0:2);

        readln;

   end.

   Bình luận

2. uses crt;
   var n,i:integer;S:real;
   begin
       clrscr;
       S:=0;
       write(‘Nhap n: ‘); readln(n);
       for i:=1 to n do S:=s+1/i;
       write(‘Tong: ‘,S:2:2);
       readln;
   end.

   Bình luận