Thu tai` dan^ Lap Trinh ve` Pascal

Nghe noi' dan^ Lap Trinh gioi lam' , vi` the minh` co' 1 bai`toan' ve` Pascal nay` muon' " thu tai` " moi nguoi` 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

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

Â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 . 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 (c là for 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
và 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] và 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 bb các bạn

Admin đã viết:

bạn Loc cũng bit về Pascal có thể biên dịch dc ko

Á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

Khá khen cho Admin , dân LT co' khác .
Nhưng đây là PC mà .
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
Good Luck !

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 ^^

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

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

Bai` " giao luu " cua cac ban cung~ phong phu that day !

^^!! 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à ....

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ỉ?

Pác P.Q.K này nói wé , mục đích là giao lưu thui mè ^^....

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

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 . 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 (c là for 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
và 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] và 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 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

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...

tao sẽ đợi

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