| share 1 số chương trình thông dụng nà | |
|
Tác giả | Thông điệp |
---|
congachaynhanh Tân Binh
Cầm Tinh : Tổng số bài gửi : 4 Vàng : 6 Thanks: : 0 Birthday : 02/04/1993 Join date : 21/03/2010 Age : 31
| Tiêu đề: share 1 số chương trình thông dụng nà Sun 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 |
|
| |
caubenhu Khách viếng thăm
| Tiêu đề: share 1 số chương trình thông dụng nà Sun 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 đó |
|
| |
motsach Khách viếng thăm
| Tiêu đề: share 1 số chương trình thông dụng nà Sun 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 |
|
| |
kongaima Khách viếng thăm
| Tiêu đề: share 1 số chương trình thông dụng nà Sun 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: |
|
| |
caubenhu Khách viếng thăm
| Tiêu đề: Re: share 1 số chương trình thông dụng nà Sun 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ỉ |
|
| |
onggiaca Khách viếng thăm
| Tiêu đề: Re: share 1 số chương trình thông dụng nà Sun 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: |
|
| |
congachaynhanh Tân Binh
Cầm Tinh : Tổng số bài gửi : 4 Vàng : 6 Thanks: : 0 Birthday : 02/04/1993 Join date : 21/03/2010 Age : 31
| Tiêu đề: Re: share 1 số chương trình thông dụng nà Sun 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 |
|
| |
onggiaca Khách viếng thăm
| Tiêu đề: Re: share 1 số chương trình thông dụng nà Sun 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: |
|
| |
monkeydkzat Chủ Tịch Quốc Hội
Cầm Tinh : 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
| Tiêu đề: Re: share 1 số chương trình thông dụng nà Sun 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ỉ __________________ Lượn sóng đi em |
|
| |
congachaynhanh Tân Binh
Cầm Tinh : Tổng số bài gửi : 4 Vàng : 6 Thanks: : 0 Birthday : 02/04/1993 Join date : 21/03/2010 Age : 31
| Tiêu đề: Re: share 1 số chương trình thông dụng nà Wed Jul 07, 2010 3:43 pm | |
| sao nút thanks forum của mình hok có nhỉ |
|
| |
Sponsored content
| Tiê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à | |
|