:: Quên mật khẩu ::


Gửi bài mới Trả lời chủ đề này
<b>-» Devil_nhok_x «-</b>
free pascal ...
Tue Jul 29, 2008 5:11 pm


huhuhu
Thành viên bị kỷ luật
Status:

Nam
Bài gửiTiêu đề: free pascal ...
có bạn nào thích lập trình ko nè. mình chỉ bit mối PC thui. đừng nói C hay brafic nha. aj có bài tập j hay hay thi post len cho vui ti nao.


|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


<b>-» Devil_nhok_x «-</b>
free pascal ...
Wed Jul 30, 2008 9:47 am


GateWay
Administator
Status:
Administator
Nam
Bài gửiTiêu đề: Re: free pascal ...
huhuhu đã viết:
có bạn nào thích lập trình ko nè. mình chỉ bit mối PC thui. đừng nói C hay brafic nha. aj có bài tập j hay hay thi post len cho vui ti nao.

Thử tài cái nào đi thi đạt giải cao mà không biết làm được bài này không !
Giải thưởng : Nếu làm được SET MOD BOX lập trình Very Happy

Bài tập 1 là :
Code:
Hệ thống giao thông trong một thành phố bao gồm N nứt giao thông và M đoạn đường phố hai chiều, mỗi đoạn nối 2 nút giao thông. Các nút giao thông được đánh số từ 1 đến N và các đoạn đường phố được đánh số từ 1 đến M. Giữa 2 nút giao thông có không quá một đoạn đường phố nối chúng. Hệ thống giao thông đảm bảo sự đi lại giữa hai nút giao thông bất kỳ. Ban quản lý hệ thống giao thông giao nhiệm vụ thực hiện dự án nâng cấp tất cả các đoạn đường phố. Mọi sự đi lại theo đoạn đường phố sẽ bị cấm trong suốt thời gian thực hiện thi công nâng cấp bất cứ đoạn đường phố nào cũng là 1 ngày và trong một ngày Ban quản lý có thể tổ chức thực hiện việc thi công nâng cấp đồng thời không quá K đoạn đường phố. Để đảm bảo sự đi lại giữa 2 nút giao thông bất kỳ trong suốt thời gian thực hiện dự án, Ban quản lý cần tìm lịch thi công các đoạn đường một cách hợp lý.
Yêu cầu: Tìm lịch thi công nâng cấp tất cả các đoạn đường phố đảm bảo sự đi lại giữa hai nút giao thông bất kỳ trong suốt quá trình thực hiện dự án, đồng thời sao cho dự án được hoàn thành sau ít ngày nhất.
Dữ liệu: vào
+ Dòng đầu tiên chứa 3 số nguyên dương N, M, K (2<=N<=500; 1<=M<=20000; 1<=K<=N).
+ Dòng thứ i trong số M dòng tiếp theo chứa cặp hai số liệu của hai nút giao thông tương ứng là hai đầu mút của đoạn đường phố thứ i.
Các số trên cùng một dòng được ghi cách nhau bởi dấu cách.
Kết quả: Ghi ra
+ Dòng đầu tiên ghi P là số ngày cần thực hiện theo lịch thi công tìm được (Quy ước ghi P = -1, nếu không tìm được lịch thỏa mãn yêu cầu đặt ra).
+ nếu tìm được lịch thì dòng thức i trong số M dòng tiếp theo ghi chỉ số của ngày thực hiện thi công nâng cấp đoạn đường thứ i. Các ngày trong lịch thực hiện dự án được đánh số từ 1 đến P theo đúng trình tự thời gian.

Bài tập 2 :
Code:
Dãy số Fibonaci là dãy số F1,F2...Fn được tạo ra với công thức
 F1 = F2 = 1
 Fn = Fn-1 + Fn-2 (n>2)
Áp dụng chương trình con, hãy viết hàm đệ quy để tính Fn với N là số nhập từ bàn phím

Ngồi đấy mà khóc nhé ! Razz Laughing


|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


<b>-» Devil_nhok_x «-</b>
free pascal ...
Wed Jul 30, 2008 9:57 am


huhuhu
Thành viên bị kỷ luật
Status:

Nam
Bài gửiTiêu đề: Re: free pascal ...
code bài 2 nè admin. nhưng anh phải có giới hạn n chứ. ko thì đệ quy đến tối ah.
var n:integer;
function fi(a:integer):longint;
begin
if a<3 then fi:=1
else fi:=fi(a-1)+fi(a-2);
end;
begin
readln(n);
write(fi(n));
end.

thế là ok nha
bài 1 thì đợi em 15 phut


|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


<b>-» Devil_nhok_x «-</b>
free pascal ...
Wed Jul 30, 2008 9:59 am


huhuhu
Thành viên bị kỷ luật
Status:

Nam
Bài gửiTiêu đề: Re: free pascal ...
admin oi bai 2 cho em vài cái test được ko để em cobnf thử chớ


|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


<b>-» Devil_nhok_x «-</b>
free pascal ...
Wed Jul 30, 2008 11:55 am


GateWay
Administator
Status:
Administator
Nam
Bài gửiTiêu đề: Re: free pascal ...
huhuhu đã viết:
admin oi bai 2 cho em vài cái test được ko để em cobnf thử chớ

Cần mấy bài khác thử hả ??? :-/
Bài kia khó quá phải không ??? Wink

Bài tập nè dễ nè :
Code:
Trong NNLT Pascal, viết thủ tục đệ quy đảo các chữ số của một số.
Ví dụ đọc vào số : 12345 và In ra : 54321

Code:
 
Bài tập lớp 11 nè :
Bài 1:
Viết chương trình nhập từ bàn phím số nguyên dương N (N nhỏ hơn hoặc bằng 100) và dãy A gồm N số nguyên A1, A2, ....An có gí trị tuyệt đối không lớn hơn 1000. Hãy cho biết dãy A có phải là 1 cấp số cộng không và thông báo kết quả ra màn hình.

Bài 2:
Viết chương trình nhập từ bàn phím số nguyên dương N(N nhỏ hơn hoặc bằng 100 ) và dãy A gồm N số nguyên A1, A2, ....An có gí trị tuyệt đối không lớn hơn 100. Hãy đưa ra những thông tin sau:
a) Số lượng số chẵn và số lẻ trong dãy;
 số lượng số nguyên tố trong dãy.
Em làm được thì thông báo cho anh anh SET MOD cho hoặc pm cho Vũ cũng được !


|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


<b>-» Devil_nhok_x «-</b>
free pascal ...
Thu Jul 31, 2008 3:33 pm


huhuhu
Thành viên bị kỷ luật
Status:

Nam
Bài gửiTiêu đề: Re: free pascal ...
admin trêu em hả. bài thế này mà tận 11 mới đc học sao. xem em code nè. xem chừng chắc chắn đc làm mod rùi ....
bài 1:
var n.i,d:longint;
kt:boolean;
a:array[1..100] of longint;
begin
readln(n);
kt:=true;
read(a[1]);
for i:=2 to n do
begin
read(a[i]);
if kt=true then
begin
if (i<>2)and(a[i]-a[i-1]<>d) then kt:=false
else d:=a[i]-a[i-1];
end;
end;
writeln(kt);
end.

hehehe... ok rui
bai 2 co can phai code ko admin?????????


|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


<b>-» Devil_nhok_x «-</b>
free pascal ...
Thu Jul 31, 2008 10:13 pm


GateWay
Administator
Status:
Administator
Nam
Bài gửiTiêu đề: Re: free pascal ...
anh chưa test thử nhưng chắc em làm được thì mới dám post !
Làm Mod thì phải hay vào 4rum, em có làm đc điều này không ?
Nếu được pm cho anh vào ngày mai !


|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


<b>-» Devil_nhok_x «-</b>
free pascal ...
Sat Aug 02, 2008 10:33 pm


happypooh
Điều hành viên
Status:
 Điều hành viên
Nữ
Bài gửiTiêu đề: Re: free pascal ...
Íh, trên trường em phải học tích cực mấy cái Pascal này, tại em lớp chuyên Tin, màh lọt lỗ tai bên này, ra lỗ tai bên kia hết àh TToTT!



_________________

>>> Đừng cóa mà click vào, chít áh <<<
|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


<b>-» Devil_nhok_x «-</b>
free pascal ...
Thu Aug 07, 2008 9:25 pm


hungsaudau
Ma già
Status:
Ma già
Bài gửiTiêu đề: Re: free pascal ...
bài tập 1 của anh admin giống bài thì trong hội thi tin học trẻ ở đà nẵng wé


|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


<b>-» Devil_nhok_x «-</b>
free pascal ...
Thu Aug 07, 2008 9:27 pm


hungsaudau
Ma già
Status:
Ma già
Bài gửiTiêu đề: Re: free pascal ...
cái passcan này 11 mình học rùi nhưng học trớt trớt-chắc giờ phải coi lại mới dc


|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


<b>-» Devil_nhok_x «-</b>
free pascal ...
Today at 5:28 pm


Sponsored content
Status:
Bài gửiTiêu đề: Re: free pascal ...


|||||||||||| Hãy cùng chia sẻ với bạn bè bằng cách ||||||||||||

Copy đường link dưới đây gửi đến nick yahoo bạn bè!


free pascal ...Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang
* Viết tiếng Việt có dấu, là tôn trọng người đọc.
* Chia sẻ bài sưu tầm có ghi rõ nguồn, là tôn trọng người viết.
* Thực hiện những điều trên, là tôn trọng chính mình.
-Nếu chèn smilies có vấn đề thì bấm A/a trên phải khung viết bài
Permissions in this forum:Bạn không có quyền trả lời bài viết
Quảng cáo rao vặt 24h :: 

Lập trình

-
<-------------------------------->
|
Bookmarks

free pascal ...

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down
Tue Jul 29, 2008 5:11 pm
huhuhu

Cấp bậc thành viên
Danh vọng:
19%/1000%

Tài năng:%/100%

Liên lạc

Thông tin thành viên
» Nam
» Tổng số bài gửi : 19
» Hệ thống điểm chất lượng :
0 / 1000 / 100

» Hệ thống cảnh cáo :
0 / 1000 / 100

» Registration date : 29/07/2008
» Hiện giờ đang:

Bài gửiTiêu đề: free pascal ...


có bạn nào thích lập trình ko nè. mình chỉ bit mối PC thui. đừng nói C hay brafic nha. aj có bài tập j hay hay thi post len cho vui ti nao.

Chữ ký của thành viên

Wed Jul 30, 2008 9:47 am
Funny
GateWay
Administator

Cấp bậc thành viên
Danh vọng:
249%/1000%

Tài năng:%/100%

Liên lạc
http://chinhphuc.co.cc

Thông tin thành viên
» Nam
» Tổng số bài gửi : 249
» Nơi sông : Tam Hợp - Bình Xuyên - Vĩnh Phúc
» Nghề nghiệp : Fall in The World IT
» Tài vặt : Funny
» Tâm trạng :
» Hệ thống điểm chất lượng :
100 / 100100 / 100

» Hệ thống cảnh cáo :
0 / 1000 / 100

» Registration date : 26/07/2008
» Hiện giờ đang:

Bài gửiTiêu đề: Re: free pascal ...


huhuhu đã viết:
có bạn nào thích lập trình ko nè. mình chỉ bit mối PC thui. đừng nói C hay brafic nha. aj có bài tập j hay hay thi post len cho vui ti nao.

Thử tài cái nào đi thi đạt giải cao mà không biết làm được bài này không !
Giải thưởng : Nếu làm được SET MOD BOX lập trình Very Happy

Bài tập 1 là :
Code:
Hệ thống giao thông trong một thành phố bao gồm N nứt giao thông và M đoạn đường phố hai chiều, mỗi đoạn nối 2 nút giao thông. Các nút giao thông được đánh số từ 1 đến N và các đoạn đường phố được đánh số từ 1 đến M. Giữa 2 nút giao thông có không quá một đoạn đường phố nối chúng. Hệ thống giao thông đảm bảo sự đi lại giữa hai nút giao thông bất kỳ. Ban quản lý hệ thống giao thông giao nhiệm vụ thực hiện dự án nâng cấp tất cả các đoạn đường phố. Mọi sự đi lại theo đoạn đường phố sẽ bị cấm trong suốt thời gian thực hiện thi công nâng cấp bất cứ đoạn đường phố nào cũng là 1 ngày và trong một ngày Ban quản lý có thể tổ chức thực hiện việc thi công nâng cấp đồng thời không quá K đoạn đường phố. Để đảm bảo sự đi lại giữa 2 nút giao thông bất kỳ trong suốt thời gian thực hiện dự án, Ban quản lý cần tìm lịch thi công các đoạn đường một cách hợp lý.
Yêu cầu: Tìm lịch thi công nâng cấp tất cả các đoạn đường phố đảm bảo sự đi lại giữa hai nút giao thông bất kỳ trong suốt quá trình thực hiện dự án, đồng thời sao cho dự án được hoàn thành sau ít ngày nhất.
Dữ liệu: vào
+ Dòng đầu tiên chứa 3 số nguyên dương N, M, K (2<=N<=500; 1<=M<=20000; 1<=K<=N).
+ Dòng thứ i trong số M dòng tiếp theo chứa cặp hai số liệu của hai nút giao thông tương ứng là hai đầu mút của đoạn đường phố thứ i.
Các số trên cùng một dòng được ghi cách nhau bởi dấu cách.
Kết quả: Ghi ra
+ Dòng đầu tiên ghi P là số ngày cần thực hiện theo lịch thi công tìm được (Quy ước ghi P = -1, nếu không tìm được lịch thỏa mãn yêu cầu đặt ra).
+ nếu tìm được lịch thì dòng thức i trong số M dòng tiếp theo ghi chỉ số của ngày thực hiện thi công nâng cấp đoạn đường thứ i. Các ngày trong lịch thực hiện dự án được đánh số từ 1 đến P theo đúng trình tự thời gian.

Bài tập 2 :
Code:
Dãy số Fibonaci là dãy số F1,F2...Fn được tạo ra với công thức
 F1 = F2 = 1
 Fn = Fn-1 + Fn-2 (n>2)
Áp dụng chương trình con, hãy viết hàm đệ quy để tính Fn với N là số nhập từ bàn phím

Ngồi đấy mà khóc nhé ! Razz Laughing

Chữ ký của thành viên

Wed Jul 30, 2008 9:57 am
huhuhu

Cấp bậc thành viên
Danh vọng:
19%/1000%

Tài năng:%/100%

Liên lạc

Thông tin thành viên
» Nam
» Tổng số bài gửi : 19
» Hệ thống điểm chất lượng :
0 / 1000 / 100

» Hệ thống cảnh cáo :
0 / 1000 / 100

» Registration date : 29/07/2008
» Hiện giờ đang:

Bài gửiTiêu đề: Re: free pascal ...


code bài 2 nè admin. nhưng anh phải có giới hạn n chứ. ko thì đệ quy đến tối ah.
var n:integer;
function fi(a:integer):longint;
begin
if a<3 then fi:=1
else fi:=fi(a-1)+fi(a-2);
end;
begin
readln(n);
write(fi(n));
end.

thế là ok nha
bài 1 thì đợi em 15 phut

Chữ ký của thành viên

Wed Jul 30, 2008 9:59 am
huhuhu

Cấp bậc thành viên
Danh vọng:
19%/1000%

Tài năng:%/100%

Liên lạc

Thông tin thành viên
» Nam
» Tổng số bài gửi : 19
» Hệ thống điểm chất lượng :
0 / 1000 / 100

» Hệ thống cảnh cáo :
0 / 1000 / 100

» Registration date : 29/07/2008
» Hiện giờ đang:

Bài gửiTiêu đề: Re: free pascal ...


admin oi bai 2 cho em vài cái test được ko để em cobnf thử chớ

Chữ ký của thành viên

Wed Jul 30, 2008 11:55 am
Funny
GateWay
Administator

Cấp bậc thành viên
Danh vọng:
249%/1000%

Tài năng:%/100%

Liên lạc
http://chinhphuc.co.cc

Thông tin thành viên
» Nam
» Tổng số bài gửi : 249
» Nơi sông : Tam Hợp - Bình Xuyên - Vĩnh Phúc
» Nghề nghiệp : Fall in The World IT
» Tài vặt : Funny
» Tâm trạng :
» Hệ thống điểm chất lượng :
100 / 100100 / 100

» Hệ thống cảnh cáo :
0 / 1000 / 100

» Registration date : 26/07/2008
» Hiện giờ đang:

Bài gửiTiêu đề: Re: free pascal ...


huhuhu đã viết:
admin oi bai 2 cho em vài cái test được ko để em cobnf thử chớ

Cần mấy bài khác thử hả ??? :-/
Bài kia khó quá phải không ??? Wink

Bài tập nè dễ nè :
Code:
Trong NNLT Pascal, viết thủ tục đệ quy đảo các chữ số của một số.
Ví dụ đọc vào số : 12345 và In ra : 54321

Code:
 
Bài tập lớp 11 nè :
Bài 1:
Viết chương trình nhập từ bàn phím số nguyên dương N (N nhỏ hơn hoặc bằng 100) và dãy A gồm N số nguyên A1, A2, ....An có gí trị tuyệt đối không lớn hơn 1000. Hãy cho biết dãy A có phải là 1 cấp số cộng không và thông báo kết quả ra màn hình.

Bài 2:
Viết chương trình nhập từ bàn phím số nguyên dương N(N nhỏ hơn hoặc bằng 100 ) và dãy A gồm N số nguyên A1, A2, ....An có gí trị tuyệt đối không lớn hơn 100. Hãy đưa ra những thông tin sau:
a) Số lượng số chẵn và số lẻ trong dãy;
 số lượng số nguyên tố trong dãy.
Em làm được thì thông báo cho anh anh SET MOD cho hoặc pm cho Vũ cũng được !

Chữ ký của thành viên

Thu Jul 31, 2008 3:33 pm
huhuhu

Cấp bậc thành viên
Danh vọng:
19%/1000%

Tài năng:%/100%

Liên lạc

Thông tin thành viên
» Nam
» Tổng số bài gửi : 19
» Hệ thống điểm chất lượng :
0 / 1000 / 100

» Hệ thống cảnh cáo :
0 / 1000 / 100

» Registration date : 29/07/2008
» Hiện giờ đang:

Bài gửiTiêu đề: Re: free pascal ...


admin trêu em hả. bài thế này mà tận 11 mới đc học sao. xem em code nè. xem chừng chắc chắn đc làm mod rùi ....
bài 1:
var n.i,d:longint;
kt:boolean;
a:array[1..100] of longint;
begin
readln(n);
kt:=true;
read(a[1]);
for i:=2 to n do
begin
read(a[i]);
if kt=true then
begin
if (i<>2)and(a[i]-a[i-1]<>d) then kt:=false
else d:=a[i]-a[i-1];
end;
end;
writeln(kt);
end.

hehehe... ok rui
bai 2 co can phai code ko admin?????????

Chữ ký của thành viên

Thu Jul 31, 2008 10:13 pm
Funny
GateWay
Administator

Cấp bậc thành viên
Danh vọng:
249%/1000%

Tài năng:%/100%

Liên lạc
http://chinhphuc.co.cc

Thông tin thành viên
» Nam
» Tổng số bài gửi : 249
» Nơi sông : Tam Hợp - Bình Xuyên - Vĩnh Phúc
» Nghề nghiệp : Fall in The World IT
» Tài vặt : Funny
» Tâm trạng :
» Hệ thống điểm chất lượng :
100 / 100100 / 100

» Hệ thống cảnh cáo :
0 / 1000 / 100

» Registration date : 26/07/2008
» Hiện giờ đang:

Bài gửiTiêu đề: Re: free pascal ...


anh chưa test thử nhưng chắc em làm được thì mới dám post !
Làm Mod thì phải hay vào 4rum, em có làm đc điều này không ?
Nếu được pm cho anh vào ngày mai !

Chữ ký của thành viên

Sat Aug 02, 2008 10:33 pm
Có năng khíu làm ng` khác cười
happypooh
 Điều hành viên

Cấp bậc thành viên
Danh vọng:
105%/1000%

Tài năng:22%/100%

Liên lạc
http://ehapo.co.cc/

Thông tin thành viên
» Nữ
» Tổng số bài gửi : 105
» Age : 22
» Nơi sông : Hồ Chí Minh
» Nghề nghiệp : Học sinh, tớ thích nghe nhạc, xem phim hoạt hình ^^, và rất rất thích máy tính và
» Tài vặt : Có năng khíu làm ng` khác cười
» Hệ thống điểm chất lượng :
300 / 100300 / 100

» Hệ thống cảnh cáo :
10 / 10010 / 100

» Registration date : 02/08/2008
» Hiện giờ đang:

Bài gửiTiêu đề: Re: free pascal ...


Íh, trên trường em phải học tích cực mấy cái Pascal này, tại em lớp chuyên Tin, màh lọt lỗ tai bên này, ra lỗ tai bên kia hết àh TToTT!

Chữ ký của thành viên

_________________

>>> Đừng cóa mà click vào, chít áh <<<

Thu Aug 07, 2008 9:25 pm
hungsaudau
Ma già

Cấp bậc thành viên
Danh vọng:
15%/1000%

Tài năng:%/100%

Liên lạc

Thông tin thành viên
» Tổng số bài gửi : 15
» Hệ thống điểm chất lượng :
0 / 1000 / 100

» Hệ thống cảnh cáo :
0 / 1000 / 100

» Registration date : 05/08/2008
» Hiện giờ đang:

Bài gửiTiêu đề: Re: free pascal ...


bài tập 1 của anh admin giống bài thì trong hội thi tin học trẻ ở đà nẵng wé

Chữ ký của thành viên

Thu Aug 07, 2008 9:27 pm
hungsaudau
Ma già

Cấp bậc thành viên
Danh vọng:
15%/1000%

Tài năng:%/100%

Liên lạc

Thông tin thành viên
» Tổng số bài gửi : 15
» Hệ thống điểm chất lượng :
0 / 1000 / 100

» Hệ thống cảnh cáo :
0 / 1000 / 100

» Registration date : 05/08/2008
» Hiện giờ đang:

Bài gửiTiêu đề: Re: free pascal ...


cái passcan này 11 mình học rùi nhưng học trớt trớt-chắc giờ phải coi lại mới dc

Chữ ký của thành viên

Today at 5:28 pm
Sponsored content

Cấp bậc thành viên
Danh vọng:
%/1000%

Tài năng:%/100%

Liên lạc

Thông tin thành viên » Hiện giờ đang:

Bài gửiTiêu đề: Re: free pascal ...



Chữ ký của thành viên



Trả lời nhanh
Trang 1 trong tổng số 1 trang
Powered by: phpBB2 - Copyright ©2000 - 2010, GNU General Public License.
Skin Halloween HDviet.Us.To- Rip by Ligerv
Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Sosblogs.com