Giả sử ta có bảng tính sau:
Lập công thức để tính:
a) ĐTB của từng bạn
b) Tổng điểm từng môn
c) ĐTB cao nhất lớp
d) ĐTB thấp nhất lớp
Viết chương trình nhập vào điểm toán,văn,anh của 10hs.Tính ĐTB của từng bạn.Biết ĐTB=(toán+văn+anh)/3.Tìm ĐTB cao nhất và ĐTB thấp nhất.Xếp loại nếu ĐTB lớn hơn hoặc=5 thì in ra màn hình "Đạt", ngược lại in ra màn hình "Chưa đạt"
uses crt;
var a,b,c,tb:array[1..10]of real;
ln,nn:real;
i:integer;
begin
clrscr;
for i:=1 to 10 do readln(a[i],b[i],c[i]);
for i:=1 to 10 do
tb[i]:=(a[i]+b[i]+c[i])/3;
ln:=0;
nn:=10;
for i:=1 to 10 do
begin
if ln<tb[i] then ln:=tb[i];
if nn>tb[i] then nn:=tb[i];
end;
writeln(ln:4:2);
writeln(nn:4:2);
for i:=1 to 10 do
begin
if tb[i]>=5 then writeln('Ban thu ',i,' Dat')
else writeln('Ban thu ',i,'Chua dat');
end;
readln;
end.
Viết công thức tính ĐTB các môn Toán, Lý, Hóa, Văn, Tin
Viết biểu thức để tìm các học sinh Nữ có ĐTB = 8.0
Cho bảng điểm sau:
a) Hãy sắp xếp cột TBM theo thứ tự giảm dần ?
b) Nêu thao tác lọc 3 bạn có ĐTB thấp nhất?
a)
B1. Nháy chuột, chọn 1 ô trong cột cần sắp xếp
B2. Nháy nút trong nhóm Sort & Filter của dải lệnh Data để sắp xếp theo thứ tự tăng dần (hoặc lệnh để sắp xếp theo thứ tự giảm dần)
b)
- Nháy chuột chọn một ô bất kì trong cột ĐTB
- Mở bảng chọn Data/Filter trong Sort & Filter
- Nháy vào nút trên hàng tiêu đề cột , chọn Number Filters
- Nháy Bottom -> Nhập số hàng là 3 -> Nháy OK.
Câu2: viết chương trình thực hiện yêu cầu sau . a, Sử dụng biến mảng để nhập từ bàn phím điểm trung bình (ĐTB) của 50 bạn học sinh trong lớp. b,In rs màn hình (ĐTB) của học sinh . c,In ra màn hình số lớn nhất trong dãy số . Mn giúp mik vs mik cần gấp.mik c.ơn
Var a:array:[1..50] of real;
i,max:integer;
Begin
For i:=1 to 50 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
Writeln;
max:=a[1];
For i:=2 to 50 do
if a[i]>max then max:=a[i];
Write('Diem trung binh lon nhat la ',max:10:2);
Readln
End.
Var a:array:[1..50] of real;
i:integer;
max:real;
Begin
For i:=1 to 50 do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
writeln;
max:=a[1];
For i:=2 to 50 do
if a[i] > max then max:=a[i];
write('Diem lon nhat la ',max:10:2);
Readln
End.
Cho bảng điểm sau:
a) Hãy sắp xếp cột TBM theo thứ tự tăng dần ?
b) Hãy lọc ra 2 bạn có “ĐTB” cao nhất?
a)
B1. Nháy chuột, chọn 1 ô trong cột cần sắp xếp
B2. Nháy nút trong nhóm Sort & Filter của dải lệnh Data để sắp xếp theo thứ tự tăng dần (hoặc lệnh để sắp xếp theo thứ tự giảm dần)
b)
- Nháy chuột chọn một ô bất kì trong cột ĐTB
- Mở bảng chọn Data/Filter trong Sort & Filter
- Nháy vào nút trên hàng tiêu đề cột , chọn Number Filters
- Nháy Top -> Nhập số hàng là 2 -> Nháy OK.
viết chương trình nhập điểm trung bình của lớp 8, in ra màn hình đtb cao nhất , số học sinh giỏi (đtb>=8.0), hs yếu ( đtb < 5.0) , in vị trí các bạn hs giỏi ( dùng mãng để in vị trí)
Mọi người giúp em với ak mai em thi hk2 rồi !!!! Mong mọi người giúp em !!! Em cảm ơn !!!
Cho bảng điểm sau:
a) Hãy sắp xếp cột TBM theo thứ tự tăng dần?
b) Nêu thao tác lọc 3 bạn có ĐTB cao nhất?
a)
B1. Nháy chuột, chọn 1 ô trong cột cần sắp xếp
B2. Nháy nút trong nhóm Sort & Filter của dải lệnh Data để sắp xếp theo thứ tự tăng dần (hoặc lệnh để sắp xếp theo thứ tự giảm dần)
b)
- Nháy chuột chọn một ô bất kì trong cột ĐTB
- Mở bảng chọn Data/Filter trong Sort & Filter
- Nháy vào nút trên hàng tiêu đề cột , chọn Number Filters
- Nháy Top -> Nhập số hàng là 3 -> Nháy OK.
Viết chương trình nhập điểm trung bình của lớp 8, in ra màn hình ĐTB cao nhất, số học sinh giỏi (>=8), học sinh yếu (<5), in danh sách ĐTB sắp xếp theo thứ tự giảm dần
Viết chương trình cho phép nhập vào điểm trung bình (ĐTB) của sinh viên. In ra xếp loại của sinh viên. Biết:
0<=ĐTB<3: Kém; 3 <=ĐTB<5: Yếu; 5 <=ĐTB<6.5: Trung bình khá; 6.5<=ĐTB<8: Khá; 8<=ĐTB< 9: giỏi; 9<=ĐTB<=10: Xuất sắc