Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình tỉ số phần trăm số hs xếp loại Giỏi, Khá, TB, Yếu, Kém. Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng).

loga2710

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 13 xem

1 trả lời

Thích Trả lời

149827942846596

Uses Crt;
Var hs:array[1..1000] of real;
i,n:integer; DTB:real;
Gioi,Yeu,TB,Kha,Kem:integer;
Begin
Clrscr;
Writeln('Nhap so ban hoc sinh trong lop vao: '); Readln(n);

For i:= 1 to n do
Begin
Writeln;
Write('Diem TB cua hs[',i,'] la: '); Readln(hs[i]);
End;
Writeln;
For i:= 1 to n do
Begin
If hs[i]>=8.0 then Gioi:=Gioi+1;
If (hs[i] < 5) and (hs[i]>=3.5) then Yeu:=Yeu+1;
If (hs[i]<8.0) and (hs[i]>=6.5) then Kha:=Kha+1;
If (hs[i]>=5) and (hs[i]<6.5) then TB:=TB+1;
If hs[i]<3.5 then Kem:= Kem+1;
End;
Writeln(' So ban dat HSG la: ',Gioi,'. Voi ty le: ',Gioi/n*100:0:0,'%');
Writeln(' So ban dat HSK la: ',Kha,'. Voi ty le: ',Kha/n*100:0:0,'%');
Writeln(' So ban dat HSTB la: ',TB,'. Voi ty le: ',TB/n*100:0:0,'%');
Writeln(' So ban dat HSY la: ',Yeu,'. Voi ty le: ',Yeu/n*100:0:0,'%');
Writeln(' So ban dat HSK la: ',Kem,'. Voi ty le: ',Kem/n*100:0:0,'%');
Readln
End.

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

lenhi3102006

Program Phan_loai;

uses crt;

Var i, n, gioi, kha, trung binh, yeu : integer;

A: array[1..100] of real;

Begin

clrscr;

write('Nhap so HS trong lop, n= ');

readln(n);

writeln('Nhap diem :');

For i:=1 to n do

Begin

write(i,' . ');

readln(a[i]);

End;

G:=0; Kh:= 0; TB:= 0; K:= 0;

for i:=1 to n do

Begin

if a[i] >= 8.0 then G:= G + 1;

if a[i] <5.0 then K:= K + 1; if (a[i] =6.5) then Kh:= Kh + 1;

if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1;

end;

writeln(' Ket qua hoc tap: ');

writeln(G, ' ban hoc gioi ');

writeln(Kh, ' ban hoc kha ');

writeln(TB, ' ban hoc trung binh');

writeln(K, ' ban hoc kem ');

Readln;

End.

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

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

viết chữ Caligraphy: Yêu em hông ? ( nhớ thêm hình trái tim đằng sau nhe )

Vì sao nên xoa bóp da và lao động chân tay vừa sức?

Trên cùng một nửa mặt phẳng bờ là đường thẳng xy vẽ hai tia Am và An sao cho xAm=65 độ;yAn=50 độ (A ∈ xy) 1.Tính mAy 2.Tia Am có là tia phân giác của xAn không?Vì sao? 3.Lấy B thuộc Ax;C thuộc tia Ay sao cho AB=4cm;BC=8cm.Chứng tỏ hai điểm B và C cùng nằm trên một đường tròn tâm A.

Một ca nô chạy giữa 2 bến sông cách nhau 90 km.Vận tốc ca nô đối với nước là 25 km/h và vận tốc nước chảy là 1,39 m/s. a.Tìm thời gian ca nô đi ngược dòng từ bến nọ đến bến kia. b.Giả sử không nghỉ lại ở bến tới, tìm thời gian ca nô đi và về. Các bạn chỉ mình Vận tốc ca nô đối với nước là 25 km/h nghĩa là như thế nào ạ

Mọi người giúp mình bài này với sắp thi rồi....

GIÚP em với :3 làm nhanh giúp em trước 7 h kém 35 nhé 👀❤❤ em sẽ tick 5 sao cho a~👀❤🙈🤗 không cần làm câu Vl cũng đc a ! Em sẽ tự làm câu đó a:D

chứng minh rằng phân số $\frac{n+1}{3n+4}$ là phân số tối giản

Viết chữ Caligraphy đơn giản : Phươngcute

1 bài văn chứng minh lòng lang dạ thú của ông quan phụ mẫu trong truyện sống chết mặc bay

Help me va ạ cần gấp tks very much

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