- 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


lúc 22:22 14 tháng 11, 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


lúc 00:06 16 tháng 3, 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.


lúc 22:42 25 tháng 4, 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 đó


lúc 22:49 25 tháng 4, 2013
Unknown 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


lúc 14:15 18 tháng 9, 2013
Unknown 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.


lúc 23:04 16 tháng 11, 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.


lúc 12:33 3 tháng 4, 2016
Unknown nói...

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


lúc 17:32 24 tháng 8, 2016
Unknown nói...

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


lúc 17:33 24 tháng 8, 2016
Unknown nói...

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


lúc 22:27 17 tháng 10, 2016
Đậu Xuân Doanh nói...

Lời giải nào tiết kiệm được bộ nhớ và thời gian làm việc của máy tính nhất thì nên học tập!


lúc 09:02 28 tháng 3, 2017
Đậu Xuân Doanh nói...

var ga,cho:byte;
begin
for cho:=1 to 24 do
begin
ga:=36-cho;
if (cho*4+ga*2)=100 then
begin
writeln(' tong so con cho se la:' cho);
writeln(' tong so con ga se la:',ga);
end;
end;


lúc 09:10 28 tháng 3, 2017
Hoàng Minh Tâm nói...

khi đã tính toán trên oi ko cần phải khai báo 36 nữa tránh thao tác thừa nên cho 25 đc oi


lúc 16:03 18 tháng 10, 2019
Kim oanh nói...

Ngta hạn chế số vòng lặp thôi bạn, chó tối đa là 25 con vì tổng cộng có 100 chân


lúc 08:15 17 tháng 1, 2020
Kim oanh nói...

Tổng gà và chó là 36 mà bạn cho gà chạy đến 50 là dư vòng lặp rất nhiều


lúc 08:17 17 tháng 1, 2020

Đă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.