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

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 yiyiducnhat”

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. Mô tả thuật toán

   B1: Nhập n

   B2: s—>0

   B3: i—->1 to n  do s —->s+1/i

   B4: Thông báo giá trị s

   B5: Kết thúc thuật toán

   Chương trình:

   Program BTH;
   Uses Crt;
   var i,n:integer;
   s:real;
   Begin
   Clrscr;
   Write(‘Nhap so n: ‘);readln(n);
   For i:=1 to n do
   s:=s+1/i;
   writeln(‘Tong day so tren la: ‘,s:4:2);
   readln;
   End.

   Nếu bạn lớp 8 thì bạn nên làm theo chương trình của mình cho dễ hiểu với hợp cách lớp 8 hơn

   Bình luận