Viết chương trình tính điểm trung bình nếu ĐTB >= 5.0 thì đậu <5.0 thì rớt .
Giúp mình với !!!!!!
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.
hãy hoàn thành chương trình phổ thông kết quả kì thi nghề phổ thông như sau:Nhập vào và in ra họ và tên(HT)lớp(L) điểm thi lý thuyết(ĐLT) điểm thi thực hành(ĐTH) sau đó tính điểm trung bình(ĐTB) của 2 phần thì đónếu điểm trung bình lớn hơn 5 thì thông báo thi đậu và ngược lại bạn thì lại
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 ";
}
Viết chương trình nhập vào điểm LT và TH. Tính điểm trung bình và xét kết quả như sau: nếu TB>=5 thì đậu ngược lại rớt.
Var dtb:real;
Begin
Repeat
Writeln('Nhap diem trung binh cua ban vao day:'); Readln(dtb);
Until (0<=dtb) and (dtb<=10);
If dtb>=5 then writeln ('Chuc mung,ban da dau!') else if dtb<5 then writeln('Xin chuc mung, ban da tach!');
Readln
End.
*Dòng lệnh in đậm có nghĩa là khi bạn nhập dtb mà không nằm trong phạm vi từ 0->10, nó sẽ bắt bạn phải nhập lại cho đến khi đúng phạm vi. Vd như dưới đây: (Good luck for you :D :D )
uses crt;
var lt,th:real;
begin
clrscr;
write('Nhap diem LT:'); readln(lt);
write('Nhap diem TH:'); readln(th);
if (lt+th)/2>=5 then writeln('Dau')
else writeln('Rot');
readln;
end.
Viết chương trình nhập điểm trung bình(dtb) từ bàn phím , nếu dtb > 8 thì xếp loại giỏi , ngược lại nếu 6.5 < dtb < 7.9 thì xếp loại khá , ngược lại nếu 5.0 < dtb < 6.4 thì xếp loại trung bình , ngược lại xếp loại yếu .In kết quả ra màn hình
Mình viết ở ngôn ngữ c++ nhé:
#include<iostream>
using namespace std;
int main() {
double a;
cout << "Diem trung binh : "; cin >> a;
if (a >= 1 && a <= 10) {
if (a >= 8) {
cout << "Gioi";
} else if (a >= 6.5 && a <= 7.9) {
cout << "kha";
} else if (a <= 6.4 && a >= 5) {
cout << "trung binh";
} else {
cout << "yeu";
}
} else {
cout << "Diem so khong hop le";
}
return 0;
}
Viết chương trình thực hiện điều kiện sau:
- Nếu điểm trung bình của năm học (DTB) mà từ 5.0 trở lên thì ghi là “được lên lớp”, ngược lại thì ghi là “thi lại” (lưu ý DTB được tính từ 3 môn Toán, Văn, Anh).
var t,v,a,dtb: real;
begin
writeln(' diem mon Toan la: ');
read(t);
writeln(' diem mon Van la: ');
read(v);
writeln(' diem mon Anh la: ');
read(a);
dtb = ( t + v + a)/3
if ( dtb >= 5 ) then
writeln(' duoc len lop');
else
writeln(' thi lai');
readln;
end.
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 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 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.