Viết chương trình tính tổng nghịch đảo: `S= 1 + 1/2 + 1/3 +…+ 1/N` với N được nhập từ bàn phím

0 bình luận về “Viết chương trình tính tổng nghịch đảo: `S= 1 + 1/2 + 1/3 +…+ 1/N` với N được nhập từ bàn phím”

1. Program tongnghichdao;
   Uses crt;
   var n,i : integer;
   s : real;
   begin clrscr;
   s:=0;
   write(‘Nhap n tu ban phim :’); readln(n);
   for i:=1 to n do s:=s+1/i;
   write(‘Tong nghich dao can tinh la :’, s:3:2);
   readln
   end.

   Bình luận

2. program tinhtongnghichdao;

   uses crt;

   var i, n : integer; S : real;

   begin

   clrscr;

   writeln(‘n=’); readln(n);

   S:=0; i:=1;

   while i<=n do begin

   S:=S+1/i; i:=i+1;

   end;

   writeln(‘Tong la: ‘,S:2:3);

   readln

   end.

    

   Bình luận