Viết các công thức tính tổng, trung bình cộng, giá trị lớn nhất và giá trị nhỏ nhất.
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
viết chương trình nhập từ bàn phím 20 số tự nhiên bất kì. In ra màn hình giá trị lớn nhất,giá trị nhỏ nhất và trung bình cộng của 2 giá trị đó. In ra màn hình giá trị lớn nhất,giá trị nhỏ nhất và trung bình cộng của 2 giá trị đó
Var a:array[1..20] of integer;
max,min:integer;
tbc:real;
Begin
For i:=1 to 20 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Max:=a[1];
Min:=a[1];
For i:=2 to 20 do
Begin
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
End;
tbc:=(max+min)/2;
Writeln('So lon nhat la ',max);
Writeln('So nho nhat la ',min);
Write('Trung binh cong la ',tbc:10: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.
Giúp mk vs, mai mk thy ùi
câu 1:Hãy nêu cách chọn 1 ô? 1 cột ? 1 hàng? 1 khối?
Câu 2;A/Viết công thức và cho biết chức năng của hàm tính tổng?
B/Viết công thức và cho biết chức năng của hàm tính trung bình cộng?
C/Viết công thức và cho biết chức năng của hàm xác định giá trị lớn nhất?
D/Viết công thức và cho biết chức năng của hàm xác định giá trị nhỏ nhất?
Chọn 1 ô: đưa con trỏ chuột tới ô đó và nháy chuột
Chọn 1 cột: Nháy chuột tại nút tên cột
Chọn 1 hàng: Nháy chuột tại nút tên hàng
Chọn 1 khối: Kéo thả chuột từ 1 ô góc đến ô ở góc đối diện
Ví dụ
Ô A1 có chứa dữ liệu số là 8, ô A2 có chứa dữ kiệu số là 10
A/ =Sum(A1,A2) nhấn Enter
B/ =Average(A1,A2) nhấn Enter
C/ =Max(A1,A2) nhấn Enter
D/ =Min(A1,A2) nhấn Enter
Em hãy nêu cú pháp của hàm tính tổng tính trung bình cộng xác định giá trị lớn nhất giá trị nhỏ nhất
- Hàm tính tổng: SUM
- Hàm tính trung bình cộng: AVERAGE
- Hàm xác định giá trị lớn nhất: MAX
- Hàm xác định giá trị nhỏ nhất: MIN
Trung bình cộng : =AVERAGE(A1;A2)
Gía trị lớn nhất: =MAX(A1;A2)
Gía trị bé nhất: =MIN(A1;A2)
Viết chương trình cho phép nhập số n số nguyên và cho biết giá trị lớn nhất. Tính giá trị trung bình cộng các số
uses crt;
var a:array[1..100]of integer;
i,n,max,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(max);
writeln(t/n:4:2);
readln;
end.
Viết chương trình cho phép nhập số n số nguyên và cho biết giá trị lớn nhất. Tính giá trị trung bình cộng các số
uses crt;
var a:array[1..100]of integer;
i,n,max,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(max);
writeln(t/n:4:2);
readln;
end.
viết chương trình nhập từ bàn phím 20 số tự nhiên bất kì. In ra màn hình giá trị lớn nhất,giá trị nhỏ nhất và trung bình cộng của 2 giá trị đó.
Var a:array[1..20] of integer;
max,min:integer;
tbc:real;
Begin
For i:=1 to 20 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Max:=a[1];
Min:=a[1];
For i:=2 to 20 do
Begin
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
End;
tbc:=(max+min)/2;
Writeln('So lon nhat la ',max);
Writeln('So nho nhat la ',min);
Write('Trung binh cong la ',tbc:10:2);
Readln;
End.
Cho bảng dưới đây. Hãy sử dụng hàm tính:
a. Tổng số sách, sách có số lượng lớn nhất.
b. Sách có giá lớn nhất và sách có giá nhỏ nhất, trung bình cộng của các loại sách?
Lưu ý: sử dụng địa chỉ ô tính trong công thức.
Viết chương trình trung bình cộng của giá trị lớn nhất và giá trị nhỏ nhất từ dãy n phần tử số nguyên được nhập vào từ bàn phím
program tinh_trung_binh_cong;
uses crt;
var i,n,max,min:integer
tbc:real;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i;=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1];min:=a[1];
for i;1= to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
tbc:=(max+min)/2;
writeln(tbc);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln((max+min)/2:4:2);
readln;
end.