Sử dụng ngôn ngữ lập trình Pascal đề viết trương trình thực hiện các yêu cầu sau:
1.nhập điểm trung bình cho n học sinh trong 1 lớp
2.in ra màn hình danh sách điểm của n học sinh vừa nhập
3.tín số học sinh giỏi, khá, trung bình và yếu theo tiêu chửa và xếp loại như sau:
+ xếp loại yếu: nếu điểm từ 0 đến dưới 5,0
+ xếp loại trung bình: nếu điểm từ 5,0 đến dưới 6,5
+ xếp loại khá: nếu điểm từ 6,5 đến dưới 8,0
+xếp loại giỏi: nếu điểm từ 8,0 đến dưới 10
4.in ra màn hình kết quả của n học sinh trên
5.in ra màn hình những học sinh xếp loại giỏi trong danh sách
program oken;
uses crt;
var a: array[1..100] of real;
n,i,d1,d2,d3,d4: integer;
begin
clrscr;
writeln(‘—————–CAU 1———————–‘);
write(‘Nhap so ban: ‘); readln(n);
for i:=1 to n do
begin
repeat
write(‘Nhap diem ban thu ‘,i,’: ‘);
readln(a[i]);
if (a[i]<0) or (a[i]>10) then
writeln(‘MOI BAN NHAP LAI’);
until (a[i]>=0) and (a[i]<=10);
end;
writeln(‘—————–cau 2———————–‘);
write(‘So diem lan luot cua cac ban: ‘);
for i:=1 to n do
write(a[i]:0:1,’; ‘);
writeln;
writeln(‘—————-CAU 4————————‘);
d1:=0; d2:=0; d3:=0; d4:=0;
for i:=1 to n do
begin
if (a[i]<5) then
begin
writeln(‘Ban thu ‘,i,’ xep loai yeu.’);
d1:=d1+1;
end
else if (a[i]>=5) and (a[i]<6.5) then
begin
writeln(‘Ban thu ‘,i,’ xep loai trung binh.’);
d2:=d2+1;
end
else if (a[i]>=6.5) and (a[i]<8) then
begin
writeln(‘Ban thu ‘,i,’ xep loai kha.’);
d3:=d3+1;
end
else
begin
writeln(‘Ban thu ‘,i,’ xep loai gioi.’);
d4:=d4+1;
end;
end;
writeln(‘—————–CAU 3————————–‘);
writeln(d1,’ ban hoc gioi’);
writeln(d2,’ ban hoc kha’);
writeln(d3,’ ban hoc trung binh’);
writeln(d4,’ ban hoc yeu’);
writeln(‘—————–CAU 5————————–‘);
write(‘So thu tu cua cac ban gioi: ‘);
for i:=1 to n do
if (a[i]>=8) then
write(a[i]:0:1,’; ‘);
writeln;
writeln(‘NHAN ENTER DE KET THUC’);
readln;
end.
program ct;
uses crt;
var n,i,gioi,kha,trungbinh,yeu:integer;
A:array[1..100] of real;
begin
clrscr;
write(‘nhap so hoc sinh:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap diem A[‘,i,’]:=’);readln(A[i]);
end;
gioi:=0; kha:=0; trungbinh:=0; yeu:=0;
for i:=1 to n do
begin
if A[i]>=8.0 then gioi:=gioi+1;
if A[i]<5 then yeu:=yeu+1;
if (A[i]<8.0) and (A[i]>=6.5) then kha:=kha+1;
if (A[i]>=5) and (A[i]<6.5) then trungbinh:=trungbinh+1;
end;
writeln(gioi,’ ban hoc gioi’);
writeln(kha,’ ban hoc kha’);
writeln(trungbinh,’ ban hoc trung binh’);
writeln(yeu,’ ban hoc yeu’);
readln
end.