bạn có thể làm mẩu cho mình dc hok?
vào đây dể xem cách tìm các số nguyên tố nhỏ hơn n(bạn chỉ cần tìm các số <= n div 2 thôi) http://ddth.com/showthread.php?t=148960
sau đó chia cho từng số trong mảng nguyên tố:
(*so_luong là số các số nguyên tố tìm dc, mu[i]là số mũ của nguyen_to[i]*)
for i:=1 to so_luong do
if n mod(nguyen_to[i]=0)then
begin
inc(mu[i]);
n:=n div nguyento[i];
end;
write('n=');
for i:=1 to so_luong do
if mu[i]>0 then
write(nguyento[i],'^',mu[i]);
Các vabj ai cũng biết cái máy tính bỏ túi CASIO 500MS, thầy mình giao bài tập: đưa ra màn hình các câu VD : ấn 1 để giải PT bậc 2
Ấn 2.........
Ấn 3.........
Sau khi ấn tiếp tục nhập a b c để tính PT bậc 2
hoắc nhập a b c và a' b' c' để giải hệ PT
nói chung nó như 1 cái máy tính bỏ túi vậy...Giúp mình nhé Thax nhiều
bạn có biết "case..of" không,nếu không thì dùng if..then cũng dc. viết 3 chương trình con giải quyết 3 phần, sau đó dùng rẽ nhánh để xem in ra kết quả của chương trình con nào.
ai giúp em bài này với ... tính định thức của ma trận cấp 3 (
Các anh chj có bài nào khó hơn ko, em làm nhàm lắm rồi, em phải đi thi hsg môn pascal này cho nên em lo lắm, mong các anh các chj cho em bài nào khó khó về mảng một tý. Thank!!!
[=========> Bổ sung bài viết <=========]
anh chj ơi làm giúp em bài này, nó khó quá: Tạo một quả bóng chuyển động ở màn hình pascal cho đến khi keypressed
Được sửa bởi Pascalhaynhat lúc 19:47 ngày 26-11-2008 Reason: Bổ sung bài viết
tinh
s=1/1!+1/2!+...............+1/n! cho den khi 1/n! < 2*10^-6
ban nao biet thi post nhanh cho minh nha
mình xin giải bài số 6 nhé
program tongcacchusu;
var n,du,tong:integer;
begin
write('nhap so nguyen n:');
read(n);
tong:=0;
repeat
du:=n mod 10;
tong:=tong+du;
n:=n div 10;
until n=0;
write('tong cac chu so cua n:',tong);
readln
end.
Viết chương trình chơi đỗ xúc sắc( có 5 người chơi)
Bookmarks