Câu 1: Viết chương trình tính tổng n số nguyên từ 1 đến n, với n dược nhập từ bàn phím?
Câu 2: Mô tả thuật toán tính tổng số nguyên từ 1 đến n , với n được nhập từ bàn phím?
Câu 1: Viết chương trình tính tổng n số nguyên từ 1 đến n, với n dược nhập từ bàn phím? Câu 2: Mô tả thuật toán tính tổng số nguyên từ 1 đến n , với n
By Melody
Input : số nguyên n
Output : Tổng các số từ 1 đến n (S)
Thuật toán
b1 : S := 0 ; i := 1;
b2 : i := i + 1; S := S + i;
b3 : Nếu i ≤ n thì quay lại bước `2` else in `S` và end.
Chương trình
program az;
uses Crt;
var i,n : integer;
S : longint;
begin
clrscr;
Write(‘Nhap n = ‘); readln(n);
S := 0;
For i:=1 to n do S := S + i;
Write(‘S = ‘,S);
readln
end.
1.
program ctpt;
uses crt;
var n, i, S: integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
S:=0;
for i:=1 to n do S:=S+i;
write(‘Tong = ‘, S);
readln
end.
2.
In: số nguyên n.
Out: S.
MT:
B1: S ← 0.
B2: i ← i + 1; S ← S+i.
B3: Nếu i > n thì thông báo S và KTTT ngược lại quay lại bước 2.