mọi người giúp mình với :
viết phương trình nhập vào từ bàn phím điểm các môn Toán Lý Hóa Văn Sử Địa . Tính giá trị trung bình và xét học lực cho đối tượng.
cứu mình mai mình học rồi
Viết chương trình nhập vào điểm 2 môn Toán, Văn từ bàn phím. Điểm Anh văn được gán bằng 8.0 điểm. Sau đó tính tổng điểm, điểm trung bình cộng 3 môn học trên và đưa kết quả ra màn hình. (Điểm trung bình cộng lấy 1 số thập phân.) lẹ cho mình nha cảm mưn mn.
Viết chương trình nhập từ bàn phím điểm toán lí hóa của 1 học sinh, tính điểm trung bình 3 môn đó. Dựa vào điểm trung bình xếp loại học lực và đưa ra màn hình. Đưa ra màn hình điểm thấp ,cao nhất, điểm trung bình
Cần gấp ạ giúp em với
E cảm ơn!
Viết chương trình sử dụng chương trình con để tính điểm trung bình 3 môn Toán Văn Anh của năm bạn học sinh biết điểm từng bạn được nhập từ bàn phím
uses crt;
var a,b,c,tb:array[1..100]of real;
i,n:integer;
begin
clrscr;
n:=5;
for i:=1 to n do
begin
readln(a[i],b[i],c[i]);
end;
for i:=1 to n do
tb[i]:=(a[i]+b[i]+c[i])/3;
for i:=1 to n do
writeln('Diem trung binh cua ban thu ',i,' la: ',tb[i]:4:2);
readln;
end.
viết chương trình sử dụng biến mảng, thực hiện các công việc sau:
- Nhập từ bàn phím danh sách HỌ TÊN, điểm trung bình môn TOÁN,VĂN,TIN của các bạn học sinh trong lớp
- Tính điểm trung bình của từng học sinh.
- Tìm học sinh có điểm trung bình cao nhất.
viết chương trình sử dụng biến mảng, thực hiện các công việc sau:
- Nhập từ bàn phím danh sách HỌ TÊN, điểm trung bình môn TOÁN,VĂN,TIN của các bạn học sinh trong lớp
- Tính điểm trung bình của từng học sinh.
- Tìm học sinh có điểm trung bình cao nhất.
viết trương trình tính điểm trung bình n của 1 học sinh với n và điểm các môn học được nhập từ bàn phím ( sử dụng biến mảng)
Viết chương trình nhập từ bàn phím điểm môn tiếng Anh và môn Vật lý của n học sinh tính trung bình cộng môn tiếng Anh và môn lý của cả lớp
program TinhTBCMon;
var
n, i: integer;
diemAnh, diemVL, tongDiemAnh, tongDiemVL: real;
begin
tongDiemAnh := 0;
tongDiemVL := 0;
write('Nhap so hoc sinh: ');
readln(n);
for i := 1 to n do
begin
write('Nhap diem Tieng Anh cua hoc sinh ', i, ': ');
readln(diemAnh);
tongDiemAnh := tongDiemAnh + diemAnh;
write('Nhap diem Vat ly cua hoc sinh ', i, ': ');
readln(diemVL);
tongDiemVL := tongDiemVL + diemVL;
end;
writeln('Diem trung binh mon Tieng Anh cua lop la: ', tongDiemAnh/n:0:2);
writeln('Diem trung binh mon Vat ly cua lop la: ', tongDiemVL/n:0:2);
readln;
end.
Viết chương tình sử dụng biến mảng để nhập từ bàn phím họ tên(hoten);ngày sinh(NS),Điểm Toán(Dtoan);Điểm Văn (Dvan) của các bạn học sinh trong lớp em(có 45hs).In ra màn hình tổng Điểm trung bình(DTB) của các bạn trong lớp.
Làm hộ mình với ạ,ngày mai mình thi rồi
uses crt;
var NS:array[1..100] of integer; Dtoan,Dvan,Dtb:array[1..100] of real;
hoten:array[1..100] of string; i:byte;
begin
clrscr;
for i:=1 to 45 do
begin
write('Nhap ten cua hoc sinh thu',i,':'); readln(hoten[i]);
write('Nhap ngay sinh:'); readln(NS[i]);
write('Nhap diem toan:'); readln(Dtoan[i]);
write ('Nhap diem van:'); readln(Dvan[i]);
Dtb[i]:=(Dtoan[i]+Dvan[i])/2;
end;
writeln('Diem trung binh cua cac ban trong lop la:');
for i:=1 to 45 do
writeln(hoten[i],':',Dtb[i]:1:2);
readln;
end.
Tham khảo thui!
viết chương trình tính điểm cho học sinh và cho biết học lực của học sinh( nhập điểm toán, lý, hóa, văn, anh, điểm trung bình)
uses crt;
var toan,ly,hoa,van,anh,dtb:real;
begin
clrscr;
write('Nhap diem Toan:'); readln(toan);
write('Nhap diem Ly:'); readln(ly);
write('Nhap diem Hoa:'); readln(hoa);
write('Nhap diem Van:'); readln(van);
write('Nhap diem Anh:'); readln(anh);
dtb:=(toan+ly+hoa+van+anh)/5;
if dtb>=8 then writeln('Gioi');
if (6,5<=dtb) and (dtb<8) then writeln('Kha');
if (5<=dtb) and (dtb<6,5) then writeln('Trung binh');
if dtb<5 then writeln('Yeu');
readln;
end.