SỬ dụng câu lệnh For…To…Do và While…To để tính tổng câu lệnh sau A=1+ 1/3+1/5+-+1/21

0 bình luận về “SỬ dụng câu lệnh For…To…Do và While…To để tính tổng câu lệnh sau A=1+ 1/3+1/5+-+1/21”

1. <for…to…do>

   program phuongt;

   uses crt;

     var i: integer;

           a: real;

   begin

               clrscr;

               a:=0;

               for i:=1 to 21 do if i mod 2 <> 0 then a:=a+1/i;

               write(‘A = ‘, a);

               readln

   end.

   <while…do>

   program phuongt;

   uses crt;

     var i: integer;

           a: real;

   begin

               clrscr;

               a:=0; i:=1;

               while i<=21 do 

               begin

                         if i mod 2 <> 0 then a:=a+1/i;

                         i:=i+1;

               end;

               write(‘A = ‘, a);

               readln

   end.

   Bình luận

2. Dùng For…to..do:

   program tong;

   uses crt;

   var i: byte;

        A: real;

   Begin

            clrscr;

            A:=0;

            for i:=1 to 21 do

                 if i mod 2<>0 then A:=A+1/i;

            write(‘A = ‘,A:2:3);

            readln

   End.

   Dùng While…do:

   program tong;

   uses crt;

   var i: byte;

        A: real;

   Begin

            clrscr;

            A:=0;  i:=1;

            while i<=21 do

            begin

                     if i mod 2<>0 then A:=A+1/i;

                     i:=i+1;

            end;

            write(‘A = ‘,A:2:3);

            readln

   End.

   Bình luận