Please enable JavaScript.

Coggle requires JavaScript to display documents.

Bài 8: Lặp với số lần chưa biết trước image - Coggle Diagram

- - - - Mô tả thuật toán bằng liệt kê:
        
        S<= 0, b <= 0.
        
        Nếu S ≤ 1000, chuyển tới bước 3; ngược lại chuyển tới bước 4.
        
        S<= S + n và quay lại bước 2
        
        In kết quả: S và n là số tự nhiên nhỏ nhất sao cho S > 1000. Kết thúc thuật toán( thuật toán chỉ dừng lại khi S>1000)
  - - - Cách đã biết với câu lệnh for...do
        
        uses crt;
        var T, i: integer;
        begin
        clrscr;
        T:=0;
        for i:=1 to 100 do T:=T+1/i;
        writeln('Tong T bang ',T);
        readln
        end.
      - Cách 2 với câu lệnh while...do
        
        uses crt;
        var T, i: integer;
        begin
        clrscr;
        T:=0; i:=0;
        while i<=100 do begin i:=i+1; T:=T+1/i end;
        writeln('Tong T bang ',T);
        readln
        end.