Bài 2: Các thành phần chính và dữ liệu trên trang tính

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
bich dang

Sử dụng biến mảng viết chương trình nhập điểm các bạn trong lớp va và in ra màn hình kết quả học tập : loai gioi , khá, trung bình và kém ( tiêu chuẩn từ 8. 0 trở lên đạt loại giỏi , từ 6. 5 đến 7. 9 đạt loại khá , từ 5. 0 đến 6. 4 loại trung bình và dưới 5. 0 đạt loại kém )

Lưu Hải Dương
8 tháng 5 2017 lúc 21:14

Program Phan_loai; uses crt; Var i, n, G, Kh, TB, K: 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.

Lưu Hải Dương
8 tháng 5 2017 lúc 21:16

Program Phan_loai;

uses crt;

Var i, n, G, Kh, TB, K: 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.


Các câu hỏi tương tự
Nguyễn Anh Tuấn
Xem chi tiết
Phạm An Khánh
Xem chi tiết
Nguyễn hoàng thiên
Xem chi tiết
Nguyễn Phát
Xem chi tiết
Nguyễn Hoàng Hữu Phước
Xem chi tiết
Nguyễn hoàng thiên
Xem chi tiết
Tiểu Thư Răng Sún
Xem chi tiết
Đặng Quỳnh Anh
Xem chi tiết
pikachu
Xem chi tiết