Dạo qua một số diễn đàn thấy mục Pascal rất sôi động !! Vậy sao NVFC không thử nhỉ !!?? Ai có bài khó lên đây nha Mở màn 1 bài trước
Trăm bò trăm cỏ Bò đứng ăn năm Bò nằm ăn ba Bò già ba con ăn một
Tính số bò mỗi loại bằng pascal ^^ [Nhớ viết thuật ra nhé]
11/12/2009, 8:14 pm
Hoàn Thành NV :
Ryo : 344
Tổng số bài gửi : 84
Ngày tham gia : 19/09/2009
Được Cảm Ơn : 5
Tiêu đề: Re: Khai trương topic tin học THPT ^^
Đây là bài toán dùng vòng for.
Có thể giải như sau, giả sử dung là số bò đứng, và nam là số bò nằm, thì: - Lặp tất cả các trường hợp của số bò đứng: dung=0->20 (tối đa là 20 con, tương ứng với số cỏ 100) - Với mỗi trường hợp của số bò đứng, thì số bò nằm có thể là: nam=0->(100-5*dung)/3 (tức là tối đa tương ứng với số cỏ còn lại chia cho 3 = 100-5 lần số bò đứng rồi chia 3) - Khi đó, số bò già chỉ có thể là 100-dung-nam, ta kiểm tra điều kiện số bò già phải bằng 3 lần số cỏ còn lại: 3*(100-5*dung-3*nam). Nếu điều kiện đúng thì in ra kết quả.
var dung, nam: integer; begin for dung:=0 to 20 do for nam:=0 to (100-5*dung) div 3 do if 100-dung-nam = 3*(100-5*dung-3*nam) then writeln('Dung:', dung,' Nam:', nam,' Gia:', 100-dung-nam); readln; end.
11/12/2009, 8:16 pm
Hoàn Thành NV :
Ryo : 344
Tổng số bài gửi : 84
Ngày tham gia : 19/09/2009
Được Cảm Ơn : 5
Tiêu đề: Re: Khai trương topic tin học THPT ^^
Còn có cách giải khác" 5x+3y+z/3=100
x+y+z=100
Dùng 3 vòng lặp cho nó chạy là OK
Bài này đã được thảo luận trên báo THNT ( không nhớ số mấy), rất đầy đủ và chi tiết. Có cách này nữa: -
'TrauDung+TrauNam+Traugia=100
'TRauDung*5+TrauNam*3+TrauGia\3=100
private sub CmdSoTrau_click()
Dim TRauDung As integer
Dim TRauNam As integer
Dim TRauGia As integer
TrauNam=1
do while ( traunam<100 )
traugia=(600-6*traunam)\7
if (traugia mod 3=0) then
exit do
else
traunam=traunam+1
end if
loop
traugia=(600-6*traunam)\7
traudung=100-(traugia+Traunam)
txtTrauDung.text=TrauDung
txtTraunam.text=Traunam
TxtTraugia.text=TrauGia
end sub Máy không có chương trình để chạy thử nên đành pohand
11/12/2009, 9:23 pm
Hoàn Thành NV :
Ryo : 10433
Tổng số bài gửi : 2011
Ngày tham gia : 21/04/2008
Status : NVFC ngôi nhà thứ 2 của Naruto Fan
Được Cảm Ơn : 415
Tiêu đề: Re: Khai trương topic tin học THPT ^^
Lấy ở mạng thì ghi rõ nguồn chứ !! thuật thứ 1 là đúng rồi !! Có gắng phát huy !!
12/12/2009, 4:11 pm
Hoàn Thành NV :
Ryo : 2513
Tổng số bài gửi : 423
Ngày tham gia : 26/02/2009
Status : kumogakure là zô đối
Được Cảm Ơn : 66
Tiêu đề: Re: Khai trương topic tin học THPT ^^
èo học tóan lý hóa còn chết lên chết xuống nữa mà học tin mà gặp pascal thì .......... học đâu wên đó =))
12/12/2009, 6:31 pm
Hoàn Thành NV :
Ryo : 2493
Tổng số bài gửi : 758
Ngày tham gia : 19/08/2009
Được Cảm Ơn : 85
Tiêu đề: Re: Khai trương topic tin học THPT ^^
Đúng là Pascal thì có ĐH cũng phải chết , mấy cái lệnh rồi là thư mục , nghe thấy đã muốn chết rồi. Nào là khai báo tên lệnh rồi lung tung. Đố các bác 1 bài
..::BIẾN ĐỔI MỘT XÂU VỀ MỘT KÍ TỰ ĐỊNH TRƯỚC::..
Cho xâu kí tự U = u(1)u(2)...u(n), trong đó u(i) thuộc {a,b,c} = X (i = 1,...,n). Các phép biến đổi sau đây (đánh số thứ tự từ 1 đến 9) cho phép thay thế hai kí tự liên tiếp nhau trong xâu đã cho bởi một kí tự: 1) aa => x(1); 2) ab => x(2); 3) ac => x(3); 4) ba => x(4); 5) bb => x(5); 6) bc => x(6); 7) ca => x(7); 8) cb => x(8); 9) cc => x(9); trong đó x(i) thuộc X, i = 1, 2, ..., 9. Cần tìm cách áp dụng lần lượt các phép toán biến đổi đã có để chuyển xâu U về một kí tự định trước w thuộc X. Dữ liệu vào cho trong một file văn bản có tên là XAU.INP có cấu trúc như sau:
Dòng đầu tiên chứa số n.
N dòng tiếp theo, mỗi dòng chứa một kí tự của xâu U theo thứ tự từ u(1) đến u(n).
Dòng thứ i trong số 9 dòng tiếp theo chứa chữ cái x(i), i = 1, ..., 9.
Dòng cuối cùng chứa chữ cái w.
Kết quả được ghi ra file văn bản XAU.OUT theo quy cách sau:
Dòng đầu tiên ghi số lượng phép biến đổi M cần áp dụng để chuyển xâu U thành chữ cái w, dòng này ghi số 0 nếu không tìm được phép biến đổi như vậy.
Nếu có thể biến đổi dãy đã cho về một kí tự thì dòng thứ i trong số M dòng tiếp theo ghi số thứ tự của phép biển đổi cần sử dụng và các chỉ số của hai phần tử liên tiếp nhau trong dãy đang biến đổi cần thay thế bằng một kí tự.
VÍ DỤ: XAU.INP 5 B B B B A B B A C B A A C C A XAU.OUT 4 5 2 3 4 3 4 5 1 2 6 1 2 Dãy biến đổi có thể mô tả trong sơ đồ sau: BBBBA =>(5) BBBA =>(4) BBC =>(5) BC =>(6) A Ng` : Google
12/12/2009, 6:38 pm
Hoàn Thành NV :
Ryo : 2493
Tổng số bài gửi : 758
Ngày tham gia : 19/08/2009
Được Cảm Ơn : 85
Tiêu đề: Re: Khai trương topic tin học THPT ^^
Còn bài này nữa ĐỀ BÀI: Một dãy số nguyên được gọi là đối xứng nếu đọc xuôi hay đọc ngược đều như nhau.Ví dụ: 23 11 15 1 37 37 1 15 11 23 1 1 2 3 4 7 7 10 7 7 4 3 1 1 Một dãy đối xứng đơn điệu nếu đi từ trái vào giữa,, các phần tử không giảm đi và khi đi từ giữa ra phải (do tính đối xứng), các phần tử không tăng. Trong ví dụ trên, dãy thứ nhất không phải là dãy đối xứng đơn điệu, còn dãy thứ hai là dãy đối xứng đơn điệu. Một dãy đối xứng đơn điệu đuợc gọi là một cách phân tích đối xứng đơn điệu của số nguyên N, nếu tổng của các số trong dãy bằng N. Dưới đây là là ví dụ các vách phân tích đối xứng đơn điệu của một vài số nguyên. 1: (1) 2: (2) , (1 1) 3: (3) , (1 1 1) 4: (4) , (1 2 1) , (2 2) , (1 1 1 1) 5: (5) , (1 3 1) , (1 1 1 1 1) 6: (6) , (1 4 1) , (2 2 2) , (1 1 2 1 1) , (3 3) , (1 2 2 1) , (1 1 1 1 1 1) 7: (7) , (1 5 1) , (2 3 2) , (1 1 3 1 1) , (1 1 1 1 1 1 1) 8: (8) , (1 6 1) , (2 4 2) , (1 1 4 1 1), (1 2 2 2 1) , (1 1 1 2 1 1 1) , (4 4) , (1 3 3 1) , (2 2 2 2) , (1 1 2 2 1 1) , (1 1 1 1 1 1 1 1) Yêu cầu : đưa vào một số nguyên dương N. Hãy tính có bao nhiêu cách phần tính đối xứng đơn điệu của N.
Dữ liệu : Vào từ file PHANTICH.INP : gồm nhiều dòng. Mỗi dòng chứa một số nguyên dương N ( N < 500). Dòng cuối cùng chứa số ) cho biết kết thúc.
Kết quả: đưa ra file văn bản PHANTICH.OUT : gồm nhiều dòng. Ứng mỗi giá trị N đưa vào ( trừ dòng cuối cùng ), đưa ra trên mỗi dòng hai số nguyên dương cách nhau bởi một khoảng trắng: N và số cách phân tích đối xứng đơn điệu của N.
* 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
NARUTOFC.COM NVFC Official Vietnam Fan Site. Powered by phpBB® Version 2.0.0 Licensed Xem tốt nhất ở độ phần giải lớn hơn 1024x768 và trình duyệt Firefox BQT không chịu bất cứ trách nhiệm nào từ nội dung bài viết của thành viên. Hiện tại có tất cả :lượt truy cập [Từ 21/05/11]
lượt truy cập [Từ 21/05/11] 
11/12/2009, 4:13 pm
học đâu wên đó =))
mấy bác. Tui đọc mà chả hiểu tí gì cả T.T
