- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Bài toán gà chó



Vừa gà vừa chó, bó lại cho tròn, ba mươi sáu con, một trăm chân chẵn. Hỏi có bảo nhiêu chó gà?


Bài giải

+ Gọi số gà là x ( Điều kiện x nguyên dương, x< 36)
Thì số chó là 36 - x

Số chân gà là 2x, số chân chó là 4 (36 - x)
Tổng số chân là 100 nên theo bài ra ta có phương trình:
2x + 4(36 - x ) = 100

+ Giải phương trình trên :
2x + 4( 36 - x) = 100
=> x = 22

Lập trình trong Pascal


uses crt;
var g,c: integer;
begin
 clrscr;
 for c:=1 to 25 do
 begin
  g:=36-c;
  if 4*c+2*g=100 then
   write('So ga: ',g,' So cho: ',c);
 end;
 readln;
end.


Nặc danh nói...

Kaj cho for to 35 hay 25 la chjh xak jax


22:22 Ngày 14 tháng 11 năm 2012
Nặc danh nói...

Great blog you have here but I was curious if you
knew of any community forums that cover the same
topics discussed here? I'd really like to be a part of community where I can get feed-back from other experienced individuals that share the same interest. If you have any suggestions, please let me know. Thank you!

my web-site - Filing Bankruptcy In Florida


00:06 Ngày 16 tháng 03 năm 2013
Nặc danh nói...

25 là SAI rồi. Ai cho 25 vậy, máy tính cho hả? Hay là ông thầy ra đề cho luôn. Thà là số 36 mà vẫn ra kìa.


22:42 Ngày 25 tháng 04 năm 2013
Nặc danh nói...

uses crt;
var c: integer;
begin
clrscr;
for c:=1 to 36 do
if 4*c+2*(36-c) = 100 then
write('So ga: ',36-c,' So cho: ',c);
readln
end.
đảm bảo vẫn ra cần hok cần con số 25 đó


22:49 Ngày 25 tháng 04 năm 2013
quang nguyen nói...

cho hoi khong khai bao thu vien co chay dc k toi sai 7.0 bi loi 200 khi khai bao thu vien


14:15 Ngày 18 tháng 09 năm 2013
Đỗ Văn Vĩnh nói...

for c:=1 to 25 là đủ rồi, vì có 100 cái chân thì tối đa chỉ có 25 con chó. Nếu chạy đến 36 thi vòng lập phải kiểm tra thêm 11 lần (mà không có kết quả) dẫn đến thời gian xử lý chương trinh chậm, không tối ưu bài toán.


23:04 Ngày 16 tháng 11 năm 2015
Nặc danh nói...

loi giai khac
program gacho;
uses crt;
var g,c:integer;
begin
clrscr;
for c:=1 to 25 do {vi toi da 25 con cho}
for g:=1 to 50 do {vi toi da 50 con ga}
if (4*c+2*g=100) and (g+c=36} then write('so ga',g,'so cho',c);
readln
end.


12:33 Ngày 03 tháng 04 năm 2016
Unknown nói...

có ai biết giải bài này bằng matlab mfile kg chỉ mk với


17:32 Ngày 24 tháng 08 năm 2016
vu son nói...

có ai biết giải bài này bằng matlab mfile kg chỉ mk với


17:33 Ngày 24 tháng 08 năm 2016
long phan thanh nói...

25 là số chó max rồi 36 con thì có chó què


22:27 Ngày 17 tháng 10 năm 2016

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.