C1. Mô tả thuật toán và viết chương trình tính tổng của số từ 1 đến 10 ( bằng câu lệnh While...do C2. Mô tả thuật toán và viết chương trình tính tổng : S = 2/3 + 4/5 + 6/7 + .....+2n/2n + 1

C1.

B1: i←1;

B2: T←T+i;

B3: Nếu i<=10 thì i←i+1 rồi quay lại B2;

B4: Thông báo kết quả.

.

program c1;
uses crt;
var i,t:integer;
Begin
        clrscr;
        i:=1;
        while i<=10 do
        begin
                T:=t+i;
                i:=i+1;
        end;
        write('tong = ',T);
        readln
End.

C2.

B1: Nhập n;

B2: i←i+1;

B3: S←S+2*i/(2*(i+1));

B4: Nếu i<=n thì quay lại B2;

B5: Thông báo kết quả.

.

program c2;
uses crt;
var n,i:integer;
    S:real;
Begin
        clrscr;
        write('n = ');readln(n);
        for i:=1 to n do S:=S+2*i/(2*i+1);
        write('tong = ',S:2:2);
        readln
End.

Câu 1:

*Mô tả thuật toán:

Bước 1: S←0; i←0;

Bước 2: Nếu i>=10 thì đến bước 4

Bước 3: i←i+1; S←S+i; Quay lại bước 2

Bước 4: Xuất S và kết thúc

*Viết chương trình:

Program baitap;

Uses crt;

Var S,i:integer;

Begin

Clrscr;

S:=0; i:=0;

While i<10 do

     Begin

     i:=i+1;

     S:=S+i;

     End;

Writeln('Ket qua:',S);

Readln

End.

Câu 2:

*Mô tả thuật toán:

Bước 1: Nhập n

Bước 2: i←0; S←0;

Bước 3: Nếu i>=n thì đi đến bước 5

Bước 4: i←i+1; S←S+(2*n)/(2*n+1); Quay lại bước 3

Bước 5: Xuất S và kết thúc

*Viết chương trình:

Program baitap;

Uses crt;

Var n,i:integer;

      S:real;

Begin

Clrscr;

Write('n='); Readln(n);

S:=0; 

For i:=1 to n do S:=S+(2*n)/(2*n+1);

Writeln('Ket qua:',S:5:2);

Readln

End.