Sử dụng hàm sum() tính tổng các số của một dãy. Hãy viết câu lệnh tính giá trị trung bình của dãy số A cho trước.
Cho dữ liệu vào các ô tính như sau:
A1=8, A2=7, A3=9, A4=5, A5=0
a,tính tổng và trung bình cộng của dãy số trên
b, tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số
(-viết công thức sử dụng hàm và tính luôn kết quả
-mỗi câu đều sủ dụng 2 cách là liệt kê và khối)
a/ =SUM(A1:A5)=29
=SUM(A1,A2,A3,A4,A5)=29
b/ =MAX(A1:A5)=9
=MAX(A1,A2,A3,A4,A5)=9
Cho dãy số: 1; 5; 9 ; 13 ;..................... biết tổng trên có 100 số hạng? Em hãy sử dụng các câu lệnh của MSWLogo để tính trung bình cộng của các số trong dãy số đó.
to tbc
cs
make "n 1
make "dem 1
make "s 0
while [:dem<101][make "s :s + :n make "n :n + 4 make "dem :dem + 1]
make "tb :s/(:dem - 1)
rt 90 label[Trung binh cong la:] pu fd 200 pd label :tb ht
end
to tbc
cs
make "n 1
make "dem 1
make "s 0
while [:dem<101][make "s :s + :n make "n :n + 4 make "dem :dem + 1]
make "tb :s/(:dem - 1)
rt 90 label[Trung binh cong la:] pu fd 200 pd label :tb ht
end
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Viết chương trình pascal về chủ đề bất kì có sử dụng biến mảng +Nhập độ dài của dãy +Nhập giá trị các phần tử của dãy +Tính giá trị trung bình của dãy +Tự in ra giá trị trung bình của dãy
uses crt;
var a:array[1..100]of integer;
t,i,n:integer;
begin
clrscr;
write('Nhap do dai cua day:'); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri trung binh cua day la: ',t/n:4:2);
readln;
end.
u 3: sử dụng câu lệnh lặp for và câu lệnh lặp while viết chương trình pascal: A, Tính tổng các số chia hết cho 3 trong khoảng từ 1 đến n B, nhập vào 1 dãy gồm n số bất kì, tính tổng các số dương trong dãy vừa nhập C, nhập vào 1 dãy gồm n số bất kì, đếm trong dãy số vừa nhập có bao nhiêu số k (với k nhập từ bàn phím)
Câu 21: : Cho bảng tính sau, em hãy sử dụng các hàm đã học để tính toán cho bảng tính hình dưới đây:
a) Sử dụng hàm tính trung bình cộng để tính giá trị của ô G5, G6, G7, G8 cho cột “Điểm trung bình”.
b) Sử dụng hàm tính giá trị cao nhất và thấp nhất để xác định điểm cao nhất và điểm thấp nhất cho 2 địa chỉ ô G9 và G10?
c) Hãy nêu các thao tác để chọn ra học sinh tiêu biểu về mặt học tập, tiêu chí được xét là điểm trung bình của bạn được chọn phải là điểm cao nhất so với các bạn còn lại?
lm giùm câu c thôi nha.Cảm ơn trc
Viết chương trình nhập một dãy số. Tính tổng, giá trị trung bình các số trong dãy số.
Program HOC24;
var i,n: byte;
a: array[1..1000] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
tbc:=0; t:=0;
end;
for i:=1 to n do t:=t+a[i];
writeln('Tong la :',t);
write('Trung binh cong cac phan tu la: ',t/n:5:2);
readln
end.
Viết Chương Trình Nhập Giá Trị Cho 1 dãy số có N phân tử .
a, tính tổng dãy vừa nhập
b, Xác định giá trị nhỏ nhất và lớn nhất của dãy
c. Tính trung bình cộng của dãy
uses crt;
var a:array[1..100]of integer;
i,n,t,ln,nn:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
nn:=a[1];
ln:=a[1];
for i:=1 to n do
begin
t:=t+a[i];
if nn>a[i] then nn:=a[i];
if ln<a[i] then ln:=a[i];
end;
writeln(t);
writeln(ln);
writeln(nn);
writeln(t/n:4:2);
readln;
end.
Câu 35: Cách nhập hàm nào sau đây không đúng?
A. =SUM(A1, 0) B. =SUM(0; A3) C. =Sum(5, a3) D. =Sum(5, 0)
Câu 36: Xác định đâu là hàm đúng khi tính giá trị trung bình các dãy số?
A. =SUM(5, A3) B. =AVERAGE(0; A3) C. =Sum(5, 0.1) D. =Average(0, 1)
Câu 37: Công thức = 5^2*3 cho kết quả bao nhiêu?
A. 30 B. 40 C. 55 D. 75
Câu 38: Để tính hiệu giá trị trong các ô E3 và F7, sau đó nhân với 10% ta thực hiện bằng công thức nào sau đây?
A. E3 - F7 * 10%. B. (E3 - F7) * 10%
C. = (E3 - F7) * 10% D. =E3 - (F7 * 10%)
Câu 39: Trong chương trình bảng tính, công thức nào sau đây là đúng:
A. = (18+5)*3 + 23 B. = (18+5).3 + 2^3
C. = (18+5)*3 + 2^3 D. = (18+5).3 + 23