Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (70.28 KB, 14 trang )
{Dùng app Pascal N – IDE để chạy chương trình, vì trong chương trình có sử dụng tiếng Việt có
dấu. }
{LẬP TRÌNH PASCAL: (ƠN THI HSG) CHƯƠNG TRÌNH NHẬP
VÀ XUẤT HÓA ĐƠN BÁN LẺ, GHI KẾT QUẢ DƯỚI ĐỊNH
DẠNG SỐ TIỀN VÀ ĐỌC SỐ TIỀN THÀNH CHỮ.}
uses crt;
procedure docso(x:integer);
var tr,ch,dvi:integer;
begin
tr:= x div 100;
ch:= (x-100*tr) div 10;
dvi:= x mod 100 - 10*ch;
IF (wherex<15) then begin
Case tr of
0: begin
if (wherex>19) and (ch<>0) then write('không trăm ');
if (wherex>19) and (ch=0) and (dvi<>0) then
write('không trăm linh ') end;
1: write('Một');
2: write('Hai');
3: write('Ba');
4: write('Bốn');
5: write('Năm');
6: write('Sáu');
7: write('Bảy');
8: write('Tám');
9: write('Chín');
end;