Cần giúp đỡ giải toán

[tung053]

Mấy bác ơi! em vừa mới học lập trình được vài ngày, cụ thể là ngôn ngữ pascal.
Bài toán như sau :
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.
Cần tìm số gà và chó?
Rất mong được giúp đỡ.

[KoNgung]

1 : tự đặt phương trình mà giải rồi in ra
2 : cứ chạy 2 vòng for , một là số gà , hai là số chó , rồi cộng lại , cộng luôn chân xem thỏa mãn ko .
hehe , tui kém nhưng mà cũng có thể bày cho những thằng kém hơn mình

[tung053]

Bài toán này nếu đem giải ra tập thì đơn giản rồi nhưng ko biết nên trình bày ra pascal như thế nào.

[phamduyvt]

viết bằng ngôn ngữ mã giả rùi tự chuyển sang pascal nhe
for i=1 to 25 (chó)
for j=1 to 36 (gà)
if(i*4+j*2=100)
{
xuất kết quả: chó: i; gà: j
}

[tung053]

Ghi rõ ra dùm luôn đi anh.

[phongluu]

chó = (100-36*2)/2 = 14
gà = 36- chó = 22

[whitepenguin]

tại sao mà biết là cho 25 ,gà 36 mà cho chạy vòng lặp ,giải bằng máy tính ai chio phép suy phương trình rồi tính ,thế thì là người tính rồi con gì

Giải thế này nè ,cho 1 vóng lặp chạy thôi :
gọi i là số gà
for (i=0;i<=37;i++)
{
if(i<37)
if((i*2+(36-i)*4)==100)
break;



}
nếu i <=36 thì có nghiệm
nếu i>36 vô nghiệm
so gà là i và số cho là 36-i;

[lee_huynh306]

Ủa đang ở box Pascal mà lại code = C vậy ta?

[thuonghcm]

bài này cao hon 1 chut nè:
100 trâu, 100 bó cỏ
trâu đứng ăn 5, trâu nằm ăn 3
trâu già 3 con 1 bó
hhoi? mấy trâu dung, trau nam, trau già?
Y/c giải =pp khác sách vở.
hihihihihi, tại bài dễ mà sách vở lại nói quá nhiều nên đề phải ra vay đó
các SƯ HUYNH thông cảm nhé....

[ducquang92]

bài này dễ gớm:
Var
a,b,c:integer;
Begin
For a:=1 to 20 do
For b:=1 to 35 do
For c:=1 to 100 do
if (a*5+b*3+c/3=100) and (a+b+c=100)then
Writeln(' so trau dung la ',a,' so trau nam la ',b,' so trau gia la ',c);
readln;
end.
Kết quả: " Bài này dễ wá, pascal không đưa ra kết quả"