| Những bài thực hành | |
|
|
Tác giả | Thông điệp |
---|
myheart Teacher
Tổng số bài gửi : 300 Join date : 22/11/2008
| Tiêu đề: Những bài thực hành Sun Mar 29, 2009 11:59 am | |
| Những bài thực hành
1. a) Nhập a và n, viết chương trình tính a^n
b) Nhập số tự nhiên n (0<100), viết chương trình tìm xem có bao nhiêu số lẽ trong khoảng từ 1 đến n, tính tổng các số chẵn trong khoảng từ 2 đến n 2. a) Nhập số tự nhiên n (0<100), viết chương trình tìm xem có bao nhiêu số chẵn trong khoảng từ 1 đến n, tính tổng các số chẵn trong khoảng từ 2 đến n b) Nhập n, viết chương trình xác định n có phải là số nguyên tố?
3. a) Nhập số nguyên n, nếu n là số âm thì chương trình báo nhập lại n cho đến khi nhập n > 0 rồi tính 1/n in ra màn hình
b) Nhập n số hạng (giá trị mỗi số hạng được nhập từ bàn phím), viết chương trình xác định có bao nhiêu số lẽ được nhập vào, tính trung bình cộng các số hạng chẵn được nhập? [/color] Bài này giống ví dụ trong sgk về tính tb cộng, ở đây thay vị tính tbc ta tính các số chẵn ( nhớ là nhập n số hạng giống như trong sgk)
4. a) Nhập số nguyên n, (n<10), in bảng cửu chương n ra màn hình có dạng sau:
N= 5
5 * 1 = 5
5 * 2 = 10 ………….. …………… …………..
5 * 10 = 50
b) Nhập n số hạng (giá trị mỗi số hạng được nhập từ bàn phím), viết chương trình xác định có bao nhiêu số chẵn được nhập vào, tính trung bình cộng các số hạng lẽ được nhập? 5. a) Viết chương trình giải bài toán cổ "Gà, chó"
b) Nhập số tự nhiên n (0<100), viết chương trình tìm xem có bao nhiêu số chẵn trong khoảng từ 2 đến n, tính tổng các số chẵn trong khoảng từ 1 đến n
6. a) Nhập số tự nhiên n (0<100), viết chương trình tìm xem có bao nhiêu số chẵn trong khoảng từ 1 đến n, tính tổng các số tự nhiên chia hết cho 3
b) Nhập n số hạng (giá trị mỗi số hạng được nhập từ bàn phím), viết chương trình xác định có bao nhiêu số chia hết cho 3 được nhập vào, tính trung bình cộng các số hạng lẽ được nhập? [/url]
Được sửa bởi myheart ngày Mon Mar 30, 2009 10:00 pm; sửa lần 4. | |
|
| |
Frank Lampard Dân Tạm Trú
Tổng số bài gửi : 28 Join date : 24/03/2009 Age : 28 Đến từ : Stamford Bridge
| Tiêu đề: Re: Những bài thực hành Wed Apr 01, 2009 9:30 am | |
| pạn nào bik làm ko zậy . Giúp mình làm zới . ______________________________________
Phong độ là nhất thời , đẳng cấp là mãi mãi . | |
|
| |
Starting_love Dân Thường Trú
Tổng số bài gửi : 88 Join date : 23/01/2009 Age : 29 Đến từ : Đẳng cấp prồ chỉ có ở 83 ^^
| Tiêu đề: Re: Những bài thực hành Wed Apr 01, 2009 12:42 pm | |
| Thầy ơi, thầy giúp em giải bài mà thầy kiểm tra một tiết lí thuyết đc ko thầy : Input: n Output: Số số chẵn? Số O? Trung bình cộng các số dương | |
|
| |
myheart Teacher
Tổng số bài gửi : 300 Join date : 22/11/2008
| Tiêu đề: Re: Những bài thực hành Wed Apr 01, 2009 1:23 pm | |
| - myheart đã viết:
- Starting_love đã viết:
- Thầy ơi, thầy giúp em giải bài mà thầy kiểm tra một tiết lí thuyết đc ko thầy :
Input: n Output: Số số chẵn? Số O? Trung bình cộng các số dương Hình như đề ra chi tiết hơn ? Phân tích bài toán: Căn cứ theo bài thực hành và ví dụ trong sách giáo khoa thì: Input: n, nghĩa là có n số hạng (n là số nguyên) được nhập từ bàn phím Outphut: ta đếm số số chẵn, đếm số số Zero, và đếm số dương và tính tổng các số dương
............ khai báo các biến đếm , tổng có kiểu nguyên
nhập n
for i:=1 to n do begin
write('Moi nhap so thu ',i:2, ' ');readln (a); If a>0 then begin dem:=dem+ 1; tong:=tong a;end; {dùng để đếm số dương, tính tổng các số dương => Trung bình cộng} If a= 0 then demo:=demo +1 else if a mod 2 = 0 then demc:=demc 1; {Vì qui ước không tính sô zero là số chẵn nên câu lệnh này để đếm số 0 và đếm số chẵn} END; writeln(' Trung binh cong cac so duong ', Tong/dem:8 :2); writeln(' so so zero co : ', demo:3,' so'); writeln(' so so chan co : ', demc:3,' so'); readln end.
Được sửa bởi myheart ngày Wed Apr 01, 2009 9:28 pm; sửa lần 2. | |
|
| |
Nhóc Thổ Địa Công
Tổng số bài gửi : 106 Join date : 22/11/2008 Age : 28 Đến từ : Một nơi... chỉ có riêng mình tôi...
| Tiêu đề: Re: Những bài thực hành Wed Apr 01, 2009 9:16 pm | |
| - Trích dẫn :
- dem:=dem 1; tong:=tong a
Hình như thiếu mấy cái dấu + rồi phải hok thầy =..=" __ Nhóc__ | |
|
| |
Munna Thổ Địa Công
Tổng số bài gửi : 117 Join date : 17/02/2009 Age : 29 Đến từ : nơi bình yên nhất
| Tiêu đề: Re: Những bài thực hành Thu Apr 02, 2009 4:23 pm | |
| Bài nớ em ko hiểu chi hết. Thầy giảng giùm em với | |
|
| |
Nhóc Thổ Địa Công
Tổng số bài gửi : 106 Join date : 22/11/2008 Age : 28 Đến từ : Một nơi... chỉ có riêng mình tôi...
| Tiêu đề: Re: Những bài thực hành Thu Apr 02, 2009 4:46 pm | |
| biến n để bạn nhập n số hạng biến a để bạn nhập giá trị các số biến i để đếm biến dem để tính số dương biến demo để tính số số 0 biến demc để tính số chẵn dem:=0 demo:=0 demc:=0 - Trích dẫn :
- nhập n
~~~> vd bạn nhập vào n là 5 - Trích dẫn :
- for i:=1 to n do
begin ~~~> câu lệnh for to do sẽ khiến câu write và các câu lệnh dưới đây thực hiện từ i -> n [ từ 1-> 5] - Trích dẫn :
- write('Moi nhap so thu ', i:2 , '); readln (a);
~~~> vd chỗ này bạn nhập số 4 thì nó sẽ gán 4 vào biến a - Trích dẫn :
- If a>0 then begin dem:=dem+ 1;
~~~> Nếu a > 0 thỳ a là số dương => biến dem sẽ đc cộng 1 vào giá trị [vd ở trên bạn đã gán 4 vào a nên 4 > 0 => dem hiện giờ có giá trị là 1] - Trích dẫn :
- tong:=tong + a; end;
~~~> ờ ở trên đề là tính tổng các số dương, a lại là số dương [cmt] nên biến tổng cộng thêm giá trị của a vào [ở vd 4 là số dương nên lúc này biến tong đc cộng thêm 4 vào giá trị] - Trích dẫn :
- If a=0 then demo:=demo +1 else if a mod 2 = 0 then demc:=demc +1;
~~~> còn nếu ở trên cái lúc thực hiện câu "Mời nhập số thứ..." bạn nhập số 0 thì biến demo sẽ được cộng 1 vào giá thị [thay vì cộng cho biến dem] và nếu số a bạn đã nhập ở trên chia hết cho 2 thì biến demc lại được cộng thêm 1 vào giá trị [4 chia hết cho 2 nên là số chẵn => biến demc được cộng thêm 1 vào giá trị] Vòng lặp đc thực hiện 5 lần... vì ở trên bạn nhập n = 5 - Trích dẫn :
- writeln(' Trung binh cong cac so duong ', Tong/dem:8 :2);
writeln(' so so zero co : ', demo:3,' so'); writeln(' so so chan co : ', demc:3,' so'); ~~~> in ra các kết quả --------------------------------------------------------------------------------------------- Em hiểu vậy có đúng không thầy nhỉ? Vì thực tế thì em cũng "gà" như mấy bạn nhiều lắm :< __ Nhóc__ | |
|
| |
myheart Teacher
Tổng số bài gửi : 300 Join date : 22/11/2008
| Tiêu đề: Re: Những bài thực hành Fri Apr 03, 2009 12:05 pm | |
| Nhóc tiến bộ thấy rõ, lại tham gia giải thích giúp bạn, Vote Nhóc 1 phiếu | |
|
| |
DragonNK Vệ Sĩ
Tổng số bài gửi : 257 Join date : 19/12/2008 Age : 28 Đến từ : Darkest Space of The Universe
| Tiêu đề: Re: Những bài thực hành Fri Apr 03, 2009 4:39 pm | |
| em làm thử bài 6b thầy coi đúng ko nghe thầy
khai báo tự khai báo =.=
write('moi ban nhap so so hang'); readln(n); while i<n do begin i:=i+1; write('moi ban nhap so thu',i);readln(a); if (a mod 3 = 0) then x:=x+1; if (a mod 2 <>0) then y:=y+1; if (a mod 2 <>0) then s:=s+a; end; write('co',x' so chia het cho 3); write('trung binh cong cac so le',s/y: 8: 2); readln; end. | |
|
| |
Nhóc Thổ Địa Công
Tổng số bài gửi : 106 Join date : 22/11/2008 Age : 28 Đến từ : Một nơi... chỉ có riêng mình tôi...
| Tiêu đề: Re: Những bài thực hành Fri Apr 03, 2009 7:36 pm | |
| Chiều nay làm kt 1 tiết... cái đề cũng dạng dạng như thế... mà mình hok dùng for to do, mình dùng while do [ngu dễ sợ ] Hem biết có đúng hok... em post lên thử khai báo... write nhập n... i:=2, le:=0; duong:=0 while i<=n do begin write ('Moi nhap so thu', i) ; Readln (a); if a>0 [chỗ ni hem nhớ rõ mình làm a>o hay a<o nữa huhu... dễ sai wá TT_TT] then begin duong:=duong+1 end; else if a mod i <=> 0 then begin le:=le+1; s:=s+a; end; i:=i+1; end; in kết quả p/s: em không biết là em đặt else if là đúng hay là if thôi vs chỗ i:=i+1 đặt chỗ đó có đúng hok nữa... [toàn bộ là do hên xui hết hix hix] __ Nhóc__ | |
|
| |
Sponsored content
| Tiêu đề: Re: Những bài thực hành | |
| |
|
| |
| Những bài thực hành | |
|