GIÚP Ạ! HSG TIN HỌC 8, PASCAL Bài 2. TIỀN THỪA Trong một siêu thị, người mua hàng mua hàng rồi trả tiền tại quầy thu ngân. Số tiền khách hàng phải thanh toán s
GIÚP Ạ! HSG TIN HỌC 8, PASCAL Bài 2. TIỀN THỪA Trong một siêu thị, người mua hàng mua hàng rồi trả tiền tại quầy thu ngân. Số tiền khách hàng phải thanh toán sau khi mua hàng là T, khách hàng đưa số tiền K (T ≤ K; T, K là bội của 500). Em hãy giúp nhân viên tại quầy thu ngân tính số tiền thừa của khách hàng và trả lại tiền cho khách hàng sao cho tổng số tờ giấy bạc là ít nhất. Biết rằng tại quầy thu ngân chỉ có các loại giấy bạc 500 đồng, 1000 đồng, 2000 đồng và 5000 đồng với số lượng không hạn chế. - Yêu cầu: Hãy tính tiền thừa của khách hàng nếu có. Tính số tờ 500 đồng, 1000 đồng, 2000 đồng và 5000 đồng mà nhân viên quầy thu ngân cần phải tra lại cho khách hàng - Dữ liệu vào: Cho từ tệp văn bản TIENTHUA.INP có cấu trúc như sau: +Dòng thứ nhất ghi số tiền mua hàng của khách hàng là S (0
Lời giải 1 :
uses crt;
var
f:text;
t,k,s,a,a1,b,b1,c,c1,d:longint;
begin
clrscr;
assign(f,'d:\hoangchau\tienthua.inp');
reset(f);
read(f,t);
read(f,k);
close(f);
assign(f,'d:\hoangchau\tienthua.out');
rewrite(f);
s:= k-t;
writeln(f,'Tra lai:',s);
a:= s div 5000;
a1:= s-(a*5000);
b:=a1 div 2000;
b1:=a1-(b*2000);
c:=b1 div 1000;
c1:= b1-(c*1000);
d:=c1 div 500;
writeln(f,'so to 5000:',a,'to');
writeln(f,'so to 2000:',b,'to');
writeln(f,'so to 1000:',c,'to');
writeln(f,'so to 500:',d,'to');
close(f);
readln;
end.
=> xin hay nhất nhe
Thảo luận
Lời giải 2 :
BÀI LÀM
Program tienthua;
Uses CRT;
Var f:text;
t,k,s,a,b,c,d,e,f,j:Integer;
Begin
ClrScr;
Assign(f,'d:\pascal\tienthua.inp');
Reset(f);
Read(f,t);
Read(f,k);
Close(f);
Assign(f,'d:\pascal\tienthua.out');
Rewrite(f);
s:=k-t;
Writeln(f,'Tra lai:',s);
a:= s div 5000;
b:= s-(a*5000);
c:=a1 div 2000;
d:=a1-(b*2000);
e:=b1 div 1000;
f:= b1-(c*1000);
j:=c1 div 500;
Writeln(f,'So to 5000:',a,' to');
Writeln(f,'So to 2000:',b,' to');
Writeln(f,'So to 1000:',c,' to');
Writeln(f,'So to 500:',d,' to');
Close(f);
Readln;
End.
@TrangCute
→CHÚC BẠN HỌC TỐT!←
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK