Bài tập tin 11 lập trình pascal

[leonala]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Tập A gồm các số tự nhiên xác định như sau:
+) 1 thuộc A
+) Nếu k thuộc A thì 2k+1 và 3k+1 cũng thuộc A.
Hãy in ra n (n<100) phần tử đầu tiên của A theo thứ tự tăng dần.

 

[lukaku1602]

Câu này mà ko làm dc a`
kém lắm . minh cũng ko lam dc haha#:-S&gt;&lt;%-(

 

[hoangha8394]

Bài này n chỉ có <=100 thì có thể sinh hết ra rồi đọc n vào và in ra a[n];

code core của mình như sau(chưa biên dịch và chạy thử )

Procedure prepare;
begin
a[1]:=1;
n:=1;j:=1;
// tìm n số đầu tiên(không phải số n đọc vào nhá)
while n<100 do
begin
p:=2*a[j]+1;
t:=3*a[j]+1;
ok:=true;
for i:=1 to n do if a=p then
begin
ok:=false;
break;
end;
if ok then
begin
inc(n);
a[n]:=p;
end;
ok:=true;
for i:=1 to n do if a=t then
begin
ok:=false;
break;
end;
if ok then
begin
inc(n);
a[n]:=t;
end;
end;
// sắp xếp lại
for i:=1 to n-1 do
for j:=i+1 to n do
if a>a[j] then
begin
tg:=a;a:=a[j];a[j]:=tg;
end;
//in ra n số
for i:=1 to n do write(a,#32);
end;