Viết chương trình nhập vào từ bàn phím họ tên, điểm của học sinh. Sau đó đưa ra màn hình thông báo học sinh đó “Đạt” nếu có điểm lớn hơn hoặc bằng 5 hoặc “Chưa đạt” nếu điểm bé hơn 5.
Help mee
Viết chương trình nhập từ bàn phím họ và tên, điểm trung bình của từng môn của một học sinh a) Tính điểm trung bình môn b) Đưa ra màn hình điểm của môn cao nhất c) Đưa ra màn hình những điểm trung bình lớn hơn hoặc bằng 5 d) Đưa ra màn hình những môn có điểm trung bình bằng 10 e) sắp xếp theo thứ tự tăng dần của điểm trung bình
Viết chương trình nhập từ bàn phím họ và tên, điểm trung bình của từng môn của một học sinh a) Tính điểm trung bình môn b) Đưa ra màn hình điểm của môn cao nhất c) Đưa ra màn hình những điểm trung bình lớn hơn hoặc bằng 5 d) Đưa ra màn hình những môn có điểm trung bình bằng 10 e) sắp xếp theo thứ tự tăng dần của điểm trung bình
viết chương trình sử dụng vòng lặp while...do thực hiện các công việc sau:
-nhập vào từ bàn phím điểm tb các bạn học sinh trong lớp.
-thông báo ra màn hình học sinh có điểm tb cao nhất, thấp nhất.
-thông báo ra những học sinh có điểm tb trên 5,dưới 5.
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.
viết chương trình nhập điểm thi 2 môn ngữ văn và toán của các học sinh khối 9 tính điểm trung bình và in ra màn hình kết quả thi đậu nếu điểm trung bình lớn hơn hoặc bằng 5 còn thi trượt nếu như điểm trung bình bé hơn 5
program DiemTB;
var
diemToan, diemVan, diemTB: real;
begin
write('Nhap diem mon Toan: ');
readln(diemToan);
write('Nhap diem mon Van: ');
readln(diemVan);
diemTB := (diemToan + diemVan) / 2;
writeln('Diem trung binh: ', diemTB:0:2);
if diemTB >= 5 then
writeln('Chuc mung! Ban da dau ky thi.')
else
writeln('Rat tiec! Ban da truot ky thi.');
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 vào điểm toán,văn,anh của 10hs.Tính ĐTB của từng bạn.Biết ĐTB=(toán+văn+anh)/3.Tìm ĐTB cao nhất và ĐTB thấp nhất.Xếp loại nếu ĐTB lớn hơn hoặc=5 thì in ra màn hình "Đạt", ngược lại in ra màn hình "Chưa đạt"
uses crt;
var a,b,c,tb:array[1..10]of real;
ln,nn:real;
i:integer;
begin
clrscr;
for i:=1 to 10 do readln(a[i],b[i],c[i]);
for i:=1 to 10 do
tb[i]:=(a[i]+b[i]+c[i])/3;
ln:=0;
nn:=10;
for i:=1 to 10 do
begin
if ln<tb[i] then ln:=tb[i];
if nn>tb[i] then nn:=tb[i];
end;
writeln(ln:4:2);
writeln(nn:4:2);
for i:=1 to 10 do
begin
if tb[i]>=5 then writeln('Ban thu ',i,' Dat')
else writeln('Ban thu ',i,'Chua dat');
end;
readln;
end.
viết chương trình thực hiện các công việc sau:
a) Nhập chiều cao(đơn vị mét) của N học sinh(N được nhập từ bàn phím).
b) Thông báo ra màn hình chiều cao lớn nhất của N học sinh đó.
c) Thông báo ra màn hình số học sinh cao hơn 1.6m
Mng ơi giúp mình với ạ :((
a)
var a:array[1..100] of longint;
n,i,max,d:longint;
begin
read(n);
for i:=1 to n do
write('nhap chieu cao, don vi cm');read(a[i]);
b) max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('ban cao nhat cao',max);
c) for i:=1 to n do
if a[i]>160 then d:=d+1;
write('so ban cao hon 160 cm la: ',d);
end.
uses crt;
var a:array[1..50]of real;
max:real;
i,n,dem:integer;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Nhap chieu cao cua ban thu ',i,':'); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Chieu cao lon nhat la: ',max);
dem:=0;
for i:=1 to n do
if a[i]>1.6 then inc(dem);
writeln('So hoc sinh cao hon 1,6m la: ',dem);
readln;
end.
Viết chương trình nhập từ bàn phím điểm toán lí hóa của 1 học sinh, tính điểm trung bình 3 môn đó. Dựa vào điểm trung bình xếp loại học lực và đưa ra màn hình. Đưa ra màn hình điểm thấp ,cao nhất, điểm trung bình
Cần gấp ạ giúp em với
E cảm ơn!