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 )
Những câu hỏi liên quan
sử dụng biến mảng viết chương trình nhập điểm của các bạn trong lớp sau đó in ra màn hình kết quả học tập loại khá giỏi (theo tiêu chuẩn loại giỏi lớn hơn hoặc = 8 điểm;loại khá từ 6,5 đến dưới 8 điểm?
6.5 trở xuống mình cho nó kém được không á bạn
Đúng 0
Bình luận (0)
a:array[1..200] of real;
begin
clrscr;
write('Nhap tong so ban trong lop:');
readln(n);
for i:=1 to n do readln(a[i]);
gioi:=0; kha:=0; kem:=0;
for i:=1 to n do
begin
if (a[i]>=8) then inc(gioi);
if (6.5<=a[i]) and (a[i]<=7.9) then inc(kha);
if (a[i]<6.5) then inc(kem);
end;
writeln('So hoc sinh gioi la:',gioi);
writeln('So hoc sinh kha la:',kha);
writeln('So hoc sinh kem la:',kem);
readln;
end.
Đúng 1
Bình luận (2)
viết chương trình nhập điểm các bạn trong lớp, sau đó in ra màn hình số bạn đạt kết quả học tập loại giỏi, khá, trung bình và kém theo tiêu chuẩn nhà trường
Viết chương trình nhập điểm của các bạn trong lớp. Sau đó in ra màn hình số bạn đạt kết quả học tập loại giỏi, khá, trung bình và kém( theo tiêu chuẩn >8 điểm: Giỏi, từ 6,5 điểm đến 7,9 điểm: Khá, từ 5 điểm đến 6,4 điểm: Trung bình và dưới 5 điểm : Kém)
uses crt;
var a:array[1..100]of real;
i,n,dem1,dem2,dem3,dem4:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem1:=0;
dem2:=0;
dem3:=0;
dem4:=0;
for i:=1 to n do
begin
if (a[i]>=8) then inc(dem1);
if (6.5<=a[i]) and (a[i]<=7.9) then inc(dem2);
if (5<=a[i]) and (a[i]<=6.4) then inc(dem3);
if (a[i]<5) then inc(dem4);
end;
writeln('So hoc sinh gioi la: ',dem1);
writeln('So hoc sinh kha la: ',dem2);
writeln('So hoc sinh trung binh la: ',dem3);
writeln('So hoc sinh kem la: ',dem4);
readln;
end.
Đúng 0
Bình luận (0)
viết ct sử dụng biến mảng để nhập từ bàn phím điểm của n học sinh trong một lớp và in ra màn hình số học sinh đạt kết quả học tập loại Khá(với sỉ số n học sinh trong lớp là số nguyên dương được nhập từ bàn phím)
Em cho thêm điều kiện loại Khá của em là gì?
Đúng 0
Bình luận (0)
viết chương trình nhập điểm môn tin của các bạn trong lớp mình au đó in ra màn hình sổ bạn số bạn đtaj kết quả học tập loại giỏi khá trung bình và yếu ( theo điều kiện>= 8 điểm giỏi từ 6,5 điểm đến 7,9 điểm khá từ 5 điểm đến 6,4 điểm trung bình dưới 5 điểm yếu)
Viết chương trình sử dụng biến mảng để nhập điểm trung bình môn tin học của các bạn trong lớp em.Thực hiện các yêu cầu sau - in điểm của các banh trong lớp em ra màn hình -tìm bạn có điểm trung bình cao nhất lớp em
uses crt;
var a:array[1..100]of real;
i,n:integer;
ln:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
ln:=a[1];
for i:=1 to n do if ln<a[i] then ln:=a[i];
writeln(ln);
readln;
end.
Đúng 0
Bình luận (0)
Xổ số miên mà viết chương trình nhập điểm môn thể dục của các bạn trong lớp sau đó in ra màn hình kết quả học tập loại đạt, chưa đạt ( theo tiêu chuẩn quy đổi :loại đạt ≥5 điểm ;loại chưa đạt <5 điểm )?
program b1;
uses crt;
var i,n,dat,chuadat:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap tong so ban trong lop:');
readln(n);
for i:=1 to n do readln(a[i]);
dat:=0; chuadat:=0;
for i:=1 to n do
begin
if (a[i]>=5) then inc(dat);
if (5>=a[i]) then inc(chuadat);
end;
writeln('So hoc sinh dat la:',dat);
writeln('So hoc sinh chuadat la:',chuadat);
readln;
end.
Tham khao!
Đúng 1
Bình luận (0)
Phần xổ số miên là mình viết nhầm
Nó là: xử dụng biến mảng nha
Đúng 1
Bình luận (1)
Sử dụng biến mảng viết chương trình nhập từ bàn phím STT, Họ tên, Điểm trung bình của n học sinh trong lớp (5<n<10). In thông tin được nhập ra màn hình.
uses crt;
var st:array[1..10]of string;
a:array[1..10]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(st[i],a[i]);
for i:=1 to n do
writeln(st[i],' ',a[i]);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập điểm kiểm tra học kì I môn tin học cho n học sinh (với n và điểm được nhập từ bàn phím ) và in ra các kết quả sau: A: tổng điểm của lớp B:Điểm trung bình của lớp C:điểm cao nhất D:số học sinh đạt trung bình trở lên Lưu ý: Sử dụng biến đếm : For := to đó; Sử dụng biến mảng: var :array[..] of integer;