Câu 7: Cho bài toán: S = 1 + 2 + 3 + … + n . Hãy: a) Mô tả thuật toán b) Viết chương trình tính tổng S (với n là số nguyên dương nhập từ bàn phím)

a)

Input: n.

Output: S.

B1: Nhập n

B2: i ← i + 1; S ← S+i

B3: Nếu i <= n thì quay lại bước 2

B4: Thông báo kết quả và kết thúc thuật toán.

b)

program tong;

uses crt;

var n,i,S:integer;

Begin

            clrscr;

            write('n = '); readln(n);

            for i:=1 to n do S:=S+i;

            write('Tong = ', S);

            readln

End.

a,

B1: nhập n,  S<--0

B2: i<--1, S<--S+i

B3: i<--i+1, nếu i<=n thì quay lại bước 2

B4: xuất ra màn hình S

b,

uses crt;

var S,n,i:integer;

begin

write('nhap n:');readln(n);

for i:=1 to n do S:=S+i;

writeln('S=',S);

readln;

end.