Question

Có thể dùng cậu lệnh while-do để thay cho câu lệnh for-do được không? Nếu được hãy thực hiện điều đó với chương trình Tong_1a.

Answer 1

 

Chào bạn manh7a1

- Có thể sử dụng câu lệnh while-do để thay cho câu lệnh for-do được. Vì ta có thể sử dụng các câu lệnh giúp thoát khỏi vòng lặp, hoặc có thể sử dụng những câu lệnh để thoát lặp.

program Tongtien;

uses crt;

var S:real;

    a,n: integer;

begin

          clrscr;

          writeln('hay nhap gia tri cua a ');

          readln(a);

          S:=1.0/a;

          while N<=</span>100 do

          begin

                   S:=S+1.0/(a+N);

                   N:=N+1;

          end;

          writeln('Tong S la:',S:8:4);

          readln;

end.

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

-Yasou-(QTV)