Đề: S=1/2+1/3+…+1/n. Hãy viết cú pháp câu lệnh lặp của đề trên .

0 bình luận về “Đề: S=1/2+1/3+…+1/n. Hãy viết cú pháp câu lệnh lặp của đề trên .”

1. Cú pháp : for(biến đếm):

   = <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

   Áp dụng: for i:=2 to n do S:=S+ 1/i;

   Chúc bạn học tốt

   Bình luận

2. Program tinh_tong;

   Uses crt; 

   Var i,n: integer;

          S: real;

   Begin 

   Write (‘Nhap n=’);

   Readln (n);

   S:=0;

   For i:=2 to n do 

   S:=S+ 1/i;

   Writeln (‘Tong S la:’,S:7:4);

   Readln

   End.

   Cú pháp: for <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

   Áp dụng: for i:=2 to n do S:=S+ 1/i;

   Bình luận