Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Theo em, với công cụ truy vấn ta có được dữ liệu trình bày được như Hình 4.
uses crt;
var a:array[1..100]of integer;
i,n,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
i:=1;
while i<=n do
begin
tb:=tb+a[i];
inc(i);
end;
writeln(tb/n:4:2);
readln;
end.
const fi='diem.txt';
fo='kq.txt';
var f1,f2:text;
hs1,hs2,hs3:array[1..100]of integer;
dem1,dem2,dem3,t1,t2,t3,i,sc:integer;
kq:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem1:=0;
while not eoln(f1) do
begin
inc(dem1);
read(f1,hs1[dem1]);
end;
readln(f1);
dem2:=0;
while not eoln(f1) do
begin
inc(dem2);
read(f1,hs2[dem2]);
end;
readln(f1);
dem3:=0;
while not eoln(f1) do
begin
inc(dem3);
read(f1,hs3[dem3]);
end;
t1:=0;
for i:=1 to dem1 do
t1:=t1+hs1[i];
t2:=0;
for i:=1 to dem2 do
t2:=t2+(2*hs2[i]);
t3:=0;
for i:=1 to dem3 do
t3:=t3+(3*hs3[i]);
sc:=dem1+dem2*2+dem3*3;
kq:=(t1+t2+t3)/sc;
writeln(f2,kq:4:1);
close(f1);
close(f2);
end.
Tham khảo:
def nhapSinhVien(self):
# Khởi tạo một sinh viên mới
svId = self.generateID()
name = input("Nhap ten sinh vien: ")
sex = input("Nhap gioi tinh sinh vien: ")
age = int(input("Nhap tuoi sinh vien: "))
diemToan = float(input("Nhap diem toan: "))
diemLy = float(input("Nhap diem Ly: "))
diemHoa = float(input("Nhap diem Hoa: "))
sv = SinhVien(svId, name, sex, age, diemToan, diemLy, diemHoa)
self.tinhDTB(sv)
self.xepLoaiHocLuc(sv)
self.listSinhVien.append(sv)
Tham khảo:
Tổ chức thực hiện:
– Lập các nhóm dự án, mỗi nhóm khoảng 5 đến 6 học sinh; chọn nhóm trưởng. - Cả nhóm cùng thực hiện Nhiệm vụ 1:
+ Đọc hướng dẫn để biết cách phân tích, lựa chọn và thiết kế các hàm. Hướng dẫn chỉ là gợi ý, không bắt buộc phải theo.
+Thảo luận, đưa ra thiết kế cuối cùng sau các sửa đổi, điều chỉnh.
- Dựa trên danh sách các hàm cần thực hiện, xác định các nhiệm vụ cụ thể; phân công mỗi nhiệm vụ (các bài thực hành tiếp theo) cho 1 đến 2 học sinh đảm nhiệm.
– Nhóm trưởng phụ trách tích hợp các kết quả thành chương trình hoàn chỉnh với sự cộng tác của các thành viên khác, dưới sự hỗ trợ của thầy, cô giáo.
uses crt;
var a,b,c,d,tb:real;
begin
clrscr;
write('Nhap diem cua ban:'); readln(a,b,c,d);
tb:=(a+b+c+d)/7;
if tb>=8 then writeln('Gioi');
if (6,5<=tb) and (tb<8) then writeln('Kha');
if (5<=tb) and (tb<6,5) then writeln('Trung Binh');
if tb<5 then writeln('Yeu');
readln;
end.