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 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.
câu 1:
uses crt;
var a,b:integer;
svg:real;
begin
clrscr;
write('nhap chieu dai lop hoc='); readln(a);
write('nhap chieu rong lop hoc='); readln(b);
svg:=(a*b)/900;
writeln('so vien gach can lat la: ',svg:4:2);
readln;
end.
câu 2:
uses crt;
var a,b,c,d:integer;
tbc:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
tbc:=(a+b+c+d)/4;
writeln('trung binh cong cua 4 so la: ',tbc:4:2);
readln;
end.
câu 3:
uses crt;
var dtbhk1,dtbhk2,dtbcn:real;
begin
clrscr;
write('nhap diem trung binh hoc ky 1: '); readln(dtbhk1);
write('nhap diem trung binh hoc ky 2: '); readln(dtbhk2);
dtbcn:=(dtbhk1+dtbhk2*2)/3;
if dtbcn<5 then writeln('yeu');
if (dtbcn>=5) and (dtbcn<6.5) then writeln('trung binh');
if (dtbcn>=6.5) and (dtbcn<8) then writeln('kha');
if dtbcn>=8 then writeln('gioi');
readln;
end.
câu 4:
uses crt;
var a,b,c,cv:integer;
p,dt:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
cv:=a+b+c;
p:=cv/2;
dt:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('chu vi tam giac=',cv);
writeln('dien tich tam giac=',dt:4:2);
end
else writeln('khong la ba canh cua mot tam giac');
readln;
end.
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
end.
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.
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.
Uses CRT;
Var TB : real;
BEGIN
clrscr;
repeat
begin
write('Moi ban nhap diem trung binh: ');
Readln(TB);
end;
until (TB>0) and (TB<10);
If (TB >= 8) then write('hoc luc gioi') else
If (TB>=6.5) then write('hoc luc kha') else
If (TB>5) then write('hoc luc trung binh') else
If (TB>3.5) then write('hoc luc yeu') else
write('hoc luc kem');
Readln;
END.
Uses CRT;
Var TB : real;
Begin
clrscr;
Readln(TB);
If TB >= 8 then write('hoc luc gioi') else
If 6.5<=TB<8 then write('hoc luc kha') else
If 5<=TB<6.5 then write('hoc luc trung binh') else
If 3.5<=TB<5 then write('hoc luc yeu') else
write('hoc luc kem');
Readln;
End.