Trang chủ Tin Học Lớp 8 Một siêu thịđiện máythực hiện đợt khuyến mãi như sau:...

Một siêu thịđiện máythực hiện đợt khuyến mãi như sau: Nếu mua hàngvới tổng sốtiền lớn hơn 550nghìn đồng, khách hàng sẽđược giảm 30% tổng sốtiền phải thanh toán

Câu hỏi :

Một siêu thịđiện máythực hiện đợt khuyến mãi như sau: Nếu mua hàngvới tổng sốtiền lớn hơn 550nghìn đồng, khách hàng sẽđược giảm 30% tổng sốtiền phải thanh toán.Ngược lại được giảm 25% sốtiền thanh toán. Viết chương trình tính tiền cho khách hàng mua hàngkhi biết đơn giá và sốlượng mặt hàng nhập vào từbàn phím.Tiền thanh toán = Đơn giá x Sốlượng.

Lời giải 1 :

Program baitap;

Uses crt;

Var s:integer;

      d,T:extended;

Begin

Clrscr;

Write('Nhap so luong:'); Readln(s);

Write('Nhap don gia:'); Readln(d);

T:=d*s;

If T>550000 then T:=T*0.7

                    Else T:=T*0.75;

Writeln('So tien can thanh toan:',T);

Readln

End.

Thảo luận

-- longint là kiểu dữ liệu số nguyên, nhưng nó có pham vi lớn hơn integer
-- tại mình học lớp 8 mình kh thấy dùng ấy :")
-- Từ từ rồi bạn sẽ thấy nó thôi
-- Copyright (c) 1993-2017 by Florian Klaempfl and others Target OS: Linux for x86-64 Compiling main.pas main.pas(10,28) Error: Incompatible types: got "Double" expected "LongInt" main.pas(11,36) Error: Incompatible types: got "Double" expected "LongInt" ... xem thêm
-- bạn thử kiểm tra lại có thiếu hay thừa các dấu nhỏ nhỏ trong ct ko nha
-- mình copy y chang dán dô á ;-;
-- thế bạn học extended chưa
-- lúc nảy mnhf định dùng cái này mà sợ bạn ch học

Lời giải 2 :

uses crt;

var dg, sl, t : real;

begin

clrscr;

write('nhap so luong mat hang : ');readln(sl);

write('nhap don gia mat hang : ');readln(dg);

t := sl * dg;

if t >= 550000 then t := t * 0.7 else t := t * 0.75;

writeln('so tien khach hang can thanh toan : ', t:2:0);

readln

end.

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 :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK