Bài 4: Tính tổng sau: S=1+1/2+1/3+…+1/N

Tìm



hiểu cú pháp



◦Repeat …until

◦While …do



1.

2.

3.

4.

5.

6.

7.



Tính tổng các các số chắn từ 1 tới N.

Tính tổng các số lẻ từ 1 tới N.

Tính tổng các số chia hết cho 3 từ M tới N

(M
Tính N!=1*2*3*…*N.

Tính tích các số chẵn từ 1 tới N.

Tính tích các số lẻ từ 1 tới N.

Tính tổng sau:

S=1+1/2+1/3+…+1/N



8.

9.

10.



Viết chương trình kiểm tra tính ngun tố của một số

nguyên dương N.

Viết chương trình in ra các số nguyên tố từ 1…N

Viết chương trình in ra như sau:

a. Hình chữ nhật: (với chiều dài, chiều rộng nhâp từ bàn

phím)

Nhập chiều rộng:10

Nhập chiều dài:5

**********

**********

**********

**********

**********



Hình tam giác cân:

Nhập độ dài cạnh:5

*

**

***

****

*****

b.



a.



Repeat…Until

 Cú pháp:

Repeat

;

Until ;

 Công dụng: Thực hiện công việc cho tới khi biểu thức

điều kiện có giá trị đúng.



Program vidu;

Uses crt;

Var

N:integer;

Begin

clrscr;

repeat

write(‘Nhap so nguyen duong N:’);

readln(N);

until N>0;

End.



b.



While…do

 Cú pháp:

While Do

Begin

;

End.

 Công dụng: Trong khi biểu thức điều kiện còn đúng thì

vẫn thực hiện công việc.



Program vidu;

Uses crt;

Var

N:integer;

Begin

clrscr;

N:=-1;

while N<0 do

begin

write(‘Nhap so nguyen duong N:’);

readln(N);

end;

End.



1.



2.



Tính tổng sau:

S=1+1/2+1/3+…+1/N

Tính tổng sau:

S=1/(a+1)+1/(a+2)+…+1/

(a+N)

Cho đến khi 1/(a+N) < 0,0001