pascal[cô-ca]

[Tiểu my]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

nam là một kẻ nghiện cô ca, rất khó để cậu ấy uống đủ số cô ca cậu cần, điều đáng buồn là nam lại không có nhiều tiền, Nhiều khi cậu ta phải nhặt thêm vỏ lon bán đi để có tiền mua cô ca.Một ngày nọ, Nam quyết định dùng số vỏ lon đang có để mua nhiều lon cô ca nhất có thể. Thậm chí những lon cô ca mới mua sau khi uống hết cũng được bán đi để mua lon mới.Hãy viết chương trình tính xem nam có thể uống được tối đa bao nhiêu lon cô ca
-Nhập 3 số nguyên dương a,b,c lần lượt là số vỏ lon của Nam đang có, số vỏ lon của Nam kiếm thêm và số vỏ lon cần bán để có một lon cô ca mới.
vd:
9 0 3
=> kết quả: 4

 

[son_gohan]

Mình dùng đệ quy được không bạn?

program CocaCola;
uses crt;
var a,b,c,kq: integer;
function so_lon_coca(a,b,c:integer):integer;
begin
if((a+b)<c) then so_lon_coca:=0
else
so_lon_coca:= (a+b) div c+so_lon_coca((a+b) div c,(a+b) mod c,c);
end;
begin
writeln('Nam thich uong coca, hehe)');
a:=9;b:=0;c:=3;
kq:=so_lon_coca(a,b,c);
writeln(kq);
end.

 

[Tiểu my]

Mình dùng đệ quy được không bạn?

program CocaCola;
uses crt;
var a,b,c,kq: integer;
function so_lon_coca(a,b,c:integer):integer;
begin
if((a+b)<c) then so_lon_coca:=0
else
so_lon_coca:= (a+b) div c+so_lon_coca((a+b) div c,(a+b) mod c,c);
end;
begin
writeln('Nam thich uong coca, hehe)');
a:=9;b:=0;c:=3;
kq:=so_lon_coca(a,b,c);
writeln(kq);
end.

nhập bao nhiêu chương trình cũng ra kết quả là 4 hết bạn

 

[son_gohan]

nhập bao nhiêu chương trình cũng ra kết quả là 4 hết bạn

Mình đã cho chạy thử trên IDE Free Pascal được mà bạn?

 

[huutoan00]

nhập bao nhiêu chương trình cũng ra kết quả là 4 hết bạn

a:=9;b:=0;c:=3;

chỗ này đáng nhẽ phải là nhập chứ

 

[son_gohan]

chỗ này đáng nhẽ phải là nhập chứ

Mình đưa số vào thử chương trình cho nhanh í mà