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

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.

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.

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

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"

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

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 ‘: vì 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


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

. 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

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

ac. ac. nois thía ai mà hiểu choài !!! Thầy oy lùm zúp đi thầy !!!

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

hphong đã viết:

[deleted]

Phong tham gia bài quá tốt sao lại xóa đi
Mấy nhỏ đọc ko hiểu thì có thầy đọc hiểu mà
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?

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

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

thanks bạn nhìu lắm nhoá

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

đề 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

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!

Thay giai? ho em bai nay cai nha'
1-3+5-7+...-n
Thay giai? gium em cai@@

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
thay sua? loi~ gium em cai