Câu 3 trang 51 SGK Tin học 11

Có thể thay thế đoạn chương trình chứa câu lệnh for-đo (dạng lặp tiến) for <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

bằng đoạn chương trình chứa câu lệnh while-do như sau:

i:= <giá trị đầu>;
while <i< = <giá trị cuối> do
    begin
        <câu lệnh>;
        <tăng i một đơn vị>,
    end;

Như vậy, chương trình tính Tong_la viết bằng lệnh for-do

program Tong__la;
USES crt;
VAR S: real, a, N: integer;

BEGIN
    clrscr;
    write('Hay nhap gia tri a vao!'); readln(a);
    S:= 1.0/a;
    for N:=1 to 100 do S: = S+1.0/ (a+N);
    writeln('Tong S la:', S:8:4);
    readln;
END.

được viết lại bằng lệnh while-do như sau:

Program Tong_la;

USES crt;
VAR S:real;
VAR a, N: integer;

BEGIN
    clrscr;
    write('Hay nhap gia tri a vao!'); readln(a);
    S:= 1.0/a;
    N:= 1;
    WHILE N<=100 DO
        BEGIN
            S:= s + 1.0/(a+N);
            N:= N + 1;
        END;
     writeln('Tong s la:', S:8:4);
     readln;
END;