Dân tin học HP có thích lập trình...

Dân tin học HP có thích lập trình...

Nếu ai có thích lập trình thì mail đến cho tôi
huyfam21@yahoo.com
Có rất nhiều Đề tài và chu Đề hay.
Chúng ta sẽ cùng giải quyết
Giải thử bài toán sau

Tìm tất cả các số có 10 chữ số thoả mãn đk
a0:số chữ số 0 xuất hiện trong số đó
a1:số chữ số 1 xuất hiện trong số đó
.
.
a9:số chữ số 9 xuất hiện trong số đó

Động não một tí !!

Động não làm cái gì, bài này dễ quá, mà U đang học lớp Tin dưới HP à?

GemCloud
​

Đừng giở giọng đó ra đây,có giỏi thì làm đi

ối dồ ôi! Sao mà bài này chuối thế! không còn bài nào hay hơn sao mà phải thế! Tìm thuật những chủ đề mà thuật toán nó hấp dẫn hơn 1 chút đi! khôgn có ý khinh thường nhưng mà bài này mà đem đó thì buồn cười quá!
NAMBOY@

He he! Chú ngochp nhà mình thì dư sức giải bài này nhỉ?
Interceptor

Chào bạn Sailor Black !
Nếu thực sự bạn thích lập trình như vậy sao không thử vào forum:
http://www.diendantinhoc.org/cgi-bin/forum.cgi
Trang chủ
http://www.diendantinhoc.net
Ở đấy có lẽ thích hợp với bạn hơn, có đủ loại chuyên đề ASM,C,PERI, System... Hiện nay số thành viên của nó cũng tới gần hai ngàn người chủ yếu là dân công nghệ thông tin.
Ngoài ra nếu muốn trao đổi về tin học bạn cũng có thể liên hệ với mình tại forum ASSEMBLER club ( user name hamTienSinh Moderator Of ASM Club )
ở diên đàn tin học, và về các chủ đề sau :
- Lập trình kernel Mode program
- Xây dựng một chương trình diệt virus mã nguồn mở cho diễn đàn tin học
- Các kỹ thuật hack và crack
Thân !
Phạm Tiên Sinh


PTS
[/size=9]

Sailorblack làm anh mày nổi máu sĩ diện rồi đấy. Cho mail đi tôi gửi source cho

GemCloud
​

Quên mất, U cho mail rồi nhỉ. Tí nữa ngochp sẽ gửi

GemCloud
​

{
PROG:10 CHU SO
LANG: PASCAL
}
{File INPUT: 10 so la a0, ..., a9
File OUTPUT: Cac so tim duoc
}
{Phan tich bai toan: Test lau nhat la test a0 = a1 = ... = a9 = 1
Ket qua la 3265920, chay o may cua minh mat khoang 10s (nhung neu khong
in ra file ket qua (rat lon co 30MB) ma chi tinh so cau hinh
thi cuc nhanh co do 1s thoi)
The nhe, thac mac gi mail lai ngochp@yahoo.com
}
{$R-,S-,N+}
program tendigits;
const
tfi = 'td.in';
tfo = 'td.out';
sl = 10;
type
mangw = array [1..sl] of integer;
manga = array [0..9] of integer;
var
fi, fo : text;
a : manga;
w : mangw;
sch : longint;
(*---------------------------------------*)
procedure nhap;
var
i : integer;
begin
assign(fi, tfi); reset(fi);
for i := 0 to 9 do read(fi, a);
close(fi);
end;
(*---------------------------------------*)
procedure checksai;
var
i, s : integer;
begin
s := 0;
for i := 0 to 9 do s := s + a;
if s <> sl then {tong a0, ..., a9 <> 10}
begin
assign(fo, tfo); rewrite(fo);
writeln(fo, 'So cau hinh: ', 0);
writeln('So cau hinh: ', 0);
close(fo);
halt;
end;
end;
(*---------------------------------------*)
procedure inkq;
var
i : integer;
begin
inc(sch);
for i := 1 to sl do write(fo, w);
writeln(fo);
end;
(*---------------------------------------*)
procedure try(v : integer);
var
i : integer;
begin
for i := 0 to 9 do
if (a > 0) and
((i <> 0) or (v > 1)) then
begin
w[v] := i;
dec(a);
if v = sl then inkq else try(v + 1);
inc(a);
end;
end;
(*---------------------------------------*)
procedure main;
begin
assign(fo, tfo); rewrite(fo);
sch := 0;
try(1);
writeln(fo, 'So cau hinh: ', sch);
writeln('So cau hinh: ', sch);
close(fo);
end;
(*---------------------------------------*)
begin
nhap;
checksai;
main;
end.

GemCloud
​

Hic! Anh Ngochp của chúng ta vẫn có máu sĩ diện như ngày xưa và luôn là cao xủ tin học. Anh viết bài này ở dưới HP đó hả? Anh về HP từ hôm thứ 6 rùi mờ.
Interceptor