Viết chương trình nhập điểm trung bình Học Kì I và trung bình Hoc Ki II của các học sinh trong lớp. Số các bạn trong lớp cũng được nhập vào từ bàn phím. Tính điểm trung bình cả năm của các bạn theo công thức: TBCN=( điểm trung bình HKI + điểm trung bình HKII *2)/3 và lưu vào

trangquynhdotqp

2 năm trước

Viết chương trình nhập điểm trung bình Học Kì I và trung bình Hoc Ki II của các học sinh trong lớp. Số các bạn trong lớp cũng được nhập vào từ bàn phím. Tính điểm trung bình cả năm của các bạn theo công thức: TBCN=( điểm trung bình HKI + điểm trung bình HKII *2)/3 và lưu vào bảng trung bình cả năm. Sau đó in ra màn hình số bạn đạt kết quả học tập giỏi, khá, trung bình và yếu( biết rằng giỏi, khá, trung bình, yếu tiêu chuẩn giống BT1TH7)

Loga Sinh Học lớp 12

0 lượt thích 37 xem

1 trả lời

Thích Trả lời

minhtranlhp123

uses crt;
var i,n,a,b:longint; d:array[1..100000]of real;
begin
clrscr;
write('Nhap so cac ban trung lop: ');readln(n);
for i:=1 to n Do
begin
write('Nhap diem trung binh hoc ki I cua ban thu ',i,': ');readln(a);
write('Nhap diem trung binh hoc ki II cua ban thu ',i,': ');readln(b);
writeln;
d[i]:=(a+b*2)/3;
end;
for i:=1 to n do
begin
write('Ban thu ',i,' dat ');
if(d[i]>=8) then writeln('loai gioi.') else
if(d[i]>=6.5)and(d[i]<8) then writeln('loai kha.') else
if(d[i]>=5)and(d[i]<6.5)
then writeln('loai trung binh.') else writeln('loai yeu.');
end;
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

thachhoanganh

program bt;

uses crt;

var a:array [1..100] of integer; b:array [1..100] of integer;

gioi,kha,trungbinh,yeu:integer;

TBCN:real;

begin

clrscr;

writeln('Nhap n');readln(n);

for i:=1 to n do

begin

writeln('a[',i,']=');

readln('Diem trung binh hoc ki I la',a[i]);

writeln('b[',i,']=');

readln('Diem trung binh hoc ki II la',b[i]);

end;

gioi:=0; kha:=0;

trungbinh:=0; kem:=o

for i:=1 to n do

begin

TBCN:= (a[i]+b[i]*2)/3;

if TBCN>=8.0 then Gioi:=gioi+1;

if TBCN<5 then Kem:=kem+1;

if (TBCN<8.0) and (TBCN>=6.5) then kha:=kha+1;

if (TBCN>=5) and (TBCN<6.5) then trungbinh:=trungbinh+1;

end;

writeln(Gioi,'ban hoc sinh gioi');

writeln(Kha,'ban hoc sinh kha');

writeln(Trungbinh,'ban hoc sinh trung binh');

writeln(Kem,'ban hoc sinh kem');

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

câu 7: VÀO NHỮNG NGÀY NẮNG NÓNG, EM SẼ LÀM GÌ ĐỂ KHU VƯỜN ƯƠM CÂY GIỐNG ( DỰ ÁN CUNG CẤP CÂY CẢNH) luôn xanh tốt 9

Nhập vào điểm miệng môn toán của học sinh trong lớp (1≤n≤50)

cmr với a,b,c > 0 $\sqrt{\frac{2a}{a+b} }$ +$\sqrt{\frac{2b}{c+b} }$ +$\sqrt{\frac{2c}{a+c} }$ $\leq$ 3

Kể tên các phong trào yêu nước trước chiến tranh thế giới thứ nhất? Điểm giống và khác nhau của phong trào đó?(helppppp)

lập dàn bài về nghệ sĩ xuân bắc và viết một đoạn văn ns về cô giáo cảm nhận về vai trò cây tre

Câu 1: VÍ DỤ: 3 1/4 LÀ HỖN SỐ,(-7/6) LÀ PHÂN SỐ a) X × 3 1/4 + (-7/6) ×1 2/3 = 5/12 b) (X + 1/2) × (2/3 - 2×X) = 0 c) -1 5/27 - (3 × X - 7/9)³ = - 24/27 d) 17/2 - |2 × X - 3/4| = - 7/4 e) (X + 1/5)² + 17/25 = 26/25 Bài 2: Tìm các số nguyên a để biểu thức sau có giá trị là số nguyên Bài này Bài kiểu phân số sợ ko hiểu ghi v M = 2a - 8 -a-7 + ------- ------- 5 5

Mong giúp mình câu 5 Cảm ơn trước

Giups mình bài hình 5 và 6 nhé. Mik sẽ vote cho 5 sao và cảm ơn nha

Nghị luận xã hội tệ nạn xã hội (đừng chép mạng tốt nhất là làm rồi chụp qua cảm ơn)

Lúc 8 giờ một xe máy đi đoạn đường từ A đến B dài 70km Lúc về xe máy đi bằng đường khác dài 84km với vận tốc hơn vận tốc lúc đi là 6km/h Biết thời gian lúc về bằng thời gian lúc đi Tính vận tốc lúc đi Hỏi xe máy quay về tới vị trí A lúc mấy giờ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến