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

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]

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 .

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

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__

Bài nớ em ko hiểu chi hết. Thầy giảng giùm em với

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__

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

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.

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__