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 | 
 

 Bài giải về câu lệnh lặp trong SGK Tin 8.

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 đề: Bài giải về câu lệnh lặp trong SGK Tin 8.   Fri Feb 20, 2009 11:43 am

Bài giải các bài tập trong SGK.

Viết chương trình tính tổng A= (1/ 1 + 1/2 + 1/ 3 + …+ 1/ n

Uses crt;

Var I,n: integer;
Tong:real;
Begin

Clrscr;
Write(‘Moi nhap so n ‘);readln(n);
For i:=1 to n do
Tong:=tong + (1/i );

Writeln(‘ Ket qua cua tong A = ‘,Tong:8:2);

Readln
End.

Viết chương trình nhập vào số n, tính tổng của bình phương các số lẽ tự nhiên
đầu tiên đến n.


Uses crt;

Var I,n, tong: integer;

Begin

Clrscr;
Write(‘Moi nhap so n ‘);readln(n);
For i:=1 to n do
If I mod 2 <> 0 then
Tong:=tong + sqr(i);
Writeln(‘ Ket qua cua tong bin phuong cac so le tu ‘,n:2,’ = ‘,Tong:8:2);
Readln

End.

Kết quả bài toán “gà,chó” lớp 5
Uses crt;
Var Ga,cho,i: byte;
Begin
Clrscr;
For cho:=1 to 25 do
begin
Ga:= 36-cho;
If (cho*4 +ga*2 =100) then
Writeln(‘ So ga = ‘,Ga:2, ‘ va so cho = ‘,Cho:4);
Readln
End.
Viết chương trình nhập vào số nguyên a và n, tính kết quả a^n và in ra màn hình


Uses crt;
Var a,n,i integer;
Ketqua:Longint;

Begin
Clrscr;
Write(‘Moi nhap so a ‘);readln(a);
Write(‘Moi nhap so n ‘);readln(n);
Ketqua:=1;
For i:=1 to n do
Ketqua:=Ketqua * a;
Writeln(‘ Ket qua cua ‘,a:5,’ ^ ‘,n:5,’ = ‘,Ketqua:6);
Readln
End.


Được sửa bởi myheart ngày Sun Mar 29, 2009 5:05 pm; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
lovelystar_1810
Dân Tạm Trú


Tổng số bài gửi : 34
Join date : 07/02/2009
Age : 21
Đến từ : Nghĩ đó là nơi j`thì nó là nơi đó

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Thu Feb 26, 2009 10:57 pm

thanks thay` nhieu`.(May tinh hu, phai muon laptop cua ba, ko co vietkey, mong thu loi).
Thanks thay!Em lam` bai` nay` roi`, trung phoc, giong het thay luon. Cool Laughing
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: Bài giải về câu lệnh lặp trong SGK Tin 8.   Fri Mar 06, 2009 11:20 am

Thầy ơi, em ko hiểu chỗ này
Viết chương trình nhập vào số nguyên a và n, tính kết quả a^n và in ra màn hình
Writeln(‘ Ket qua cua ‘,a:5,’ ^ ‘,n:5,’ = ‘,Ketqua:6);
thầy giảng giùm em với Sad
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: Bài giải về câu lệnh lặp trong SGK Tin 8.   Fri Mar 06, 2009 11:27 am

Giải giùm em bài này:" Viết chương trình nhập n số hạng. Tính trung bình cộng của n số hạng"
Về Đầu Trang Go down
Xem lý lịch thành viên
blacksnow
Du Khách


Tổng số bài gửi : 15
Join date : 24/12/2008
Age : 21
Đến từ : địa ngục :))

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Fri Mar 06, 2009 11:42 am

Munna đã viết:
Thầy ơi, em ko hiểu chỗ này
Viết chương trình nhập vào số nguyên a và n, tính kết quả a^n và in ra màn hình
Writeln(‘ Ket qua cua ‘,a:5,’ ^ ‘,n:5,’ = ‘,Ketqua:6);
thầy giảng giùm em với Sad

cái này thì dễ thôi, nó sẽ thế cái chữ a = số mình đánh vào, n = số mình đánh vào, kêt quả thế = kết quả máy tính tính đc, vd như thế này, bạn gõ a là 5, n là 2 (tính 5 luỹ thừa 2) thì nó sẽ hiện ket qua cua 5 ^ 2 = 25 (có lẽ nói nhiều thì hơi khó hiểu nhưng nói chung là để a và n ở đó, chứ mình làm j biết ng` ta muốn tính mấy luỹ thừa mấy đâu, khi nhập vào thì đc máy tính thế vào đó). Nói chung kái nỳ khá rắc rối đấy ye

thầy ơi, cái TBC thằng Trung, lộn, bạn Trung làm khó hiểu quá thầy, mà làm while do thì em ko biết làm Crying or Very sad
có khúc nớ em thấy ko đúng nên sửa lại thành như ri thầy coi đúng ko
writeln('moi ban nhao so so hang'); readln(n);
for i:=0 to n do
begin
writeln('moi ban nhap so thu', i); readln(t);
s:=s+t
đến chỗ này em kết thúc câu lệnh kép End; sau đó mới tính đến lệnh này :
s:=s/n;
(sửa trực tiếp cho em dễ hiểu )
cái bạn nớ làm là writeln(moi ban nhap so thu',i,') đâu có cần cái ,' nữa đâu thầy, hắn tự thế i = số thứ tự rồi in ra màn hình thôi chớ?, còn s:=s/n*i thì làm răng mà có chia i nữa, tổng chia n raTBC rồi mà thầy?
Về Đầu Trang Go down
Xem lý lịch thành viên http://360.yahoo.com/kitten_naughty
myheart
Teacher


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

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Fri Mar 06, 2009 12:17 pm

blacksnow đã viết:
Munna đã viết:
Thầy ơi, em ko hiểu chỗ này
Viết chương trình nhập vào số nguyên a và n, tính kết quả a^n và in ra màn hình
Writeln(‘ Ket qua cua ‘,a:5,’ ^ ‘,n:5,’ = ‘,Ketqua:6);
thầy giảng giùm em với Sad

Cái này do không học bài nên không hiểu, vậy đọc để hiểu nhá
Writeln(‘ ');
Lệnh dùng để in ra màn hình nội dung chứa trong ngoặc
‘ Ket qua cua ‘: ket qua cua là kiểu STRING nên để trong cặp dấu ' '
tiếp theo là 1 biến, giữa 1 biến và 1 xâu ký tự được ngăn cách nhau bởi dấu phẩy ,
‘ Ket qua cua ‘,a:5,’ ^ ‘,n:5,’ = ‘,Ketqua:6
Như thế hiểu chưa Question


thầy ơi, cái TBC thằng Trung, lộn, bạn Trung làm khó hiểu quá thầy, mà làm while do thì em ko biết làm Crying or Very sad
có khúc nớ em thấy ko đúng nên sửa lại thành như ri thầy coi đúng ko
writeln('moi ban nhao so so hang'); readln(n);
for i:=0 to n do
begin
writeln('moi ban nhap so thu', i); readln(t);
s:=s+t
s:=s/n
Đầu tiên phân tích bài toán :
nhập n số hạng và tính tbc của n số hạng
vậy phải có biến n để chứa n số hạng.
Muốn biết TBC phải có 1 tổng để chưa tổng các số hạng, khai báo 1 biến Tong
Biến a dùng để chứa giá trị các số hạng đưa vào
dùng lệnh lặp để cộng dồn tất cả các giá trị của số hạng. Biến i là biến đếm trong cấu trúc lặp For
Giải như sau:
uses crt;
Var n,Tong: integer
Begin
clrscr;
write('Moi nhap n so hạng ');readln(n);
for i:= 1 to n do
Begin
write('Moi nhap so hạng thu ', i:3);readln(a);
Tong:= Tong+a;
end;
writeln('TBC cua cac so hang la ', tong/n: 8 : 2 );
readln
end.

Làm theo cấu trúc while ... do

uses crt;
Var n,Tong: integer
Begin
clrscr;
write('Moi nhap n so hạng ');readln(n);
while i<n do
Begin
i:=I+1;
write('Moi nhap so hạng thu ', i : 2);readln(a);
Tong:= Tong+a;
end;

writeln('TBC cua cac so hang la ', tong/n: 8 : 2 );
readln
end.

Khác nhau ở :
Lệnh For i:= 1 to n do
Nghĩa là biết được số lần để cộng dồn giá trị a và tính tổng
while .. do
mình phải đặt điều kiện i<n
và nhớ cứ 1 lần cộng ta phải tăng i:= i+1 để đủ n lần thì cấu trúc lặp thoát ra, nếu không có câu lệnh đếm i:= i+1 thì vòng lặp diễn ra vô tận
Hy vọng các em hiểu bà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: Bài giải về câu lệnh lặp trong SGK Tin 8.   Fri Mar 06, 2009 10:10 pm

Very Happy Very Happy Very Happy . H thì bày này em hiểu . Thế kòn tính a^n theo cấu trúc while ...do thì sao hả thầy Question Question Question
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: Bài giải về câu lệnh lặp trong SGK Tin 8.   Sat Mar 07, 2009 11:48 am

Tụi em chưa đạt đến trình độ cao thế đâu.Anh hphong viết như vậy thì có......thầy mới hiểu
Về Đầu Trang Go down
Xem lý lịch thành viên
blacksnow
Du Khách


Tổng số bài gửi : 15
Join date : 24/12/2008
Age : 21
Đến từ : địa ngục :))

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Sat Mar 07, 2009 11:36 pm

myheart đã viết:
Đầu tiên phân tích bài toán :
nhập n số hạng và tính tbc của n số hạng
vậy phải có biến n để chứa n số hạng.
Muốn biết TBC phải có 1 tổng để chưa tổng các số hạng, khai báo 1 biến Tong
Biến a dùng để chứa giá trị các số hạng đưa vào
dùng lệnh lặp để cộng dồn tất cả các giá trị của số hạng. Biến i là biến đếm trong cấu trúc lặp For
Giải như sau:
uses crt;
Var n,Tong: integer
Begin
clrscr;
write('Moi nhap n so hạng ');readln(n);
for i:= 1 to n do
Begin
write('Moi nhap so hạng thu ', i:3);readln(a);
Tong:= Tong+a;
end;
writeln('TBC cua cac so hang la ', tong/n: 8 : 2 );
readln
end.


thầy trả lời sai cái em muốn hỏi ầu dauhang, thôi, nói chung là chắc em làm cũng ko sai Very Happy cái while do thì sau cái bài tính 1+ 1/2 + 1/3 ..... thì chắc em biết làm rồi tho
Về Đầu Trang Go down
Xem lý lịch thành viên http://360.yahoo.com/kitten_naughty
nhoxkuto
Du Khách


Tổng số bài gửi : 2
Join date : 01/03/2009
Age : 21

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Tue Mar 10, 2009 9:40 am

ac. ac. nois thía ai mà hiểu choài !!! Thầy oy lùm zúp đi thầy !!! Evil or Very Mad money
Về Đầu Trang Go down
Xem lý lịch thành viên
nhoxkuto
Du Khách


Tổng số bài gửi : 2
Join date : 01/03/2009
Age : 21

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Tue Mar 10, 2009 9:46 am

myheart đã viết:
Bài giải các bài tập trong SGK.

........................................................
Readln
End.
Thày oy cấu trúc while do đâu choài T_T Hig
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: Bài giải về câu lệnh lặp trong SGK Tin 8.   Tue Mar 10, 2009 12:20 pm

hphong đã viết:
[deleted]
Phong tham gia bài quá tốt sao lại xóa đi Question
Mấy nhỏ đọc ko hiểu thì có thầy đọc hiểu mà Sad
Những bài không giải chính là còn để lại cho mấy nhỏ tự làm. Không lẽ, thầy ra đề, rồi thầy làm, các em ngồi chơi? Question
Về Đầu Trang Go down
Xem lý lịch thành viên
lovecandy1995
Dân Tạm Trú


Tổng số bài gửi : 42
Join date : 19/02/2009
Age : 21
Đến từ : cộng đồng 83 siu quậy

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Tue Mar 10, 2009 9:11 pm

Thầy ơi giải giúp em bài này , thầy cho về nhà màh em hok bik làm , tính bình thường thì đc chứ dùng while ... do... thì hok bik giúp em với Crying or Very sad
Biết rằng lãi suất ngân hàng là 0,5 % 1 tháng. Hỏi: gửi số tiền x vào ngân hàng và sau n tháng thì chúng ta có bao nhiu tiền, x và n nhập từ bàn phím
Về Đầu Trang Go down
Xem lý lịch thành viên
chonanhhao
Thổ Địa Công


Tổng số bài gửi : 134
Join date : 22/11/2008
Age : 21
Đến từ : 8/2 pro

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Tue Mar 10, 2009 9:24 pm

lovecandy1995 đã viết:
Thầy ơi giải giúp em bài này , thầy cho về nhà màh em hok bik làm , tính bình thường thì đc chứ dùng while ... do... thì hok bik giúp em với Crying or Very sad
Biết rằng lãi suất ngân hàng là 0,5 % 1 tháng. Hỏi: gửi số tiền x vào ngân hàng và sau n tháng thì chúng ta có bao nhiu tiền, x và n nhập từ bàn phím
bài đó dễ mà
đầu tiên là
uses crt;
var i,n:integer;
a,x:real;
begin
write(' số tiền bạn cần gửi vào ngân hàng là ');readln(x);
write(' số tháng bạn cần gửi vào ngân hàng là ');readln(n);
a:=0.005;
i:=1;
while i<=n do
begin
x:=x*a+x;i:=i+1;
end;
writeln(' số tiền bạn rút được là ',x:8:2);
readln;
end.
Mình thông minh quá Very Happy Cool
Về Đầu Trang Go down
Xem lý lịch thành viên
lovecandy1995
Dân Tạm Trú


Tổng số bài gửi : 42
Join date : 19/02/2009
Age : 21
Đến từ : cộng đồng 83 siu quậy

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Tue Mar 10, 2009 10:18 pm

thanks bạn nhìu lắm nhoá I love you
Về Đầu Trang Go down
Xem lý lịch thành viên
chonanhhao
Thổ Địa Công


Tổng số bài gửi : 134
Join date : 22/11/2008
Age : 21
Đến từ : 8/2 pro

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Thu Mar 12, 2009 10:55 pm

hphong đã viết:
Code em sai rồi Khang, 0.05 thôi em. Nhưng mà đây là simple interest hay là compund interest hả em
0,005 là đúng rùi mà anh, anh xem lại đi
Về Đầu Trang Go down
Xem lý lịch thành viên
chonanhhao
Thổ Địa Công


Tổng số bài gửi : 134
Join date : 22/11/2008
Age : 21
Đến từ : 8/2 pro

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Mon Mar 16, 2009 7:26 pm

đề thầy ra về nhà :
Bài 1) gửi số tiền x(lãi xuất 0.5%) và định rút số tiền y ( y>x). Hỏi chờ bao nhiu tháng ?
Bài 2) in ra màn hình
*
**
***
****
*****
...........
BÀI LÀM
Bài 1)
uses crt;
var i : integer;
x,y :real;
begin
clrscr;
write(' so tien can gui ');readln(x);
write(' so tien can rut ');readln(y);
while x<y do
begin
x:=x*0.005+x;i:=i+1;
end;
writeln('so thang can phai cho la ',i);
readln;
end.
Bài 2)
uses crt;
var i,j,n : integer;
begin
write ('nhap n ');readln(n);
từ đây có thể làm 2 cách
CÁCH 1:
for i:=1 to n do
begin
for j:=1 to i do write ('*');
writeln;
end;
readln;
end.
CÁCH 2
while i<=n do
begin
for j:=1 to i do write ('*');i:=i+1;
writeln;
end;
readln;
end.

trên đó là 2 cách làm, chỉ thay đổi 1 tí xíu, nhưng có vẻ cách 1 dễ hỉu hơn. Còn nếu ai ko hỉu thì hỏi thầy Hưng hoặc qua lớp Khang , Khang zảng cho Very Happy
Về Đầu Trang Go down
Xem lý lịch thành viên
namika
Dân Tạm Trú


Tổng số bài gửi : 21
Join date : 30/11/2008
Age : 21
Đến từ : quiet place

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Mon Apr 20, 2009 8:09 pm

Thầy ơi, cho em hỏi với: Bài nhập n phần tử số nguyên dương và âm, tìm số âm lớn nhất trong các số đã nhập và ỏ vị trí nào thì làm sao ạ? Em cảm ơn thầy trước!
Về Đầu Trang Go down
Xem lý lịch thành viên http://www.lovelysakura.sky.vn
leminhduc19898
Du Khách


Tổng số bài gửi : 2
Join date : 13/02/2012

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Mon Feb 13, 2012 8:04 pm

Thay giai? ho em bai nay cai nha'
1-3+5-7+...-n
Thay giai? gium em cai@@ Surprised
Về Đầu Trang Go down
Xem lý lịch thành viên
leminhduc19898
Du Khách


Tổng số bài gửi : 2
Join date : 13/02/2012

Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Mon Feb 13, 2012 8:06 pm

Surprised cai chuong trinh kia cua thay tinh tong 1 +1/2 +...+1/n cua thay hinh nhu co loi~ thay a
neu ta cho n = 1 thi ket qua phai? bang 2 chu sao ket qua kia lai bang 1 thay a Razz
thay sua? loi~ gium em cai
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Bài giải về câu lệnh lặp trong SGK Tin 8.   Today at 7:58 pm

Về Đầu Trang Go down
 
Bài giải về câu lệnh lặp trong SGK Tin 8.
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Tìm hiểu về Vận đơn đường biển (Bill of Lading - B/L)
» Cảng biển khu vực phía Nam: Bao giờ hết cảnh chờ đường?
» Tiếp tục làm rõ các sai phạm của Vinashin
» CÁCH POST HÌNH LÊN DIỄN ĐÀN
» Tỷ lệ vàng

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