BÀI TẬP 1: Một cửa hàng cung cấp dịch vụ bán hàng thanh toán tại nhà. Khách hàng chỉ cần đăng kí số lượng mặt hàng cần mua, nhân viên cửa hàng sẽ giao hàng và nhận tiền thanh toán tại nhà khách hàng. Ngoài giá trị hàng hóa, khách hàng còn phải trả thêm phí dịch vụ. Hãy viết chương trình pascal để tính tiền thanh toán trong trường hợp khách hàng chỉ mua một mặt hàng duy nhất. Phí dịch vụ: 10.000, nếu khách hàng mua số tiền thanh toán >600.000₫ thì sẽ miễn phí dịch vụ. $\\$ Em hãy viết chương trình Pascal cho bài toán trên.
2 câu trả lời
uses crt;
var a, b, t : longint;
const p = 10000;
begin
clrscr;
write('so luong mat hang can mua : ');readln(a);
write('don gia cua mat hang : ');readln(b);
t := a * b;
if t > 600000 then writeln('so tien thanh toan : ', t)
else writeln('so tien thanh toan : ', t + p);
readln
end.
Uses Crt;
Var
n,t,d : Real ;
Begin
CLRSCR;
Write (' Nhap so luong hang can mua : ') ; Readln(n) ;
Write (' Nhap don gia : ') ; Readln(d) ;
t := n*d ;
If t > 600000 then Writeln (' So tien phai tra la :', t : 8 : 2 )
else Writeln (' So tien phai tra la :', t + 10000 : 8 : 2 ) ;
Readln;
End.
Câu hỏi trong lớp
Xem thêm