nguyenquocbao

Nhưng cho dù mình đã liệt kê được 8 phần tử thì cũng đâu có thể khẳng định được là nó có cấp 8, đâu có gì đảm bảo là mình đã liệt kê hết các phần tử của nó vì vẫv có thể có một phần tử nào đó mà mình chưa tìm ra được.

Không biết bạn định viết bằng chương trình gì ? Nếu viết bằng Pascal thì mình có ý kiến như sau :
Số hoàn thiện là số thế nào thì mình quên rồi ! (chắc bạn phải nhắc cho mình !)
Còn bài thứ hai thì theo mình có thể làm như sau :
Trước hết cho một biến i chạy từ 2 đến n ( dùng vòng lập for ), với mỗi i cho j chạy từ 2 đến i-1 (dùng vòng lập while với điều kiện dừng là j > i-1 hoặc i chia hết cho j), dùng một biến để đánh dấu (giả sử là biến d và gán giá trị đầu cho d là 0), nếu i chia hết cho j thì gán giá trị 1 cho d. Khi vòng lập while kết thúc, nếu d = 0 tức là i không chia hết cho bất kỳ số nào nhỏ hơn nó nên i là số nguyên tố và xuất giá trị của i ra màn hình, ngược lại nếu d = 1 có nghĩa là i đã chia hết cho ít nhất một số nào đó nhỏ hơn i nên i không là số nguyên tố. (Cho j chạy đến i-1 là hơi dư, thực ra chỉ cần cho chạy đến phần nguyên của i/2 là đủ).
Có thể làm theo cách hai như sau (dùng sàn nguyên tố) :
Gán mỗi số (khác 1) nhỏ hơn hoặc bằng n cho một biến trong một mảng (array) a[i]nào đó. Cho i chạy từ 2 đến n, với mỗi a[i] cho j chạy từ i+1 đến n, nếu a[j] nào chia hết cho a[i] thì gán a[j] = 0. Sau khi hai vòng lập kết thúc thì những số khác 0 còn lại chính là số nguyên tố.

Mình còn quên một chuyện là bạn phải dời góc toạ độ về giữa màn hình và vẽ hai trục toạ độ nữa vì góc toạ độ mật dịnh trong Pascal là góc trái màn hình. Trong chương trình mình mới post lên không có hai việc này nên bạn tự vẽ nhé. Nếu không thì hãy gởi mail cho mình, chỉ có điều bạn sẽ mệt khi đọc nó đó vì mình nhớ không nhầm thì nó có khoảng hơn hai chục chương trình con lận.

Mình còn quên một chuyện là bạn phải dời góc toạ độ về giữa màn hình và vẽ hai trục toạ độ nữa vì góc toạ độ mật dịnh trong Pascal là góc trái màn hình. Trong chương trình mình mới post lên không có hai việc này nên bạn tự vẽ nhé. Nếu không thì hãy gởi mail cho mình, chỉ có điều bạn sẽ mệt khi đọc nó đó vì mình nhớ không nhầm thì nó có khoảng hơn hai chục chương trình con lận.

Việc khởi tạo chế độ đồ hoạ trong Pascal bạn có thể viết thành một thủ tục như sau :
procedure khoitao(path:string);
var gd,gm,gr:integer;
begin
detectgraph(gd,gm);
initgraph(gd,gm,path);gr:=graphresult;
if gr<>grok then
begin
restorecrtmode;
write('Loi khoi tao do hoa',grapherrormsg(gr));
readln;halt(1);
end;
end;Trong đó ìpath” là đường dẫn đến thư mục chứa các tập tin BGI trên máy của bạn.
Còn thủ tục vẽ đồ thị bậc hai có thể viết như sau :
procedure vedothib2(a,b,c:real;mau:byte); {a,b,c là các hệ số của hàm số, mau là biến qui định màu vẽ của đồ thị }
var mx,my:integer;x,y,i:real;
begin
i:=left+10;
while i<=right-10 do
begin
x:=i/30;mx:=round(i);
y:=a*x*x+b*x+c;
my:=-ad(round(y*20));
putpixel(mx,my,mau);
i:=i+1/100;
end;
end;Cuối cùng bạn có thể viết chương trình chính để vẽ đồ thị hàm bậc hai như sau :
Uses crt,graph;
Var a,b,c :real; mau : byte;
Begin
Writeln(‘Nhap cac he so cua ham so : ‘);
Repeat
Write(‘He so a : ‘);readln(a);
If a = 0 then write(‘He so a phai khac 0 ‘);{dòng này để phòng khi bạn nhập hệ số a = 0, khi đó hàm không còn là hàm bậc hai nữa}
Untile a<>0;
Write(‘He so b : ‘);readln(b);
Write(‘He so c : ‘);readln©;
Write(‘Nhap mau ve cua do thi : ‘);readln(mau);
Khoitao(‘c:\bp\bgi’);{ đây là đường dẫn đến thu mục chứa các tập tin BGI của mình, nếu máy của bạn có đường dẫn khác thì thay đổi nhé}
vedothib2(a,b,c,mau);
readln;{lệnh này là dùng để dừng màn hình cho bạn xem đồ thị, xem xong rồi chỉ việc nhấn Enter }
closegraph;
end.Nếu bạn cần mình có thể gởi cho bạn một chương trình khảo sát hàm số bậc hai, bậc ba, bậc bốn và hai àm phân thức bậc hai trên một và bậc hai trên hai.
( Chương trình không tối ưu đâu vì do mình tự viết mà, nhưng bạn có thể tham khảo vì bài này là tiểu luận khi kết thúc học phần của mình)
Gởi cho mình một email vào địa chỉ [email protected] nếu bạn cần chương trình của mình để xem.