Bài Tập Pascal: Số đối Xứng - Toán Học 9 - Trần Đức Minh

Đăng nhập / Đăng ký

• Trang chủ
• Thành viên
• Trợ giúp
• Liên kết

• Liên hệ
• www.giaovien.net
• www.pcwold.com
• Web dịch tiếng anh

Đăng nhập

Tên truy nhập Mật khẩu Ghi nhớ   Quên mật khẩu ĐK thành viên

Thông tin

• Giới thiệu bản thân
• Thành tích
• Chia sẻ kinh nghiệm
• Lưu giữ kỉ niệm
• Hình ảnh hoạt động
• Soạn bài trực tuyến

Tài nguyên dạy học

Các ý kiến mới nhất

viet 2 ham tim max,min cua 3 so thuc...

Nhật Trường chào chủ nhà. ...

viet chuong trinh nhap vao xau A gom n ki...

HuyTâm tới thăm kính chúc chủ nhà sức khỏe hạnh...

TVM gia nhập. Rất vui được giao lưu ...

SAKIN402 TVM gia nhập trang chủ nhà.... . Chúc chủ...

Thành viên mới xin chào chủ nhà. Chúc chủ nhà...

Nhân dịp Xuân mới, Đôi bờ Hiền Lương xin kính...

Chúc sk, thành đạt...

TV thứ 48 chào bạn, chúc bạn những ngày cuối...

Chào chủ nhà, lâu rồi có khỏe không, bửa nay...

chào chủ nhà.chúc chủ nhà mạnh khỏe vui vẻ....

Nếu thượng đế cho tôi yêu em 4 ngày, Tôi...

Anh em họ Trần Đức xin gia nhập!...

Hỗ trợ trực tuyến

Điều tra ý kiến

Bạn thấy trang này như thế nào? Đẹp Đơn điệu Bình thường Ý kiến khác

Thống kê

50028 truy cập (chi tiết) 12 trong hôm nay

57531 lượt xem 13 trong hôm nay

67 thành viên

Ảnh ngẫu nhiên

Thành viên trực tuyến

1 khách và 0 thành viên

Chào mừng quý vị đến với Dạy và học Toán.

Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình. Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải. Đưa đề thi lên Gốc > Đề thi > Toán học > Toán học 9 >

• Bài tập Pascal: Số đối xứng
• Cùng tác giả
• Lịch sử tải về

Bài tập Pascal: Số đối xứng

• 
• 
• 
• 
• 
• 
• 0 / 0
• 

Nhấn vào đây để tải về Báo tài liệu có sai sót Nhắn tin cho tác giả (Tài liệu chưa được thẩm định) Nguồn: Trần Đức Munh Người gửi: Trần Đức Minh (trang riêng) Ngày gửi: 07h:21' 11-03-2009 Dung lượng: 36.5 KB Số lượt tải: 340 Số lượt thích: 0 người Ngày 9/3/09Bài 2: Số đối xứng Định nghĩa: Một số là số đối xứng nếu đọc ngược cũng là nó. Ví dụ: 12321 hoặc 657756 hoặc 110011Yêu cầu: -) Viết chương trình nhập vào hai số (biểu diễn trong cơ số 10) +) N (0 < N < 16) +) S (0 < S < 10001) -) Xuất ra +) N số lớn hơn S và là số đối xứng khi biểu diễn trong ít nhất hai cơ số c khác nhau (1< c < 11) +) Số số nguyên tố trong N số trên -) Dữ liệu: Dulieu.Vao -) Kết quả: Ketqua.Ra Ví dụ: Dulieu.VaoKetqua.Ra3 252627280*Phân tích tìm thuật giải: Giả sử số cần đổi là A a) Đổi số cơ số -) Chia A cho c được thương t1 và dư d1 -) Tiếp tục chia t1 cho c được thương t2 và dư d2 -) Tiếp tục chia t2 cho c được thương t3 và dư d3 -) ......tiếp tục đến khi thương là 0 dư dn ( A biểu diễn trong cơ số c là : d1d2d3...dn b) Kiểm tra số đối xứng: Giả sử A có biểu diễn trong cơ số c là : d1d2d3...dn A đối xứng khi và chỉ khi d1 = dn , d2 = dn-1 ......hay di = dn + 1 - i c) Kiểm tra số nguyên tố A là số nguyên tố nếu A không có ước số nào từ 2 ( N div 2. *Sau đây là các hàm xử sử dụng trong chương trình:Function InCoSo(n : integer, cs: integer) : String;Var Thuong : integer; sodu, xau : string;Begin Thuong := n; Repeat Thuong:= thuong div so; Str(thuong mod so, sodu); Xau : = xau + sodu; Until thuong=0; InCoSo := Xau;End;Function KTSDX(n: String) : Boolean;Var i, j, m : Integer; kq: Boolean;Begin If length(n)> 1 then Beginj:=length(n); m:= j div 2; i:=1;Repeat if n[i] n[j+1-i] then kq : = true; i:=i+1; Until (i = m) or (kq = true); End;End; Function KTSNT(n : integer) : Boolean;Var kq : Boolean; d: Integer;Begin If n