Music & It
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.



 
Trang ChínhTrang Chính  PortalPortal  Đăng kýĐăng ký  Tìm kiếmTìm kiếm  Đăng NhậpĐăng Nhập  

 

 Thu tai` dan^ Lap Trinh ve` Pascal

Go down 
Tác giảThông điệp
luckyteen
Thành Viên Tích Cực
Thành Viên Tích Cực
luckyteen

Tổng số bài gửi : 58
Age : 31
Đến từ : VTGroup
Registration date : 18/03/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-03-18, 15:26

Nghe noi' dan^ Lap Trinh gioi lam' , vi` the minh` co' 1 bai`toan' ve` Pascal nay` muon' " thu tai` " moi nguoi` Sad bai` tap ong thay` cho )

Bài 1 Viết chương trình nhập vào một số n đưa ra màn hình
--Xem dãy số có bao nhêu phần tử là số chẵn
--Tìm số chẵn lớn nhất trong dãy số
--Tính tổng các số lẻ trong dãy số
--Tính trung bình cộng các số chính phương co trong dãy
--Sắp xếp dãy theo chiều tăng dần của dãy số
--Sắp xếp dãy theo chiều tăng dần của các số chẵn có trong dãy số


Bai` nay` chi la` " giao luu " thoi Very Happy
Về Đầu Trang Go down
http://luckyteen.uni.cc
Loc
SuperModerator
SuperModerator
Loc

Tổng số bài gửi : 98
Age : 32
Đến từ : Bụng Mẹ =))
Registration date : 01/03/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-03-18, 17:42

ò ó o, bạn giao lưu kiểu này forum sụp là cái chắc Laughing , tụi nó toàn học C, bạn chơi 1 câu Pascal thì cả lũ chết cheers cheers , Admin đâu rồi, ra đóng cửa forum này What a Face

_________________
lang~
Về Đầu Trang Go down
Admin
Admin
Admin
Admin

Tổng số bài gửi : 130
Age : 32
Đến từ : Đường Rầy Xe Lửa
Registration date : 23/02/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-03-18, 20:29

Ây cha cha!!! tuy dễ mà căng hà .
Mấy bài này thật sự ko có jì khó nhưng viết bằng Pascal thì =====> chịu (mình học C)

Nhưng mih cũng co tìm hiểu 1 chút về Pascal cũng ko khác ji C ngoài máy câu lệnh , mà nghe nói bạn Loc cũng bit về Pascal có thể biên dịch dc ko Laughing . C ===> Pascal

Thật sự thì viết bằng C hay Pascal ko quan trọng , quan trọng là thuật toán thôi . Sau đây là ý tưởng xuyên suốt máy bài thơ Pascal trên :

Mình Demo = C :
1.Xem dãy số có bao nhiu chữ số chẵn :
+ Begin
+ khai báo bien
+ dem=0
+vòng lập (cfor hay while) điều kiện n>0
+ chia n cho 10 và lấy phần dư (du=n) , nếu phần dư(du) chia lấy dư tiếp cho 2 mà =0( xét chẵn) thì
dem ++ ;
+ tiep tuc chia n/10;
+ Xuất dem
+kết thúc

2.Tìm chẵn lớn nhất :
+ Bắt đầu :
cũng tương tự bài trên , ta khai bao them bien ChanMax
và cho ChanMax = 0
thay vì nếu phần dư(du) chia lấy dư tip cho 2 =0 thì thêm câu lệnh nếu du >ChanMax thì bằng ChanMax = du, đây là 2 câu lệnh if trong c
Code:
if(du%2==0)
        if(du>ChanMax)ChanMax=du;
roi xuất ra ChanMax ;
+ Kết thúc

3.tổng các số lẽ :
cũng như bài 1 thay vì chia hết cho 2 thì bài này là ko chia hết va khai báo them bien TongLe
và nếu du ko chia hết cho 2 thì TongLe+=du (TongLe=TongLe + du);
+ xuất TongLe

Các bài sau mih làm trên mảng cho ngắn gọn dễ hiễu
+Mình sẽ viết code C máy bài này sau bên box bài tập C

4.TBC các số chính phương:
Phải có hàm Nhapmang
hàm kiểm tra số chính phương(số chính phương là số khai căn là 1 số nguyên va >1)

+ hàm ktscp ta co thể hiểu như sau :
-Đầu tiên ta đặt biến fụ d=n;
- ta ép kiểu của số n khi khai căn bằng kiểu nguyên và so sánh với kiểu ko nguyên của n cũng khai căn , nếu như 2 cái trên bằng nhau thì trả về 1

Code:
if((unsigned long) sqrt(d)==(sqrt(d))&&n>1)) return 1;

+ và trong vòng lập chạy từ đầu mảng đến cuối mảng a[]:Tong=0,dem=0;
nếu ktscp(a==1) thì Tong = Tong + a[i]dem=dem+1; (a[i]= phần tử thứ i trong mảng)

- cuối cùng xuất ra Tong/i
+Kết thúc

Bài 5,6 : hai bài nì tương tự nhau chỉ thêm điều kiện thôi

Thuật toán bài ni như sau :
Trước tiên ta viết hàm hoán đổi (dùng để đổi vị trí 2 biến truyền vào bằng tham chiếu)
+ dùng 2 vòng lập
+ ta cho 2 phần tử i,j chạy trong mảng nhưng j chạy trước i một vi trí co nghĩa là j=i+1
+ nếu (a[i]>a[j]) thì gọi hàm hoán đổi vi trí
+ và cuối cùng là xuất mảng

Mình sẽ Demo later bên Box bài tập C .....

Giờ đói lém gòi .... phải mổ thoai
Very Happy bb các bạn

Chúc các bạn học tốt!!!!!!
Về Đầu Trang Go down
https://5quon.forumvi.com
Loc
SuperModerator
SuperModerator
Loc

Tổng số bài gửi : 98
Age : 32
Đến từ : Bụng Mẹ =))
Registration date : 01/03/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-03-18, 22:26

Admin đã viết:

bạn Loc cũng bit về Pascal có thể biên dịch dc ko Laughing
Ái chà chà, chơi đểu tao hả mày, tao mới đụng dzô nó chưa được 1 tháng là chuyển qua học C, lấy quái gì nói Evil or Very Mad

_________________
lang~
Về Đầu Trang Go down
luckyteen
Thành Viên Tích Cực
Thành Viên Tích Cực
luckyteen

Tổng số bài gửi : 58
Age : 31
Đến từ : VTGroup
Registration date : 18/03/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-03-19, 17:11

Khá khen cho Admin , dân LT co' khác .
Nhưng đây là PC mà Very Happy .
Nói gì thì nói giải thuật là quan trọng nhất , bạn có khả năng trở thành Lập trình viên không nhỉ ! Chắc là duoc đếy Very Happy
Good Luck !
Về Đầu Trang Go down
http://luckyteen.uni.cc
Admin
Admin
Admin
Admin

Tổng số bài gửi : 130
Age : 32
Đến từ : Đường Rầy Xe Lửa
Registration date : 23/02/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-03-20, 01:24

Bạn đã giao lưu với mih , nguoi ta noi có wa thi phải có lại , bay gio mih muon giao lưu với bạn ^^ Very Happy

Mih cũng có vài bài toán nì xin dc phép giao lưu Very Happy :

Thu tai` dan^ Lap Trinh ve`  Pascal Untitled

Bài trên chỉ có tính chất giao lưu ^^...!!!!

Happies for All!!!!!

Về Đầu Trang Go down
https://5quon.forumvi.com
luckyteen
Thành Viên Tích Cực
Thành Viên Tích Cực
luckyteen

Tổng số bài gửi : 58
Age : 31
Đến từ : VTGroup
Registration date : 18/03/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-03-20, 08:48

We^n , cho hoi bai` nay` lam` theo C hay PC nhi? Very Happy

Bai` " giao luu " cua cac ban cung~ phong phu that day !
Về Đầu Trang Go down
http://luckyteen.uni.cc
Admin
Admin
Admin
Admin

Tổng số bài gửi : 130
Age : 32
Đến từ : Đường Rầy Xe Lửa
Registration date : 23/02/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-03-20, 10:03

^^!! Bạn có thể viết C hay PC jì cũng dc hoặc chỉ nêu ý tưởng bài toán thôi cũng dc ..... ^^
giao lưu thui mà ....
Về Đầu Trang Go down
https://5quon.forumvi.com
P.Q.K
Thành Viên Tích Cực
Thành Viên Tích Cực
P.Q.K

Tổng số bài gửi : 52
Age : 31
Đến từ : K13T1
Registration date : 07/03/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-03-20, 10:16

Mấy ku chơi đểu nhau thật đấy, thế thì mình hôk bít là ku Teen nhà ta có viết = C đc. hem nhỉ?
Về Đầu Trang Go down
Admin
Admin
Admin
Admin

Tổng số bài gửi : 130
Age : 32
Đến từ : Đường Rầy Xe Lửa
Registration date : 23/02/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-03-20, 17:25

Pác P.Q.K này nói wé , mục đích là giao lưu thui mè ^^....
Về Đầu Trang Go down
https://5quon.forumvi.com
Loc
SuperModerator
SuperModerator
Loc

Tổng số bài gửi : 98
Age : 32
Đến từ : Bụng Mẹ =))
Registration date : 01/03/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-03-20, 23:22

hà hà, chơi thế này cũng vui, khoảng 6 tháng nữa khi nào rành C mình vào đây chơi dzậy cheers cheers

_________________
lang~
Về Đầu Trang Go down
Loc
SuperModerator
SuperModerator
Loc

Tổng số bài gửi : 98
Age : 32
Đến từ : Bụng Mẹ =))
Registration date : 01/03/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-04-03, 11:15

Admin đã viết:
Ây cha cha!!! tuy dễ mà căng hà .
Mấy bài này thật sự ko có jì khó nhưng viết bằng Pascal thì =====> chịu (mình học C)

Nhưng mih cũng co tìm hiểu 1 chút về Pascal cũng ko khác ji C ngoài máy câu lệnh , mà nghe nói bạn Loc cũng bit về Pascal có thể biên dịch dc ko Laughing . C ===> Pascal

Thật sự thì viết bằng C hay Pascal ko quan trọng , quan trọng là thuật toán thôi . Sau đây là ý tưởng xuyên suốt máy bài thơ Pascal trên :

Mình Demo = C :
1.Xem dãy số có bao nhiu chữ số chẵn :
+ Begin
+ khai báo bien
+ dem=0
+vòng lập (cfor hay while) điều kiện n>0
+ chia n cho 10 và lấy phần dư (du=n) , nếu phần dư(du) chia lấy dư tiếp cho 2 mà =0( xét chẵn) thì
dem ++ ;
+ tiep tuc chia n/10;
+ Xuất dem
+kết thúc

2.Tìm chẵn lớn nhất :
+ Bắt đầu :
cũng tương tự bài trên , ta khai bao them bien ChanMax
và cho ChanMax = 0
thay vì nếu phần dư(du) chia lấy dư tip cho 2 =0 thì thêm câu lệnh nếu du >ChanMax thì bằng ChanMax = du, đây là 2 câu lệnh if trong c
Code:
if(du%2==0)
        if(du>ChanMax)ChanMax=du;
roi xuất ra ChanMax ;
+ Kết thúc

3.tổng các số lẽ :
cũng như bài 1 thay vì chia hết cho 2 thì bài này là ko chia hết va khai báo them bien TongLe
và nếu du ko chia hết cho 2 thì TongLe+=du (TongLe=TongLe + du);
+ xuất TongLe

Các bài sau mih làm trên mảng cho ngắn gọn dễ hiễu
+Mình sẽ viết code C máy bài này sau bên box bài tập C

4.TBC các số chính phương:
Phải có hàm Nhapmang
hàm kiểm tra số chính phương(số chính phương là số khai căn là 1 số nguyên va >1)

+ hàm ktscp ta co thể hiểu như sau :
-Đầu tiên ta đặt biến fụ d=n;
- ta ép kiểu của số n khi khai căn bằng kiểu nguyên và so sánh với kiểu ko nguyên của n cũng khai căn , nếu như 2 cái trên bằng nhau thì trả về 1

Code:
if((unsigned long) sqrt(d)==(sqrt(d))&&n>1)) return 1;

+ và trong vòng lập chạy từ đầu mảng đến cuối mảng a[]:Tong=0,dem=0;
nếu ktscp(a==1) thì Tong = Tong + a[i]dem=dem+1; (a[i]= phần tử thứ i trong mảng)

- cuối cùng xuất ra Tong/i
+Kết thúc

Bài 5,6 : hai bài nì tương tự nhau chỉ thêm điều kiện thôi

Thuật toán bài ni như sau :
Trước tiên ta viết hàm hoán đổi (dùng để đổi vị trí 2 biến truyền vào bằng tham chiếu)
+ dùng 2 vòng lập
+ ta cho 2 phần tử i,j chạy trong mảng nhưng j chạy trước i một vi trí co nghĩa là j=i+1
+ nếu (a[i]>a[j]) thì gọi hàm hoán đổi vi trí
+ và cuối cùng là xuất mảng

Mình sẽ Demo later bên Box bài tập C .....

Giờ đói lém gòi .... phải mổ thoai
Very Happy bb các bạn

Chúc các bạn học tốt!!!!!!
ê ku Admin, nói cho mày buồn chơi chứ tao đọc dek hỉu mẹ gì hết, mày copy code dzô cho dễ đọc đi, mày viết thía tía thằng nào hỉu, tao học tới for, while rồi mà đọc bài của mày cũng như dek học Suspect

_________________
lang~
Về Đầu Trang Go down
Admin
Admin
Admin
Admin

Tổng số bài gửi : 130
Age : 32
Đến từ : Đường Rầy Xe Lửa
Registration date : 23/02/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-04-03, 20:42

3 bài đầu thì hiểu chứ , 3 bài sau nói trên mảng mà sao hieudc ,chưa học tới mà ... để bữa nào rảnh post lên cho .. giờ đang thi giữa kì hixhix...
Về Đầu Trang Go down
https://5quon.forumvi.com
Loc
SuperModerator
SuperModerator
Loc

Tổng số bài gửi : 98
Age : 32
Đến từ : Bụng Mẹ =))
Registration date : 01/03/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-04-03, 22:29

tao sẽ đợi Twisted Evil

_________________
lang~
Về Đầu Trang Go down
Admin
Admin
Admin
Admin

Tổng số bài gửi : 130
Age : 32
Đến từ : Đường Rầy Xe Lửa
Registration date : 23/02/2008

Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime2008-04-04, 15:30

code 3 bài đây nài , mai mốt tao post tip nốt máy bài còn lại

https://5quon.forumvi.com/forum-f13/topic-t151.htm#330
Về Đầu Trang Go down
https://5quon.forumvi.com
Sponsored content




Thu tai` dan^ Lap Trinh ve`  Pascal Empty
Bài gửiTiêu đề: Re: Thu tai` dan^ Lap Trinh ve` Pascal   Thu tai` dan^ Lap Trinh ve`  Pascal Icon_minitime

Về Đầu Trang Go down
 
Thu tai` dan^ Lap Trinh ve` Pascal
Về Đầu Trang 
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
Music & It :: Công Nghệ Thông Tin :: Lập Trình-
Chuyển đến