Bài giảng Tin học Lớp 8 - Bài thực hành 6: Sử dụng lệnh lặp while ... do - Trường THCS Phong Phú

Xác định bài toán 
+ Input: n 
+ Output: dãy số tự nhiên 
Bài 1: Viết chương trình xuất ra dãy số tự nhiên 
liên tiếp với n nhập từ bàn phím (dùng 
Whiledo) 
VD: n=5  Kết quả là: 1 2 3 4 5 
Bắt đầu 
Kết thúc 
i < n 
Đ 
i 
i 0 
i  i + 1 
S 
i 1 2 3 4 5 
n 
Mô tả thuật toán 
N=5 
0 
Program DaySoTuNhien; 
 Uses crt; 
 Var i,n: integer; 
Begin 
 Clrscr; 
 Write(‘Nhap n=’); readln(n); 
 i:=0; 
 while i<n do 
 Begin 
 i:=i+1; 
 write(i, ‘ ‘); 
 end; 
 readln; 
end. 
Bắt đầu 
Kết thúc 
i < n 
Đ 
i 
i 0 
i  i + 1 
S 
n 
Xác định bài toán 
+ Input: nhập n, nhập x1, x2, x3., xn 
+ Output: TBC 
Bài 2: Tính TBC của n số thực x nhập từ bàn 
phím 
VD: n=5  
Kết quả là: (1 + 2 + 3 + 4 + 5) / 5 = 3 
x1 x2 x3 x4 x5 n TBC 
Bắt đầu 
Kết thúc 
dem < n 
Đ 
dem  0 
TB  0 
dem  dem + 1 
S 
n 
TB  TB + x 
TB  TB / n 
x 
dem 2 3 4 5 
Mô tả thuật toán 
n=5 
1 
x 3 6 7 8 5 
TB 8 14 21 29 5 
 TB = TB/5 =29/5=5.8 
5 3 6 7 8 
Program Tinh_TBC1; 
 Uses crt; 
 Var dem, n: integer; 
 x, TB: real; 
Begin 
 Clrscr; 
 dem:=0; TB:=0; 
 write(‘Nhap tong so can tinh n=’); readln(n); 
 while dem<n do 
 Begin 
 dem:=dem+1; 
 write(‘Nhap so thu’, dem, ‘ = ‘); 
 readln(x); 
 TB:=TB+x; 
 end; 
 TB:=TB/n; 
 writeln(‘Trung binh cua’, n , ‘so la’ , TB:10:2); 
 readln; 
end. 
Bắt đầu 
Kết thúc 
dem < n 
Đ 
dem  0 
TB  0 
dem  dem + 1 
S 
n 
TB  TB + x 
TB  TB / n 
x 
Bài 2: Tính TBC của n số thực x nhập từ bàn 
phím 
Viết lại chương trình bằng cách sử dụng câu 
lệnh For  do thay cho câu lệnh While  do 
(1) Program Tinh_TBC1; 
(2) Uses crt; 
(3) Var dem, n: integer; 
(4) x, TB: real; 
(5) Begin 
(6) Clrscr; 
(7) dem:=0; TB:=0; 
(8) write(‘Nhap tong so can tinh n=’); readln(n); 
(9) while dem<n do 
(10) Begin 
(11) dem:=dem+1; 
(12) write(‘Nhap so thu’, dem, ‘ = ‘); 
(13) readln(x); 
(14) TB:=TB+x; 
(15) end; 
(16) TB:=TB/n; 
(17) writeln(‘Trung binh cua’, n , ‘so la’ , TB:10:2); 
(18) readln; 
(19) end. 
Hướng dẫn: Thay đổi 3 
dòng lệnh 7, 9, 11 
5 bạn trả lời bình luận nhanh, chính xác nhất 
sửa được lỗi sai để chạy được chương trình 
sử dụng lệnh Fordo sẽ được 10 điểm 
Xác định bài toán 
+ Input: nhập n 
+ Output: n có phải là số nguyên tố hay không? 
Bài 3: Viết chương trình nhập vào một số tự nhiên bất kì 
từ bàn phím. Xét xem số đó có phải là số nguyên tố hay 
không? 
Gợi ý: Số nguyên tố là số tự nhiên chỉ chia hết cho 
1 và chính nó (1, 3, 5, 7, 11, 13, 17.) 
VD: n=6  n không phải là số nguyên tố 
Vì 6 chia hết cho 1, 2, 3, 6 
n=7  n là số nguyên tố 
Vì 7 chỉ chia hết cho 1 và 7 
S 
Bắt đầu 
n < = 1 
Đ 
S 
n 
i  2 
n mod i 
0 
i = n 
i  i +1 
Không là SNT 
Là SNT 
Đ 
S 
Đ 
Kết thúc 
i 2 3 
Mô tả thuật toán 
N=9 
i 2 3 
N=7 
4 5 6 7 
Program KT_SNT; 
 Uses crt; 
 Var i,n: integer; 
Begin 
 Clrscr; 
 write(‘Nhap mot so nguyen:’); 
 readln(n); 
 If n<=1 then writeln(‘N khong la SNT’) 
 else begin 
 i:=2; 
 while n mod i 0 do i:=i+1; 
 if i=n then writeln(n, ‘la SNT’); 
 else writeln(n, ‘khong la SNT’); 
 end; 
 readln; 
end. 
S 
Bắt 
đầu 
n < = 1 
Đ 
S 
n 
i  2 
n mod i 
0 
i = n 
i  i +1 
Không là 
SNT 
Là SNT 
Đ 
S 
Đ 
Kết 
thúc 
Thực hành Gõ và chạy thử chương trình của 
các Bài tập trên trang web: 
https://www.onlinegdb.com/online_pascal_compiler 
Nhấn Run  Chạy chương trình 
Nhập số  Xem kết quả 
Đổi màu phông nền, 
cỡ chữ 
 Chọn Done 
Chọn biểu tượng cài đặt