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"
Viết chương trình cho phép nhập vào điểm trung bình (ĐTB) của sinh viên. In ra xếp loại của sinh viên. Biết:
0<=ĐTB<3: Kém; 3 <=ĐTB<5: Yếu; 5 <=ĐTB<6.5: Trung bình khá; 6.5<=ĐTB<8: Khá; 8<=ĐTB< 9: giỏi; 9<=ĐTB<=10: Xuất sắc
viết chương trình nhập điểm trung bình (ĐTB) trong học kỳ 1 của các bạn học sinh. đưa ra kết quả xếp loại của học sinh dwuaj trên các tiêu chí dưới đây:
+Nếu ĐTB<5.0 thì xếp loại yếu
+Nếu 5.0 ≤ ĐTB < 6.5 thì xếp loại trung bình
+Nếu 6.5 ≤ ĐTB < 8.0 thì xếp loại khá
+Nếu ĐTB ≥ 8.0 thì xếp loại giỏi.
In kết quá xếp loại ra màn hình.
uses crt;
var diem:real;
begin
clrscr;
repeat
write('Nhap diem trung binh:'); readln(diem);
until (0<=diem) and (diem<=10);
if diem<5 then writeln('Xep loai yeu')
else if (5<=diem) and (diem<6.5) then writeln('Xep loai trung binh')
else if (6.5<=diem) and (diem<8.0) then writeln('Xep loai kha')
else writeln('Xep loai gioi');
readln;
end.
Câu2: viết chương trình thực hiện yêu cầu sau . a, Sử dụng biến mảng để nhập từ bàn phím điểm trung bình (ĐTB) của 50 bạn học sinh trong lớp. b,In rs màn hình (ĐTB) của học sinh . c,In ra màn hình số lớn nhất trong dãy số . Mn giúp mik vs mik cần gấp.mik c.ơn
Var a:array:[1..50] of real;
i,max:integer;
Begin
For i:=1 to 50 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
Writeln;
max:=a[1];
For i:=2 to 50 do
if a[i]>max then max:=a[i];
Write('Diem trung binh lon nhat la ',max:10:2);
Readln
End.
Var a:array:[1..50] of real;
i:integer;
max:real;
Begin
For i:=1 to 50 do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
writeln;
max:=a[1];
For i:=2 to 50 do
if a[i] > max then max:=a[i];
write('Diem lon nhat la ',max:10:2);
Readln
End.
Viết chương trình nhập điểm môn toán( Đ.Toán) và điểm môn văn ( Đ.Văn) cho học sinh từ bàn phím.Thực hiện:
-Tính điểm trung bình(ĐTB) cho học sing theo công thức:
ĐTB=( Đ.Toan+Đ.Van)/2
-Xếp ***** học sing theo tiêu chí sau đây:
+Nếu ĐTB <5.0 xếp loại yếu
+Nếu 5.0 < hoặc = ĐTB < hoặc =6.5 xếp loại trung bình
+Nếu 6.5 < hoặc=ĐTB < hoặc = 8.0 xếp loại khá
+Nếu ĐTB > hoặc = 8,0 thì xếp loại giỏi
uses crt;
var t,v,dtb:real;
begin
clrscr;
write('nhap diem toan:'); readln(t);
write('nhap diem van:'); readln(v);
dtb:=(t+v)/2;
writeln('diem trung binh la: ',dtb:4:2);
if dtb<5 then writeln('xep loai yeu')
else if (dtb>=5) and (dtb<6.5) then writeln('xep loai trung binh')
else if (dtb>=6.5) and (dtb<8) then writeln('xep loai kha')
else writeln('xep loai gioi');
readln;
end.
Program bt;
Var t,v,dtb:real;
Begin
Writeln('nhap t:=');
Readln(t);
Writeln('nhap v:=');
Readln(v);
dtb:=(t+v)/2;
Writeln('diem trung binh là:=',dtb);
if dtb<5.0 then writeln('xep loai yeu');
if 5.0<=dtb<=6.5 then writeln('xep loai trung binh');
if 6.5<=dtb<=8.0 then writeln('xep loai kha');
if dtb>=8.0 then writeln('xep loai gioi');
Readln;
End.
#include <bits/stdc++.h>
using namespace std;
int man()
{
double a,b;
cin >> a >> b;
double t = ( a + b ) / 2;
if (t > 8) cout << " Gioi ";
else if (t > 6.5) cout << " Kha";
else if (t > 5) cout << "Trung binh ";
else cout << " Yeu ";
}
Giả sử ta có bảng tính sau:
Lập công thức để tính:
a) ĐTB của từng bạn
b) Tổng điểm từng môn
c) ĐTB cao nhất lớp
d) ĐTB thấp nhất lớp
1. ĐTB của từng bạn: =average(C3:F3)
2. Tổng điểm từng môn: =sum(C3:C6)
3. ĐTB cao nhất lớp: =max(G3:G6)
4. ĐTB thấp nhất lớp: =min(G3:G6)
Viết chương trình nhập điểm Văn Toán Anh . TÍnh điểm trung bình. In kết quả ra màn hình thông báo đoạt loại giỏi , khá nếu đủ điều kiện
ĐIều kiện đoạt lại giỏi đtbình lớn hơn hoặc bằng 8 ko môn nào dưới 6,5
ĐIèu kiện đoạt loại khá : đtbình từ 6,5 đến 7,9 ko môn nào dưới 5
Program bai1;
uses crt;
var DTB: real;
v,t: integer;
begin
clrscr;
repeat
write('nhap diem van =' ); readln(v);
write('nhap diem toan ='); readln(t);
until (v <= 10 ) and ( v >=0) and (t <=10) and (t >=0);
DTB:=(v+t) / 2;
writeln(' diem trung binh hai mon =' ,DTB:4:2);
if (DTB >= 8.0) and (v >=6.5 ) and (t >=6.5) then
writeln('dat loai gioi');
if (DTB >=6.5) and ( v >=5 ) and (t >=5) then
writeln('dat loai kha ') else
writeln('khong dat duoc loai gioi va kha ');
readln;
end.
Viết chương trình nhập họ tên, điểm trung bình học kì 1(ĐTB Hk 1) và điểm trung bình học kì 2 (ĐTB HK 2) kiểu số thực cho 1 người. tính diện tích điểm trung bình cả năm theo công thức
Trung bình cả năm:
(ĐTB cả năm) = ( ĐTB hk 1) +(ĐTB Hk 2)/3
Sau đó phân loại như sau
ĐTB cả năm < 5,0: Loại yếu
5,0 < ĐTB cả năm < 6,5:Loại Tb
6,5< ĐTB cả năm < 8,0: Loại khá
ĐTB cả năm > 8,0: Loại giỏi
In họ và tên, kết quả học tập của người đó ra màn hình
Viết công thức tính ĐTB các môn Toán, Lý, Hóa, Văn, Tin
Viết biểu thức để tìm các học sinh Nữ có ĐTB = 8.0
Viết chương trình nhập điểm trung bình của lớp 8, in ra màn hình ĐTB cao nhất, số học sinh giỏi (>=8), học sinh yếu (<5), in danh sách ĐTB sắp xếp theo thứ tự giảm dần