Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
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.
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.
1. Ví dụ:
Viết: 10 điểm
Nghe: 10 điểm
Vấn đáp: 4 điểm
Trung bình: \(\dfrac{10+10*2+4*3}{6} = \dfrac{4}{2} = 7\) điểm
Trung bình là 7 mà vấn đáp lại dưới 5 điểm nên máy sẽ không cho ra được kết quả.
2. Đây là code:
Uses crt;
Var
viet,nghe,vandap,min:byte; {Ở đây dùng byte, word hoặc integer đều được nha}
Tb:real;
Begin
Clrscr;
Write('Nhap diem viet : '); Readln(viet);
Write('Nhap diem nghe : '); Readln(nghe);
Write('Nhap diem van dap : '); Readln(vandap);
Tb:= (viet + nghe * 2 + vandap * 3)/6;
min:=viet;
If min>nghe Then min:=nghe;
If min>vandap Then min:=vandap;
If (Tb>=8) And (min>=7) Then
Write('Ket qua Dat. Xep loai Gioi')
Else If (Tb>=7) And (min>=6) Then
Write('Ket qua Dat. Xep loai Kha')
Else If (Tb>=5) And (min>=5) Then
Write('Ket qua Dat. Xep loai Trung Binh')
Else If (Tb<5) Or (min<3) Then
Write('Ket qua Khong Dat');
Readln.
End.
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.
D. If DTB >=5 then writeln( ‘Len lop’) else then writeln( ‘ Thi lai’) ;
uses crt;
var a,b,c,tb:real;
begin
clrscr;
readln(a,b,c);
tb:=(a*2+b*2+c);
if (tb>=45) then writeln('Dau lop chuyen')
else if (tb>=40) then writeln('Dau lop tich hop')
else if (tb>=30) then writeln('Dau lop thuong')
else writeln('Rot');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double a,b,tb;
int main()
{
cin>>a>>b;
tb=(a+b*2)/3;
cout<<fixed<<setprecision(2)<<tb<<endl;
if (tb>=8.0) cout<<"Gioi";
else if ((tb>=6.5) and (tb<8)) cout<<"Kha";
else if ((tb>=5.0) and (tb<6.5)) cout<<"Trung binh";
else cout<<"Yeu";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
double a,b,kq;
int main()
{
cin>>a>>b;
kq=(a+b*2)/3;
cout<<fixed<<setprecision(2)<<kq;
return 0;
}
Help
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;
}