CLB Ngôi Sao Nhỏ

Nơi trao đổi bàn luận của các thành viên CLB Ngôi Sao Nhỏ
 
IndexIndex  CalendarCalendar  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng Nhập  

Share | 
 

 Những bài thực hành

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


Tổng số bài gửi : 300
Join date : 22/11/2008

Bài gửiTiê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.
Về Đầu Trang Go down
Xem lý lịch thành viên
Frank Lampard
Dân Tạm Trú


Tổng số bài gửi : 28
Join date : 24/03/2009
Age : 21
Đến từ : Stamford Bridge

Bài gửiTiê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 .
Về Đầu Trang Go down
Xem lý lịch thành viên
Starting_love
Dân Thường Trú


Tổng số bài gửi : 88
Join date : 23/01/2009
Age : 21
Đến từ : Đẳng cấp prồ chỉ có ở 83 ^^

Bài gửiTiê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
Về Đầu Trang Go down
Xem lý lịch thành viên
myheart
Teacher


Tổng số bài gửi : 300
Join date : 22/11/2008

Bài gửiTiê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.
Về Đầu Trang Go down
Xem lý lịch thành viên
Nhóc
Thổ Địa Công


Tổng số bài gửi : 106
Join date : 22/11/2008
Age : 21
Đến từ : Một nơi... chỉ có riêng mình tôi...

Bài gửiTiê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__
Về Đầu Trang Go down
Xem lý lịch thành viên
Munna
Thổ Địa Công


Tổng số bài gửi : 117
Join date : 17/02/2009
Age : 21
Đến từ : nơi bình yên nhất

Bài gửiTiê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
Về Đầu Trang Go down
Xem lý lịch thành viên
Nhóc
Thổ Địa Công


Tổng số bài gửi : 106
Join date : 22/11/2008
Age : 21
Đến từ : Một nơi... chỉ có riêng mình tôi...

Bài gửiTiê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__
Về Đầu Trang Go down
Xem lý lịch thành viên
myheart
Teacher


Tổng số bài gửi : 300
Join date : 22/11/2008

Bài gửiTiê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 Very Happy
Về Đầu Trang Go down
Xem lý lịch thành viên
DragonNK
Vệ Sĩ
Vệ Sĩ


Tổng số bài gửi : 257
Join date : 19/12/2008
Age : 20
Đến từ : Darkest Space of The Universe

Bài gửiTiê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.

_________________
Phùng Tấn Hải Long,x3, hailongpt@rocketmail.com

~xXx~Trong triệu người,anh hùng chỉ có một~xXx~
Về Đầu Trang Go down
Xem lý lịch thành viên http://hailongpt.blogtiengviet.net
Nhóc
Thổ Địa Công


Tổng số bài gửi : 106
Join date : 22/11/2008
Age : 21
Đến từ : Một nơi... chỉ có riêng mình tôi...

Bài gửiTiê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ợ No ]

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 Rolling Eyes vs chỗ i:=i+1 đặt chỗ đó có đúng hok nữa... Crying or Very sad [toàn bộ là do hên xui hết hix hix]


__Nhóc__
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Những bài thực hành   Today at 10:20 pm

Về Đầu Trang Go down
 
Những bài thực hành
Xem chủ đề cũ hơn Xem chủ đề mới hơn 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
CLB Ngôi Sao Nhỏ :: Hoạt Động :: Trao Đổi - Học Tập-
Chuyển đến