Mô tả thuật toán và viết chương trình tính S=1+1/2+1/3+…+1/n

0 bình luận về “Mô tả thuật toán và viết chương trình tính S=1+1/2+1/3+…+1/n”

1. Thuật toán:

   Bước 1: Nhập n

   Bước 2: s <- 0;

   Bước 3: i <- 1 to n 

   s <- s+1/i

   Bước 4: Xuất s

   Chương trình:

   Program BTT;
   Uses crt;
   Var  n,i: longint;
        s: extended;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do s:=s+1/i;
           Write(‘S = ‘,s:0:2);
           Readln
   End.

   Bình luận

2. Var i , n : integer

   S : real

   Begin

   write (‘n=’) ; read (n);

   S : =0;

   For i:=1 to n do S : =S+1/i

   Writeln (S) ;

   Readln ;

   End.

   Bình luận