1. Sử dụng lệnh for…do viết chương trình tính tổng của N số tự nhiên đầu tiên, với N được nhập vào từ bàn phím.
2.Sử dụng lệnh for…do viết chương trình tính tích của N số tự nhiên đầu tiên, với N được nhập vào từ bàn phím.
1. Sử dụng lệnh for…do viết chương trình tính tổng của N số tự nhiên đầu tiên, với N được nhập vào từ bàn phím.
2.Sử dụng lệnh for…do viết chương trình tính tích của N số tự nhiên đầu tiên, với N được nhập vào từ bàn phím.
Cách 1:
Bước 1: Gán cho S:=1/a ; gán cho N=0;
Bước 2: Tăng giá trị N lên 1. N:=N+1;
Bước 3: Nếu N > 100 thì chuyển đến bước 5;
Bước 4: S:=S+1/(a+N); quay lại bước 2 (Thao tác lặp ở đây).
Bước 5: Đưa S ra màn hình rồi kết thúc.
Cách 2:
Bước 1: Gán cho S:=1/a ; gán cho N=101;
Bước 2: Giảm giá trị N xuống 1. N:=N-1;
Bước 3: Nếu N<1 thì chuyển đến bước 5;
Bước 4: S:=S+1/(a+N); quay lại bước 2 (Thao tác lặp ở đây).
Bước 5: Đưa S ra màn hình rồi kết thúc.
1/
Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write(‘Nhap n: ‘);readln(n);
for i:=1 to n do
s:=s+i;
Write(‘Tong day so tren la: ‘,s);
readln;
end.
2/
Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write(‘Nhap n: ‘);readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
Write(‘Tich day so tren la: ‘,s);
readln;
end.