Bài Thực hành: Sử Dụng lệnh lặp while..do

Bài TH6: 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,.,xn được nhập từ bàn phím


Cách giải như thế nào đây?
Hướng giải quyết:
Sử dụng 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ố.

Bài TH6: Sử dụng lệnh lặp While..do
Input:
N: Số các số cần tính.
x1, x2,.,xn: được nhập từ bàn phím
Out put:
Trung bình của n số thực.
Biến dự kiến sử dụng và kiểu của nó trong chương trình:
Var N, dem:Integer;
X,tb,tong:real;



Input, output của bài này là gì?
Biến nào sẽ sử dụng và kiểu dữ liệu của nó là dữ liệu kiểu nào?
Bài TH6: Sử dụng lệnh lặp While..do
Thuật toán:
Bước 1: Gán Tong? 0, tb? 0, Dem? 0.
Bước 2: Nhập vào số các số cần tính( Nhập n).
Bước 3: So sánh dem với n. Nếu dem<=n thì nhập phần tử xdem, Tong?tong+ xdem .
Ngược lại thì chuyển tới bước 4.
Bước 4: Tính TB?tong/n. In kết quả ra màn hình.


Thuật toán để giải bài này như thế nào?
Bài TH6: Sử dụng lệnh lặp While..do
Lưu đồ:


Bài TH6: Sử dụng lệnh lặp While..do
Chương trình:
Program Tinh_Trung_Binh;
Uses Crt;
Var n,dem:integer;
X,tong,tb:real;
Begin
Clrscr;
Dem:=0; tong:=0; tb:=0;
Write(`Nhap vao so cac so can tinh: `); readln(n);
While dem Begin
Dem:=dem+1;
Write(`Nhap vao so thu `,dem,` = `); readln(x);
Tong:=tong+x;
End;
Tb:=tong/n;
Writeln(`Trung binh cua `,n,` so la: `,tb:10:3);
Readln;
End.


Bài TH6: Sử dụng lệnh lặp While..do
Chương trình với for..do
Program Tinh_Trung_Binh;
Uses Crt;
Var n,dem:integer;
X,tong,tb:real;
Begin
Clrscr;
Dem:=0; tong:=0; tb:=0;
Write(`Nhap vao so cac so can tinh: `); readln(n);
For dem:=1 to n do
Begin
Write(`Nhap vao so thu `,dem,` = `); readln(x);
Tong:=tong+x;
End;
Tb:=tong/n;
Writeln(`Trung binh cua `,n,` so la: `,tb:10:3);
Readln;
End.

Bài TH6: Sử dụng lệnh lặp While..do
^_^ Hết ^_^