viết chương trình
-Nhập mảng số thực điểm trung bình môn toán của N bạn trogn lớp
-In ra màng hình số bạn đạt loại giỏi ( nếu điểm trung bình không nhỏ hơn 8.0 ). và điểm các bạn này .
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 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.
Viết chương trình nhập trung bình môn Tin học của các bạn học sinh trong lớp. In ra màn hình điểm của các bạn và điểm số lớn nhất (hoặc nhỏ nhất) của lớp.
refer
uses crt;
var i,n:longint;
a:array[1..100] of real;
s1,s,max,min:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Diem trung binh mon tin hoc cua ban thu ',i,' la: ');readln(a[i]);
end;
min:=a[1];max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]; end;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln('So diem cao nhat la: ',max);
writeln('So diem thap nhat la: ',min);
write('Diem TB cua ca lop la: ',s1:0:1);
readln
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 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.
viết chương trình nhập vào từ bàn phím mảng một chiều dùng để lưu trữ điểm trung bình của các môn học hãy đưa ra màng hình như sau
A nhập mảng
B in mảng
C tính điểm trung bình môn
D nếu điểm trung bình >=5 thì thồn báo được lên lớp ngược lại thì thông báo thi lại
uses crt;
var a:array[1..14]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap so mon hoc='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (0<=a[i]) and (a[i]<=10);
end;
for i:=1 to n do
write(a[i]:4:2,' ');
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Diem trung binh mon la: ',t/n:4:2);
if t>=5 then writeln('Duoc len lop')
else writeln('Thi lai');
readln;
end.
Viết chương trình nhập điểm toán, lí, hóa cho các bạn lớp 8a14. Sao đó in ra màn hình điểm trung bình của các bạn trong lớp theo công thức điểm trung bình= ( điểm toán+ điểm lí+ điểm hóa):3 và in ra màn hình kết quả
uses crt;
var a,b,c,tb:array[1..10]of real;
ln,nn:real;
n:integer;
i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i],b[i],c[i]);
for i:=1 to n do
tb[i]:=(a[i]+b[i]+c[i])/3;
for i:=1 to n do
writeln(tb[i]:4:2);
readln;
end.
viết chương trình nhập vào điểm trung bình của n học sinh trong lớp. đếm có bao nhiêu bạn đạt loại giỏi ( điểm trung bình lớn hơn hoặc bằng 8 )( loại khá điểm trung bình lớn hơn 7 và bé hơn 8, loại trung bình lớn hơn hoặc bằng 5 và bé hơn 7
viết chương trình nhập điểm 3 môn toán,ngữ văn, tiếng Anh của các bạn trong lớp , sau đó in ra màn hình điểm trung bình của phần toán , văn , tiếng Anh của cả lớp
uses crt;
var a,b,c:real;
begin
clrscr;
write('Nhap diem Toan:'); readln(a);
write('Nhap diem Van:'); readln(b);
write('Nhap diem Anh:'); readln(c);
writeln('Diem trung binh la: ',(a+b+c)/3:4:2);
readln;
end.