K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

10 tháng 4 2023

program Psmcg;

uses crt;

var don_gia, so_luong, tong_tien, phi_giao_hang: integer;

begin

     write('Nhap so luong san pham: ');

     readln(so_luong);

     if so_luong <= 20 then

     begin

          don_gia := 50000;

     end

     else

     begin

          don_gia := 40000;

     end;

     tong_tien := don_gia * so_luong;

     if tong_tien > 2000000 then

     begin

          phi_giao_hang := 0;

     end

     else

     begin

          phi_giao_hang := 15000;

     end;

     tong_tien := tong_tien + phi_giao_hang;

     writeln('So tien khach hang phai thanh toan la: ', tong_tien);

     readln;

end.

Viết chương trình Pascal có khai báo và sử dụng biếnBài toán: 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ẽ trả hàng và nhận tiền thanh toán tại nhà khác 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...
Đọc tiếp

Viết chương trình Pascal có khai báo và sử dụng biến

Bài toán: 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ẽ trả hàng và nhận tiền thanh toán tại nhà khác 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.

Gợi ý: Công thức cần tính

Tiền thanh toán = Đơn giá x Số lượng + Phí dịch vụ

a. Khởi động Pascal. Gõ chương trình sau và tìm hiểu ý nghĩa từng câu lệnh

b. Lưu chương trình với ten TINHTIEN.PAS. Dịch và chỉnh sửa lỗi nếu có.

c. Chạy chương trình vơi các bộ dữ liệu (đơn giá và số lượng) như sau (1000,20), (3500,200), (18500,123). Kiểm tra tính đúng của các kết quả in ra..

d. Chạy chương trình với bộ dữ liệu (1,35000). Quan sát kết quả nhận được hãy thử đoán lí do tại sao chương trình cho kết quả sai.

0
 Xét bài toán sau, em hãy mô tả thuật toán của em để giải quyết bài toán này bằng hai trong những cách sau: ngôn ngữ tự nhiên, sơ đồ khối.Bài toán: 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à của khách hàng. Tiền khách hàng phải thanh toán bao gồm tiền mua hàng (tiền mua hàng = số...
Đọc tiếp

 Xét bài toán sau, em hãy mô tả thuật toán của em để giải quyết bài toán này bằng hai trong những cách sau: ngôn ngữ tự nhiên, sơ đồ khối.
Bài toán: 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à của khách hàng. Tiền khách hàng phải thanh toán bao gồm tiền mua hàng (tiền mua hàng = số lượng x đơn giá) và phí dịch vụ. Nếu tiền mua hàng từ 500.000 đồng trở lên thì khách hàng được hưởng ưu đãi không phải trả thêm phí dịch vụ, còn không thì khách hàng phải trả thêm phí dịch vụ bằng 5% của số tiền mua hàng. Biết số lượng hàng là N, đơn giá là d (nghìn đồng/ 1 đơn vị hàng). Hãy tính số tiền phải thanh toán.

1
4 tháng 1 2022
Bài làm:

Input: số lượng hàng N, đơn giá d, phí dịch vụ

Output: Số tiền phải thanh toán

Mô tả thuật toán bằng ngôn ngữ tự nhiên:

Bước 1: Nhập số lượng hàng N và đơn giá d.Bước 2: Tính số tiền mua hàng = số lượng hàng x đơn giá.Bước 3: Nếu số tiền mua hàng >= 500.000 thì số tiền thanh toán = số tiền mua hàng. Nếu ngược lại thì số tiền thanh toán = số tiền mua hàng x 105%Mô tả thuật toán bằng sơ đồ khối:Giải vnen tin 8 bài 1: Giải bài toán bằng máy tính
27 tháng 12 2020

uses crt;

var tien:real;

begin

clrscr;

repeat

write('Nhap so tien:'); readln(tien);

until tien>0;

if tien>=100000 then writeln(tien*70/100:4:2)

else writeln(tien*90/10:4:2);

readln;

end.

Dạ cho mình hỏi chỗ này xíu, đoạn "(tien*70/100:4:2)" có chữ 4:2 nghĩa là gì ạ?