Câu hỏi: viết chương trình tính tổng s=1+1/2+1/3+...+1/n
Lời giải:
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln['Nhap so thu n: ']; readln[n];
S:=0; i:=1;
while i := < Giá trị đầu >to< Giá trị cuối >do< Câu lệnh >;
Trong đó:
+ For, to, dolà các từ khóa
+ Biến đếm là biến kiểu nguyên
+ Giá trị đầu, giá trị cuối là các giá trị nguyên
Lưu ý:
+ Giá trị đầu phải nhỏ hơn giá trị cuối
+ Câu lệnh không làm thay đổi giá trị của biến đếm
+ Nếu câu lệnh nhiều hơn một lệnh thì phải đặt trong cặp Begin … end
Hoạt động của vòng lặp:
+ Bước 1: Biến đếm nhận giá trị đầu
+ Bước 2: Chương trình kiểm tra biểu thức điều kiện, nếu biểu thức điều kiện đúng thì thực hiện câu lệnh
+ Bước 3: Biến đếm tự động tăng lên 1 đơn vị và quay lại Bước 2
+ Bước 4: Nếu biểu thức điều kiện nhận giá trị sai thì thoát ra khỏi vòng lặp
Ví dụ 3:Chương trình sau sẽ in ra màn hình thứ tự lần lặp.
Chương trình mẫu:
PHP:
Ví dụ 4:In một chữ "O" trên màn hình.
Chương trình mẫu:
PHP:
4. Tính tổng và tích bằng câu lệnh lặp
Ví dụ 5:Chương trình sau đây sẽ tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím.
Chương trình mẫu:
PHP:
Ví dụ 6:Ta kí hiệu N! là tích N số tự nhiên đầu tiên: N! = 1.2.3…N.
Chương trình mẫu:
PHP:
Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên.
Viết chương trình tính tổng các số từ 1 đến 100. Viết chương trình tính tổng các số từ 1 đến N.
Viết chương trình tổng các số chẵn từ 1 đến N.
Viết chương trình tính N giai thừa.
Viết chương kiểm tra xem N có phải số nguyên tố hay không.
Viết chương trình ra màn hình các số nguyên tố nhỏ hơn N.
Viết chương trình vẽ ra hình chữ nhật có chiều ngang là W, chiều dọc là H, với W và H là 2 số nguyên nhập từ bàn phím.
Viết chương trình nhập không giới hạn số, kết thúc khi nhập vào số 0.
Viết chương trình tìm số hạng thứ N của dãy Fibonacci: 1 ; 1 ; 2 ; 3 ; 5 ; 8 ; 11 ; . . . {\displaystyle 1;1;2;3;5;8;11;...}