Viết chương trình Pascal sử dụng biến mảng để nhập điểm TB cả năm của các bạn trong lớp từ bàn phím số các bạn trong lớp cũng được nhập vào từ bàn phím. Sau đó in ra màn hình số các bạn đặt kết quả học tập giỏi, khá, trung bình và yếu (theo tiêu chuẩn từ 8.0 trở lên đạt loại giỏi

khdaicuong

2 năm trước

Viết chương trình Pascal sử dụng biến mảng để nhập điểm TB cả năm của các bạn trong lớp từ bàn phím số các bạn trong lớp cũng được nhập vào từ bàn phím. Sau đó in ra màn hình số các bạn đặt kết quả học tập giỏi, khá, trung bình và yếu (theo 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 đạt trung bình và dưới 5.0 xếp loại yếu)

Loga Sinh Học lớp 12

0 lượt thích 34 xem

1 trả lời

Thích Trả lời

mrdung2000

program ct;

uses crt;

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

i,n,g,k,tb,y:integer;

begin clrscr;

write('Nhap so hoc sinh: '); readln(n);

for i:=1 to n do

begin

writeln('Nhap diem cho hoc sinh thu ',i,': '); readln(A[i]);

end;

for i:=1 to n do

begin

if A[i]>=8.0 then inc(g);

if (A[i]>=6.5) and (A[i]<=7.9) then inc(k);

if (A[i]>=5.0) and (A[i]<=6.4) then inc(tb);

if A[i]<5 then inc(y);

end;

writeln('Co ',g,' ban hoc gioi');

writeln('Co ',k,' ban hoc kha');

writeln('Co ',tb,' ban hoc trung binh');

writeln('Co ',y,' ban hoc yeu');

readln;

end.

Học tốt!

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

ctvloga347

program ct;

uses crt;

var i,n,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 mang 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('ket qua');

writeln(gioi,' ban hoc gioi');

writeln(kha,' ban hoc kha');

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

writeln(yeu,' bam hoc yeu');

readln

end.

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

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

Bây giờ là buổi trưa. Im ắng lạ. Tôi ngồi dựa vào thành đá và khe khẽ hát. Tôi mê hát. Thường cứ thuộc một điệu nhạc nào đó rồi bịa lời ra mà hát. Lời tôi bịa lộn xộn và ngớ ngẩn đến tôi cũng ngạc nhiên, đôi khi bò ra mà cười một mình. Tôi là con gái Hà Nội. Nói một cách khiêm tốn, tôi là một cô gái khá. Hai bím tóc dày, tương đối mềm, một cái cổ cao, kiêu hãnh như cái đài hoa loa kèn. Còn mắt tôi thì các anh lái xe bảo: "Cô có cái nhìn sao mà xa xăm!". tìm thành phần biệt lập

Hình lập phương A có cạnh lớn gấp 5 lần cạnh hình lập phương B. Hỏi thể tích hình lập phương A lớn gấp bao nhiêu lần thể tích hình lập phương B.

Một tấm bìa hình chữ nhật có chiều dài 6,5 dm, chiều rộng kém chiều dài 2,25dm. Tính diện tích tấm bìa hình chữ nhật đó ?

cho 2 đường thẳng (d);y=-x+m+2 và (d`);y=(m^2-2)x+3. tìm m để (d) song song với (d`)

Nêu các biện pháp để bảo vệ môi trường khi sử dụng động cơ đốt trong?

E=-7/5 ² +-7/6 ²+-7/7 ²+...+-7/20 ². sO SÁNH E VỚI -1 2/5

thời gian gần fday trung quốc có những hành vi xâm phạm độc quyền chủ quyền lãnh thổ của nước ta vì vậy dẫn đến tình trạng công nhân cửa nhiều khu công nghiệp đã xuống đường biểu tình yêu cầu nhà nước ta phải có những hành động đáp trả trung quốc vè mặt quân sự dụa vào kiến thức đã học em hãy nêu những hiểu biết của mình về vấn đề trên

Cho 2 số a,b khác 0, a khác b thỏa mãn 1/a+1/b=1/5. CMR : Trong 2 số : a^2-10b và b^2-10a có ít nhất 1 số dương

Vẽ sơ đồ mạch điện cơ bản gồm nguồn 2 bin, công tắc đóng, bóng đèn và dây dẫn, kí hiệu chiều dòng chạy trong mạch Giúp Mik với Mn ơi!!!!

đặc điểm tự nhiên của châu nam cực

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