Funclass Forum | 122's Mini Forum
Forum Funclass.coo.me Rất vui Vì các bạn đã ghé thăm
Funclass Forum | 122's Mini Forum
Forum Funclass.coo.me Rất vui Vì các bạn đã ghé thăm
Funclass Forum | 122's Mini Forum
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.


Funclass.coo.me
 
Trang ChínhPortalGalleryTìm kiếmLatest imagesĐăng kýĐăng NhậpSite Kỷ Niệm

Share | 
 

 share 1 số chương trình thông dụng nà

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
congachaynhanh
Tân Binh
Tân Binh
congachaynhanh

Cầm Tinh : Aries
Tổng số bài gửi : 4
Vàng : 6
Thanks: : 0
Birthday : 02/04/1993
Join date : 21/03/2010
Age : 30

share 1 số chương trình thông dụng nà Empty
Bài gửiTiêu đề: share 1 số chương trình thông dụng nà   share 1 số chương trình thông dụng nà I_icon_minitimeSun Mar 21, 2010 7:53 am

Viết chương trình pascal nhập vào số nguyên n,kiểm tra n có phải là đối xứng không?

Ví dụ: 123321, 1221

Giải:
-trước tiên là đếm số chữ số nhé
k:=0;
whlie n<>0 do
begin
n:=n div 10;
inc(k);
end;
{nếu k là số lẻ kết luận là số ko đối xứng luôn}
cái này để tính 10 mũ k
h:=1;
for i:=1 to k do h:=h*10;
bây h xử lý
b:=true;
while n<>0 do
begin
i:=n div h; {lấy số đầu tiên của n}
j:=n mod 10; {lấy số cuối cùng}
ì i<>j then b:=false; {so sánh, b= false rồi break luôn cũng dc}
n:=n mod h; {cắt bỏ số đầu tiên}
n:=n div 10; {cắt bỏ số cuối cùng}
h:=h div 100; {gán lại giá trị của h, do n cắt 2 mất 2 số rồi}
end;
if b then write('so doi xung') else write('ko');
readln;

------ai thấy thắc mắc cứ hỏi
Về Đầu Trang Go down
caubenhu
Khách viếng thăm



share 1 số chương trình thông dụng nà Empty
Bài gửiTiêu đề: share 1 số chương trình thông dụng nà   share 1 số chương trình thông dụng nà I_icon_minitimeSun Mar 21, 2010 7:55 am

cần jì dài dòng vậy lớp tui mới học đơn giản hơn nhìu

vầy nè:
var s: string;
j,i,n,v:byte;
begin
write('nhap vao xau'); readln(s);
n:= length(s);
for i:= 1 to n div 2 do
if s[i]<> s[n-i+1] then
begin
write(' xau khong doi xung');
v:= 1;
i:= n div 2;
end
if v <> 1 then write(' xau la dx');
readln;
end.

xài bằng sâu đó
Về Đầu Trang Go down
motsach
Khách viếng thăm



share 1 số chương trình thông dụng nà Empty
Bài gửiTiêu đề: share 1 số chương trình thông dụng nà   share 1 số chương trình thông dụng nà I_icon_minitimeSun Mar 21, 2010 7:57 am

xời chỉ chi rắc rối, đơn giản thôi ý tưởng là vậy nè

Ý tưởng là thế này : nhập vào số n, sau đó đếm số chữ số của nó, so sánh số đầu với số cuối, số thứ 2 với số kế cuối.... có 1 cặp nào ko bằng nhau thì nó ko phải là số đối xứng
code trên mình chưa test thử, có sai sót j thì xin cáo lỗi
Cách này hơi cầu kỳ một chút, ai có cách hay hơn thì thỉnh giáo nha
Về Đầu Trang Go down
kongaima
Khách viếng thăm



share 1 số chương trình thông dụng nà Empty
Bài gửiTiêu đề: share 1 số chương trình thông dụng nà   share 1 số chương trình thông dụng nà I_icon_minitimeSun Mar 21, 2010 8:00 am

nè cậu bé tự nhiên câu cuối cái if b then là sao. phải là if n=0 then mới đúng
__________________

thấy hay nhớ cảm ơn nha!: rất mong các bạn làm đừng làm chữ kí bằng hình ảnh là diễn đàn load chậm lắm:
Về Đầu Trang Go down
caubenhu
Khách viếng thăm



share 1 số chương trình thông dụng nà Empty
Bài gửiTiêu đề: Re: share 1 số chương trình thông dụng nà   share 1 số chương trình thông dụng nà I_icon_minitimeSun Mar 21, 2010 8:10 am

ê coi kỹ nha

if b then tức là if b= true đó bạn, biến b kiểu bôlean để xét xem có cặp số nào ko bằng nhau hay ko, nếu tất cả đều bằng nhau thì nó là true, còn ngược lại là false
bài mình làm đâu cần dùng mảng, cũng đâu cần dùng xâu........ nhưng làm thầy thì chưa dám
..........
thank cái chứ nhỉ
Về Đầu Trang Go down
onggiaca
Khách viếng thăm



share 1 số chương trình thông dụng nà Empty
Bài gửiTiêu đề: Re: share 1 số chương trình thông dụng nà   share 1 số chương trình thông dụng nà I_icon_minitimeSun Mar 21, 2010 8:11 am

mấy nhox nói nghe

ct thấy sai nhiều cái lắm
1: khi thực hiện câu lệnh while dầu tiên thì n=0 luôn rồi. phải gán cho biến nào bằng n trước.
2: câu lệnh while 2 thì cái phần if i<>j then b:=false;
đặt trước mấy cái cắt bớt phần đầu và cuối của n thì còn cặp số cuối cùng sẽ ko dc so sánh
__________________
thấy hay nhớ cảm ơn nha!: rất mong các bạn làm đừng làm chữ kí bằng hình ảnh là diễn đàn load chậm lắm:
Về Đầu Trang Go down
congachaynhanh
Tân Binh
Tân Binh
congachaynhanh

Cầm Tinh : Aries
Tổng số bài gửi : 4
Vàng : 6
Thanks: : 0
Birthday : 02/04/1993
Join date : 21/03/2010
Age : 30

share 1 số chương trình thông dụng nà Empty
Bài gửiTiêu đề: Re: share 1 số chương trình thông dụng nà   share 1 số chương trình thông dụng nà I_icon_minitimeSun Mar 21, 2010 8:13 am

đoạn code mình viết chỉ là để minh hoạ cho cái ý tưởng thôi, chứ chưa lên pascal viết thật sự
lỗi 1 thì bạn nói đúng rồi, còn cái thứ 2 thì mình ko hiểu bạn nói j
còn về số 121 thì mình chưa xét, bởi bạn ko định nghĩa số đối xứng là số thế nào, trong mấy cái vd toàn cho số có số chữa số là chẵn thôi vd 123321 có 6 chữ số, còn 121 có 3 chữ số nên mình ko xét, nếu 121 cũng tính thì chỗ đoạn xử lý bạn sửa while n<>0 thành while n>9 là ổn
mình ko hiểu là bạn lên đây để tìm người giúp đỡ hay là để đánh đố, dựa trên ý tưởng của bài mình, tuy là chưa hay nhưng sửa đổi cái code 1 chút thì xài dc rồi
giọng điệu của bạn làm mình hơi phản cảm
Về Đầu Trang Go down
onggiaca
Khách viếng thăm



share 1 số chương trình thông dụng nà Empty
Bài gửiTiêu đề: Re: share 1 số chương trình thông dụng nà   share 1 số chương trình thông dụng nà I_icon_minitimeSun Mar 21, 2010 8:14 am

mình có nói gì đâu. chỉ góp ý đẻ sữa ct của bạn lại cho hoàn hảo hơn thôi mà. cái bài này đâu phải mình hỏi đâu.
mình thấy nó còn bị lỗi ở chỗ này nữa nè:
for i:=1 to k do h:=h*10;
phải là for i:=1 to k-1 do h:=h*10;
nếu ko i:=n div h sẽ bằng 0
__________________
thấy hay nhớ cảm ơn nha!: rất mong các bạn làm đừng làm chữ kí bằng hình ảnh là diễn đàn load chậm lắm:
Về Đầu Trang Go down
monkeydkzat
Chủ Tịch Quốc Hội
Chủ Tịch Quốc Hội
monkeydkzat

Cầm Tinh : Scorpio
Tổng số bài gửi : 132
Vàng : 623
Thanks: : 0
Birthday : 20/11/1993
Join date : 19/03/2010
Age : 30
Đến từ : Bến Tre

share 1 số chương trình thông dụng nà Empty
Bài gửiTiêu đề: Re: share 1 số chương trình thông dụng nà   share 1 số chương trình thông dụng nà I_icon_minitimeSun Mar 21, 2010 8:17 am

chương trình nài tôi đoán bạn mới chỉ học hết bài lặp đúng ko
tôi đã gặp nó ở bài xâu đó,dùng xâu giải cũng có lí chứ nhỉ
__________________
share 1 số chương trình thông dụng nà Luot-song1

Lượn sóng đi em
Về Đầu Trang Go down
https://funclass.forum-viet.net
congachaynhanh
Tân Binh
Tân Binh
congachaynhanh

Cầm Tinh : Aries
Tổng số bài gửi : 4
Vàng : 6
Thanks: : 0
Birthday : 02/04/1993
Join date : 21/03/2010
Age : 30

share 1 số chương trình thông dụng nà Empty
Bài gửiTiêu đề: Re: share 1 số chương trình thông dụng nà   share 1 số chương trình thông dụng nà I_icon_minitimeWed Jul 07, 2010 3:43 pm

sao nút thanks forum của mình hok có nhỉ
Về Đầu Trang Go down
Sponsored content




share 1 số chương trình thông dụng nà Empty
Bài gửiTiêu đề: Re: share 1 số chương trình thông dụng nà   share 1 số chương trình thông dụng nà I_icon_minitime

Về Đầu Trang Go down
 

share 1 số chương trình thông dụng nà

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 

 Similar topics

-
» CHƯƠNG TRÌNH CON
» Chương trình dịch
» NGÔN NGỮ LẬP TRÌNH
» Lập trình hướng đối tượng
» Chân dung thật của con gái Thuyết “buôn vua”
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Funclass Forum | 122's Mini Forum :: Tin học :: Lập Trình Pascal-