Lop 8 bth6

Bài thực hành 6
SỬ DỤNG LỆNH LẶP WHILE…DO
Bài thực hành 6
SỬ DỤNG LỆNH LẶP WHILE…DO
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 x1, x2,x3,…,xn. Các số n và x1, x2,x3,…,xn được nhập vào từ bàn phím.
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.
- Input và Output của bài toán:
+ Input: Dãy số thực x1, x2,x3,…,xn
+ Output: Giá trị trung bình (x1, x2,x3,…,xn)/n.

Bài thực hành 6
SỬ DỤNG LỆNH LẶP WHILE…DO
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 x1, x2,x3,…,xn. Các số n và x1, x2,x3,…,xn được nhập vào từ bàn phím.
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.
- Thuật toán:
B1: Nhập n là số lượng số thực sẽ được nhập từ bàn phím:
dem 0, Sum  0;
B2: Trong khi dem Nhập giá trị số thực x từ bàn phím.
Sum Sum+x, dem dem+1;
B3: Tính TB Sum/n
B4: Đưa TB ra màn hình, rồi kết thúc.
b) Chương trình tính trung bình n số thực x1, x2,x3,…,xn

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 cong cua ‘, n, ‘ so la = ‘, TB:10:3);
writeln (‘ Nhan Enter de thoat….’);
readln
end.
Bài thực hành 6
SỬ DỤNG LỆNH LẶP 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.
Thuật toán của chương trình:
Input và Output của bài toán:
+ Input: Số tự nhiên N;
+ Output: Trả lời N là số nguyên tố hoặc N không là số nguyên tố.
Bài thực hành 6
SỬ DỤNG LỆNH LẶP 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.
Thuật toán của chương trình:
Thuật toán:
B1: Nhập số tự nhiên N từ bàn phím.
B2: Nếu N <= 0 thông báo N không phải là số tự nhiên, rồi chuyển đến B4.
B3: Nếu N >0:
3.1. i  2;
3.2. Trong khi N mod i <> 0 còn đúng thì i i+1;
3.3. Nếu i = N thì thông báo N là số nguyên tố, rồi chuyển đến B4. Ngược lại thông báo N không phải là số nguyên tố.
B4: Kết thúc
b) Chương trình:
program so_nguyen_to;
var n, i : integer;
begin
write (‘ Nhap vao mot so nguyen: ‘); readln (n);
if n <= 1 then writeln (n, ‘khong la so nguyen to)
else
begin
i:=2;
while (n mod i <> 0) do i:= i+1;
if i = n then writeln (n, ‘la so nguyen to!’)
else writeln (n, ‘khong phai la so nguyen to!’);
end;
readln
end.