Viết chương trình tính tổng T=1+1/2+1/3+…+1/100

0 bình luận về “Viết chương trình tính tổng T=1+1/2+1/3+…+1/100”

1. program tinh_tong;

   uses crt;

   var i:integer;

   T:real;

   begin

   clrscr;

   T:=0;

   for i:=1 to 100 do T:=T+1/i;

   write(‘T= ‘,T:4:2);

   readln;

   end.   

   Trả lời

2. Cách For..do

   Program BTH;
   uses crt;
   var s:real;
   i:byte;
   Begin
           clrscr;
           For i:=1 to 100 do
           Begin
                   s:=s+1/i;
           end;
           writeln(‘Tong day so tren la: ‘,s:4:2);
           readln;
   end.

   Cách While..do

   Program BTH;
   uses crt;
   var s:real;
   i,n:byte;
   Begin
           clrscr;
           n:=1;
           While n<100 do
           Begin
                   s:=s+1/n;
                   n:=n+1;
           end;
           writeln(‘Tong day so tren la: ‘,s:4:2);
           readln;
   end.

   Bạn chọn cách nha :)))

   Trả lời