Viết chương trình từ dạng for- do sang while… do để tính tổng T=1/2+1/4+1/6+-..+1/100

0 bình luận về “Viết chương trình từ dạng for- do sang while… do để tính tổng T=1/2+1/4+1/6+-..+1/100”

1. uses crt;
   var i:longint; t:real;
   begin
   clrscr;
      i:=0;
      while i<100 do
         begin
            inc(i,2);
            t:=t+1/i;
         end;
      writeln(‘T ‘,t);
   readln
   end.

   Bình luận

2. program bai1;

   var t,i,n:longint;

   begin

   {repeat

   write(‘N= ‘);

   readln(n);

   unntil n>0}sử dụng repeat until cũng đc

   t:=1;i:=2;

   while i<=n do

   begin

   t:=t+1/i;

   i:=i+1;

   end;

   write(‘T= ‘,t);

   readln

   end.

   đó ạ

   Bình luận