Lập trình tính tổng: a) T= $\frac{1}{5}$ +$\frac{1}{6}$+… $\frac{1}{99}$ +$\frac{1}{100}$ Để viết chương trình tính tổng T. Ta có thể sử dụng lện

0 bình luận về “Lập trình tính tổng: a) T= $\frac{1}{5}$ +$\frac{1}{6}$+… $\frac{1}{99}$ +$\frac{1}{100}$ Để viết chương trình tính tổng T. Ta có thể sử dụng lện”

1. Program ct;

   Uses crt;

   Var T,i,n:integer;

   Begin

   Clrscr;

   Write(‘nhap so bat ki:’);readln(n);

   T:=0;

   For i:=5 to 100 do T:=T+1/n;

   Writeln(‘tong la:’,T:3);

   Readln

   End.

   Bình luận

2. Program tinh_tong;

   Uses crt;

   Var i: byte;

          T: real;

   Begin

   T:=0;

   For i:= 5 to 100 do 

   T:= T+ 1/i;

   Writeln (‘Tong cua day la:’,T:5:2);

   Readln

   End.

   Bình luận