Bài tập ( tiết 53)

Câu lệnh lặp với số lần xác định có dạng:
For biến đếm:=giá trị đầu to giá trị cuối do câu lệnh
Trong đó: - for, to, do là các từ khoá
- biến đếm là kiểu số nguyên
Số vòng lặp= giá trị cuối – giá trị đầu + 1
Câu lệnh lặp với số lần chưa xác định có dạng
While điều kiện do câu lệnh
Trong đó: - điều kiện là phép so sánh
- câu lệnh có thể đơn hoặc ghép
Dạng 1: Trong các hoạt động dưới đây, hoạt động nào lặp với số lần chưa biết trước
a) Tính tổng của 20 số tự nhiên đầu tiên
b) Nhập một số hợp lệ, ví dụ số nguyên trong khoảng từ 0 đến 10 vào máy tính. Nếu số không hợp lệ thì yêu cầu nhập lại.
c) Nhập các số nguyên từ bàn phím cho đến khi đủ 50 số
d) Nhập các số từ bàn phím và tính tổng cho đến khi tổng đầu tiên < 1000 thì kết thúc.
Dạng 2: gạch chân chỗ sai trong mỗi c�u lệnh sau v� sửa lại cho d�ng
a) while i:=1 do t:=10;
b) while a<=b ; do writeln(‘ a không nhỏ hơn b’);
c) while s<=10 do n:=n+1; s:=s+n;
d) For i:=1,2 to 15,3 do writeln(‘M’);
e) For i:=100 to 1 do writeln(‘M’);
=> while x=1 do t:=10;
=> while a<=b do writeln(‘ a không nhỏ hơn b’);
=> while s<=10 do begin n:=n+1; s:=s+n; end;
=> For i:=1 to 15 do writeln(‘M’);
=> For i:=1 to 100 do writeln(‘M’);
Dạng 3: Sau khi thực hiện mỗi đoạn lệnh sau. Chương trình sẽ in ra kết quả gì?
a) So:=1;
While so<10 do writeln(so);
So:=so+1;
b) X:=0; tong:=0;
While tong<=10 do
begin
Writeln(tong);
Tong:=tong+1;
End;
X:=tong;
Dạng 3: Sau khi thực hiện mỗi đoạn lệnh sau. Chương trình sẽ in ra kết quả gì?
So:=1;
While so<10 do writeln(so);
So:=so+1;
Kết quả: In ra vô hạn số 1, mỗi số trên một dòng
2
3
4
5
Đ
Đ
Đ
Đ
Đ
1
1
1
1
1
1
…
1<10
X:=0; tong:=0;
While tong<=10 do
begin
Writeln(tong);
Tong:=tong+1;
End;
X:=tong;
0<=10
1
2
3
4
5
6
7
Đ
Đ
Đ
Đ
Đ
Đ
Đ
0
1
1
2
3
4
5
6
7
2
3
4
5
6
8
Đ
8
7
9
Đ
9
8
10
Đ
10
9
11
Đ
11
10
12
S
B1: Nhập n
B2: P 1, i1
B3: i>n, chuyển đến bước 5
B4: PP*i, ii+1
B5: In giá trị P và kết thúc
Dạng 4: Viết chương trình tính tích P=1*2*3*.*n, n được nhập vào từ bàn phím( sử dụng câu lệnh while . do)
Program Tinh_tich;
Var p:longint;
n,i:integer;
Begin
write(‘nhập vào số n=‘); readln(n);
p:=1;
for i:=1 to n do p:=p*I;
writeln(‘ tích cần tính là p=‘,p);
Readln;
End.
B1: Nhập n
B2: S 0, i1
B3: i>n, chuyển đến bước 5
B4: SS+1/i, ii+1
B5: In giá trị S và kết thúc