Đề cương ôn tập môn Tin học 8

Sau đó giá trị biến đếm tăng dần một đơn vị từ giá trị đầu đến giá trị cuối và câu lệnh được thực hiện mỗi lần tăng biến đếm cho đến khi biến đếm vượt quá giá trị cuối thì kết thúc... [r]

ĐỀ CƯƠNG ÔN TẬP TIN 8

I Câu hỏi :

Nêu cú pháp cách hoạt động câu lệnh lặp?

Cho ví dụ câu lệnh lặp ?

Viết chương trình tính tổng N số tự nhiên đầu tiên, với N số tự nhiên nhập vào từ bàn phím ?

4

Viết chương trình tính tổng sau: S=

12+

22+ .+

n2 (n nhập vào từ bàn phím).

Viết chương trình tính: a S1 = 2n

b S2= n!=1.2.3…n

HS tự ôn tập thực hành thêm nhà II Gợi ý trả lời :

1 - Cú pháp:

for <biến đếm> := <giá trị đầu> to <giá trị cuối> <câu lệnh>;

- Cách hoạt động: Khi gặp câu lệnh lặp trên, câu lệnh thực bắt đầu với giá trị biến đếm giá trị đầu Sau giá trị biến đếm tăng dần đơn vị từ giá trị đầu đến giá trị cuối câu lệnh thực lần tăng biến đếm cho đến biến đếm vượt giá trị cuối kết thúc Như biến đếm phải khai báo kiểu nguyên giá trị cuối phải không nhỏ giá trị đầu

2

program Lap; var i: Integer; begin

for i := to 10 do

writeln('Day la lan lap thu ',i); ReadLn;

end

program Tinh_tong; var N,i: Integer; S: longint; begin

write('Nhap so N = '); readln(N); S:=0;

for i := to N S:=S+i;

writeln('Tong cua ',N,' so tu nhien dau tien S = ',S); end

4

Uses crt;

Write(‘Nhap n=’); ReadLn(n); S:=0;

For i:=1 To n Do S:=S+1/i*i; Write(S);

ReadLn; End

5 Uses crt;

Var S1, S2:Real; i, n: Integer; Begin

Write(‘Nhap n=’); ReadLn(n); S1:=1; S2:=1;

For i:=1 To n Do Begin

S1:=S1*2; S2:=S2*i; End;

WriteLn(S1); WriteLn(S2); ReadLn;

End