Viết chương trình tính tổng T = 1+ 1/ 2×1 + 1/ 2×2 + 1/ 2×3 + -..1/ 2×10

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

1. program ct;

   uses crt;

   var i:integer;

         T:real;

   begin clrscr;

        T:=0;

      for i:=1 to 10 do

        t:=t+1/(2*i);

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

   readln;

   end.

   Học tốt!

   Bình luận

2. Program Hotboy;

   Uses crt;

   Var S,i : real;

   Begin

   Clrscr;

   S:=0;

   For i:= 1 to 10 do S:=S+1/(2*i);

   Write(‘Tong can tim la’,S);

   Readln

   End.

   Bình luận