Viết chương trình sử dụng biến mảng để nhập điểm cho các bạn trong lớp. Sau đó in ra kết quả học tập: Giỏi, Khá, Trung bình và Kém
Viết chương trình sử dụng biến mảng để nhập điểm cho các bạn trong lớp. Sau đó in ra kết quả học tập: Giỏi, Khá, Trung bình và Kém
Program oken;
uses crt;
var a: array [1..100] of real;
i,n,dy,dtb,dk,dg:integer;
begin
clrscr;
write(‘Co bao nhieu ban can nhap diem: ‘); readln(N);
for i:=1 to n do
begin
write(‘nhap diem ban thu ‘,i,’: ‘);
readln(a[i]);
if a[i]<5 then
dy:=dy+1
else if a[i]<6.4 then
dtb:=dtb+1
else if a[i]<7.9 then
dk:=dk+1
else
dg:=dg+1;
end;
writeln(‘So ban hoc yeu: ‘,dy);
writeln(‘So ban hoc trung binh: ‘,dtb);
writeln(‘So ban hoc kha: ‘,dk);
writeln(‘so ban hoc gioi: ‘,dg);
readln;
end.
program phuongt;
uses crt;
var A: array[1..10] of real;
i, n: integer;
tb: real;
begin
clrscr;
write(‘Nhap so hoc sinh trong lop: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap diem cua ban thu ‘, i, ‘: ‘); readln(A[i]);
end;
for i:=1 to n do
begin
if (A[i]>=0) and (A[i]<=10) then
begin
write(‘Ket qua hoc tap cua ban thu ‘, i, ‘: ‘);
if A[i]>=8 then write(‘Gioi’) else
if (A[i]<8) and (A[i]>=6.5) then write(‘Kha’) else
if (A[i]<6.5) and (A[i]>=5) then write(‘Trung binh’) else
write(‘Kem’);
end
else write(‘Nhap diem sai’);
end;
readln
end.