Lập trình

**Registration date :** 29/07/2008

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.

**Registration date :** 26/07/2008

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

**Registration date :** 29/07/2008

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

**Registration date :** 29/07/2008

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

**Registration date :** 26/07/2008

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 !

**Registration date :** 29/07/2008

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?????????

**Registration date :** 26/07/2008

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 !