SGK Tin Học 8 - Bài thực hành 6. SỬ DỤNG LỆNH LẶP WHILE ... DO

Mục đích, yêu cầu
Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước.
Rèn luyện khả năng đọc chương trình, tìm hiểu tác dụng của các câu lệnh.
Nội dung
BÀI 1. Viết chương trình sử dụng lệnh lặp while.do để tính trung bình n số thực x-ị, *2’ x3>-> xn- Các s° nvàx-ị, x2, x3,..., xn được nhập vào từ bàn phím.
Ý tưởng, sử dụng một biến đếm và lệnh lặp while...do để nhập và cộng dần các số vào một biến kiểu số thực cho đến khi nhập đủ n số.
Mô tả thuật toán của chương trình, các biến dự định sẽ sử dụng và kiểu của chúng.
Gõ chương trình sau đây và lưu chương trình với tên 'inh_TB.pas:
program Tinh_Trung_binh; uses crt;
var n, dem : Integer;
X, TB : real;
begin
clrscr;
dem: = 0; TB: = 0 ;
write('Nhap so cac 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:3);
writeln('Nhan Enter de thoat
readln
end.
Đọc và tìm hiểu ý nghĩa của từng câu lệnh. Dịch chương trình và sửa lỗi, nếu có. Chạy chương trình với các bộ dữ liệu được gõ từ bàn phím và kiểm tra kết quả nhận được.
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.
BÀI 2. Tìm hiểu chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố hay không.
Ý tưởng. Kiểm tra lần lượt N có chia hết cho các số tự nhiên 2 < i < N - 1 hay không. Kiểm tra tính chia hết bằng phép chia lấy phần dư (mod). a) Đọc và tìm hiểu ý nghĩa của từng câu lệnh trong chương trình sau đây:
uses Crt;
var n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguỵen: '); readln(n);
If n
<= 1 then
writeln (n,' khong
la
so
nguyên
to' )
else
begin
i: = 2;
while (n
mod i 0) do i : =
i +
1;
if i = n
then writeln(n,'
la
so
nguyên
to ! ' )
else writeln(n,' khong phai la so nguỵen toi'); end;
readln
end.
b) Cỡ, dịch và chạy thử chương trình với một vài độ chính xác khác nhau.