[PASCAL] Chữ số
#1
Đã gửi 31-05-2011 - 10:23
1. Tính tổng các chữ số của nó.
2. Đếm số lượng chữ số 0 của n.
3. Tìm chữ số đầu tiên.
4. Tìm số có giá trị lớn nhất.
5. Đếm xem có bao nhiêu chữ số có giá trị nhỏ nhất.
Bài II:
Tìm số đảo ngược Y của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
#2
Đã gửi 31-05-2011 - 11:53
cả 2 bài đều sử dụng kiểu dữ liệu chuỗi.
p/s: bạn kiểm tra lại đề bài I
$$\text{LOVE}\left( x \right)|_{x = \alpha}^\Omega = + \infty $$
I'm still there everywhere.
#3
Đã gửi 31-05-2011 - 12:14
Bài I: Các câu 1,2,3 có thể dùng chương trình sau:Bài I:Nhập số nguyên n:
1. Tính tổng các chữ số của nó.
2. Đếm số lượng chữ số 0 của n.
3. Tìm chữ số đầu tiên.
4. Tìm số có giá trị lớn nhất.
5. Đếm xem có bao nhiêu chữ số có giá trị nhỏ nhất.
Bài II:
Tìm số đảo ngược Y của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại.
program bai1; uses crt; type bignum = string; var n:bignum; Function tccs(n:bignum):integer; var i,s:integer; begin s:=0; for i:=1 to length(n) do s:=s+ ord(n[i]) - 48; tccs:=s; end; Function sls0(n:bignum):integer; var i,dem:integer; begin dem:=0; for i:=1 to length(n) do if n[i]='0' then dem:=dem+1; sls0:=dem; end; begin clrscr; writeln('nhap n: '); readln(n); writeln('tong cac chu so la: ', tccs(n)); writeln('so luong so 0 la: ',sls0(n)); writeln('chu so dau tien la: ',ord(n[1])-48); readln end.
Còn 2 câu 4,5 kia thì chỉ cần tạo 2 cái Function nữa là xong, 1 Function tìm số lớn nhất, 1 Function đếm số lượng số nhỏ nhất. Cái này bạn tự suy nghĩ nha .
Bài II:
program bai2; uses crt; type bignum=string; var n:bignum; i:integer; begin clrscr; write('nhap X: '); readln(n); writeln('Y la: '); for i:=length(n) downto 1 do write(n[i]); readln end.
Bài viết đã được chỉnh sửa nội dung bởi phung khac bac linh: 31-05-2011 - 12:22
#4
Đã gửi 31-05-2011 - 13:25
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sống không phải là tồn tại.
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
1 người đang xem chủ đề
0 thành viên, 1 khách, 0 thành viên ẩn danh