Bằng cách nhấp vào Đăng nhập, bạn đồng ý Chính sách bảo mật và Điều khoản sử dụng của chúng tôi. Nếu đây không phải máy tính của bạn, để đảm bảo an toàn, hãy sử dụng Cửa sổ riêng tư (Tab ẩn danh) để đăng nhập (New Private Window / New Incognito Window).
program CongTySanXuatMayMac;
uses crt;
Var N, i: Longint;
PC, LSP, TL: Extended; {Lý do tính Phụ cấp, Lương sản phẩm và Thực lãnh liên quan đến phân số tức phép chia hai số nguyên dương, và phép cộng hai số có kiểu dữ liệu ghi bằng phân số. Xin lỗi
tại vì nó hạn chế vãi}
{N là sản phẩm làm được của nhân viên thứ i, với i là
biến index = 1 cho đếm số lượng nhân viên trong công ty, PC là phụ cấp, LSP là viết tắt của
(lương sản phẩm) sản phẩm chưa tính phụ cấp, TL viết tắt của 'Thực lãnh', tính cả lương
sản phẩm và phụ cấp}
Begin
clrscr;
Writeln('Nhập nhân viên thứ: '); read(i);
While (i <= 0) do {Kiểm tra index phải dương}
Begin
Writeln('Nhập lại số thứ tự của nhân viên đó: '); read(N);
End;
Writeln('Nhập số SP của nhân viên đó: '); read(N); {Với SP là sản phẩm tạo ra của
nhân viên thứ i}
While ((N <= 0) or (N >= 1000)) do {Kiểm tra số sản phẩm theo như đề bài nói
số SP không được dưới hoặc bằng 0 và bằng hoặc lớn hơn 1000}
Begin
Writeln('Nhập số SP của nhân viên đó: '); read(N);
End;
If (N > 200) then {Như đề bài, nếu là ghi sai chính tả dấu bằng thì reply cho mình rồi mình sửa}
Begin
PC:= (3/20)*N; {15% tối giản thành phân số 3/20 cho dễ}
End
Else
PC:= (1/20)*N; {5% tối giản thành phân số 1/20 cho dễ}
LSP:= N*30;
TL:= LSP + PC;
Writeln('Lương thực lãnh của nhân viên thứ ',i,' ','là: ',TL);
Readln;
END.
Tham gia Cộng đồng Lazi trên các mạng xã hội | |
Fanpage: | https://www.fb.com/lazi.vn |
Group: | https://www.fb.com/groups/lazi.vn |
Kênh FB: | https://m.me/j/AbY8WMG2VhCvgIcB |
LaziGo: | https://go.lazi.vn/join/lazigo |
Discord: | https://discord.gg/4vkBe6wJuU |
Youtube: | https://www.youtube.com/@lazi-vn |
Tiktok: | https://www.tiktok.com/@lazi.vn |
Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi
Vui | Buồn | Bình thường |