#1  
Củ 19-10-2007, 09:34 PM
Ngân Hý's Avatar
 Ngân Hý Ngân Hý vẫn chưa có mặt trong diễn đàn
MAD SMOD
 
Tham gia ngày: Sep 2007
Nơi Cư Ngụ: HCM CITY
Bài gởi: 3,330
Cảm ơn: 462
Thanked 578 Times in 338 Posts
Send a message via Yahoo to Ngân Hý
Bài toán trăm trâu trăm cỏ giải bằng Pascal

Em vừa học xong fần Cấu trúc lặp
for...to...do
thầy cho 1 bài về làm như sau:
Có trăm trâu trăm cỏ
Trâu đứng ăn 5
Trâu nằm ăn 3
Trâu già 3 con ăn 1 bó
Hỏi có bao nhiu trâu đứng, trâu nằm, trâu già!

Gọi x, y, z lần lượt là số trâu đứng, trâu nằm và trâu già
Trâu đứng ăn 5 => số cỏ ăn là 5x => số trâu đứng nhỏ hơn 20
Trâu nằm ăn 3 => số cỏ ăn được là 3y => số trâu nằm nhỏ hơn hoặc bằng 33
Trâu già = 100 - trâu đứng - trâu nằm.




Program tramtrautramco;
uses crt;
var x, y, z: integer ;
begin
clrscr ;
writeln('Bai toan tram trau tram co') ;
for x:=1 to 20 do
for y:= 1to 33 do
Begin
z:=100-x-y;
If ((5*x + 3*y + z/3) = 100) then writeln('Trau dung: ', x:3 ,' trau nam: ', y:3 ,' trau gia: ', z:3) ;
End ;
Readln
End.
Các bạn xem dùm mình nhé! Lỗi nhiều đây!
__________________
UGLY GIRL
--------------------------------------------------------
Con người là loại động vật kỳ lạ và nguy hiểm nhất
To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.
------------------------------------------------

Thứ 2 là ngày đầu tuần - con chó nó cắn con heo - thứ 3, thứ 4, thứ 5 ngày nào cũng mang đi chích, thứ 6 rùi đến thứ 7! con heo nó chết queo, chủ nhật cả nhà đều vui vì có heo bó giò, là lá la lá là....!

To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.

thay đổi nội dung bởi: Ngân Hý, 19-10-2007 lúc 09:58 PM
Trả Lời Với Trích Dẫn
  #2  
Củ 19-10-2007, 10:19 PM
LDL's Avatar
 LDL LDL vẫn chưa có mặt trong diễn đàn
Tổng Tư Lệnh
 
Tham gia ngày: Aug 2006
Bài gởi: 1,827
Cảm ơn: 365
Thanked 727 Times in 347 Posts
mặt giải thuật thì bài này bạn phải dùng 3 vòng lặp lồng nhau, mỗi loại trâu là 1 biến (x, y, z) với 3 biến đếm tăng dần (i , j , k)
=====
z là integer nên sẽ bị lỗi chổ z/3 bạn phải thay bằng z div 3
và trong câu lệnh if bạn phải AND với đk z%3= 0 (z chia hết cho 3)
__________________
♥ღNothing is impossibleღ♥

To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.
Trả Lời Với Trích Dẫn
  #3  
Củ 20-10-2007, 11:57 AM
Ngân Hý's Avatar
 Ngân Hý Ngân Hý vẫn chưa có mặt trong diễn đàn
MAD SMOD
 
Tham gia ngày: Sep 2007
Nơi Cư Ngụ: HCM CITY
Bài gởi: 3,330
Cảm ơn: 462
Thanked 578 Times in 338 Posts
Send a message via Yahoo to Ngân Hý
cảm ơn anh Long nhé!
__________________
UGLY GIRL
--------------------------------------------------------
Con người là loại động vật kỳ lạ và nguy hiểm nhất
To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.
------------------------------------------------

Thứ 2 là ngày đầu tuần - con chó nó cắn con heo - thứ 3, thứ 4, thứ 5 ngày nào cũng mang đi chích, thứ 6 rùi đến thứ 7! con heo nó chết queo, chủ nhật cả nhà đều vui vì có heo bó giò, là lá la lá là....!

To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.
Trả Lời Với Trích Dẫn
  #4  
Củ 20-10-2007, 12:50 PM
ldbl_a13's Avatar
 ldbl_a13 ldbl_a13 vẫn chưa có mặt trong diễn đàn
Lớp Lá
 
Tham gia ngày: Sep 2006
Bài gởi: 88
Cảm ơn: 0
Thanked 8 Times in 5 Posts
ủa bài này có thể dùng phương trình nghiệm nguyên được , còn phép lặp là gì sao mình không biết ha :d
__________________
đời chỉ thay đổi khi chúng ta thay đổi.

To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.
Trả Lời Với Trích Dẫn
  #5  
Củ 01-09-2010, 12:13 PM
anht2k19's Avatar
 anht2k19 anht2k19 vẫn chưa có mặt trong diễn đàn
Lớp Mầm
 
Tham gia ngày: Sep 2010
Bài gởi: 2
Cảm ơn: 0
Thanked 0 Times in 0 Posts
[arr] Bài toán trăm trâu trăm cỏ giải bằng Pascal

bạn chỉ cần xóa dòng lệnh "uses crt" và "clrscr" thì chạy được ngay,chương trình của bạn viết tốt đấy! Chúc bạn thành công!
Trả Lời Với Trích Dẫn
  #6  
Củ 01-09-2010, 01:53 PM
hoangtubp's Avatar
 hoangtubp hoangtubp vẫn chưa có mặt trong diễn đàn
Kiss The Rain
 
Tham gia ngày: Sep 2009
Bài gởi: 1,026
Cảm ơn: 345
Thanked 496 Times in 279 Posts
Send a message via Yahoo to hoangtubp
cái này mình học bên C+ chứ ko học bên này lúc trước có giải rùi dùng vòng lặp
__________________

To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.
Trả Lời Với Trích Dẫn
Trả lời

Ðiều Chỉnh
Xếp Bài

Quyền Sử Dụng Ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

Chuyển đến

Similar Threads
Ðề tài Người Gởi Chuyên mục Trả lời Bài mới gởi
Vô định nhạc Flash ( Ai thích tải vào tải nè vài trăm bài ) huuthangpro NHẠC FLASH 0 04-09-2008 09:38 PM
HELP ! bài toán pascal ! imeem YÊU CẦU - THẮC MẮC IT 18 20-12-2007 08:15 AM
Ăn tất niên cùng trăm món thịt heo!!! LDL XÓM NHÀ LÁ... 14 20-01-2007 06:18 PM


Múi giờ GMT. Hiện tại là 09:52 PM.
Powered by: vBulletin Version 3.x.x & C3DONGXOAI.COM
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.