Question

Viết phương trình while...do để tình trung bình của n số thực x₁, x₂, x₃, ....., x_n

a) Xây dựng thuật toán

b) Viết phương trình

Answer 1

a) Thuật toán:

Bước 1: Nhập n và n số thục x₁,x₂,...,x_n

Bước 2: T←0; i←1;

Bước 3: Nếu i>=n thì chuyển xuống bước 6

Bước 4: T←T+x_i;

Bước 5: i←i+1 quay lại bước 3

Bước 6: T←T/n;

Bước 7:In kết quả và kết thúc

b) Viết chương trình:

Program HOC24;

var x: array[1..32000] of integer;

i,n: integer;

t: real;

begin

write('n='); readln(n);

for i:=1 to n do

begin

write('x[',i,']='); readln(x[i]);

end;

t:=0; i:=1;

while i<n do

begin

t:=t+x[i];

i:=i+1;

end;

t:=t/n;

write(t:1:2);

readln

end.