Bài tập turbo pascal

tải về 0.6 Mb.

trang	13/42
Chuyển đổi dữ liệu	27.02.2022
Kích	0.6 Mb.
	#51050

1 ... 9 10 11 12 13 14 15 16 ... 42

100 bài tập pascal
13234

b.Mã chương trình:

var f,g: text;

n,i: integer;

ok: boolean;

begin

Assign(f,’bai3_9.inp’); reset(f);

Assign(g,’bai3_9 .out’); rewrite(g);

readln(f,n);

ok:=true;

for i:= 2 to n - 1 do if n mod i = 0 then

ok :=false;

if ok then write(g,n,' la so nguyen to')

else write(g,n, ' khong la so nguyen to');

close(f); close(g);

end.

c. Nhận xét: Ở đây ta sử dụng biến có kiểu logic (Đúng, sai). Chỉ cần một lần n mod i = 0 thì sau khi thực hiện xong vòng lặp ok có giá trị là false.

Bài tập 3.10

Viết chương trình in ra tất cả các số nguyên tố bé hơn hoặc bằng n?

a. Hướng dẫn:

- Cho i chạy từ 2 đến n.

- Xét i. Nếu nó là số nguyên tố thì in nó ra.

b. Mã chương trình:

var f,g: text;

n, i, j: integer;

ok: boolean;

begin

Assign(f,’bai3_10.inp’); reset(f);

Assign(g,’bai3_10.out’); rewrite(g);

readln(f,n);

for i := 2 to n do

begin

ok:=true;

for j:= 2 to i - 1 do if i mod j = 0 then

ok :=false;

if ok then write(g,i,';')

end;

close(f); close(g);

end.

tải về 0.6 Mb.

Chia sẻ với bạn bè của bạn:

1 ... 9 10 11 12 13 14 15 16 ... 42