BCCOMMAS PTIT – Chèn dấu phẩy
Nguồn đề bài: http://www.spoj.com/PTIT/problems/BCCOMMAS/ 1. Đề bài BCCOMMAS PTIT Bessie làm việc với các số lớn N (1 <= N <= 2,000,000,000) như 153920529 và nhận ra rằng sẽ dễ dàng đọc hơn với các dấu phẩy được chèn vào mỗi 3 chữ số. Do đó, cô muốn để thêm dấu phẩy: ...
Nguồn đề bài: http://www.spoj.com/PTIT/problems/BCCOMMAS/
1. Đề bài BCCOMMAS PTIT
Bessie làm việc với các số lớn N (1 <= N <= 2,000,000,000) như 153920529
và nhận ra rằng sẽ dễ dàng đọc hơn với các dấu phẩy được chèn vào mỗi 3
chữ số. Do đó, cô muốn để thêm dấu phẩy: 153,920,529 . Hãy viết chương trình
giúp cô thực hiện việc đó.
INPUT FORMAT:
* Dòng 1: 1 số nguyên: N
SAMPLE INPUT :
153920529
OUTPUT FORMAT:
* Dòng 1: Số nguyên N với các dấu phẩy chèn vào trước mỗi bộ 3 chữ số từ phải qua trái, ngoại trừ chữ số đầu tiên.
SAMPLE OUTPUT :
153,920,529
Hướng dẫn:
– Bài này khá dễ dàng, duyệt ngược xâu nếu số chữ số đã duyệt chia hết cho 3 thì chèn dấu phẩy vào. không cần phải suy nghĩ ở đầu có dấu phẩy hay không. sau khi duyệt xong kiểm tra phần tử đầu tiên trong xâu vừa chèn có phải là dấu phẩy hay ko? nếu nó là dấu phẩy thì xóa dấu phẩy.
– Ngoài ra bài này bạn còn có thể dùng stack để ứng dụng
2. code tham khảo BCCOMMAS PTIT
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | const fi='; type data=longint; var f:text; s:string; i:data; dem:data=0; res:string; begin res:='; assign(f,fi); reset(f); readln(f,s); close(f); for i:=length(s) downto 1 do if (length(s)-i+1) mod 3=0 then res:=','+s[i]+res else res:=s[i]+res; if res[1]=',' then delete(res,1,1); writeln(res); end. |
