Câu 1: Lớp 8 3 có chiều dài là a, chiều rộng là B. bạn An muốn tính số lượng viên gạch để lát nền lớp 8A. biết viên gạch hình vuông có cạnh là 30 cm. Em hãy viết chương trình tính số lượng viên gạch để lát nền lớp học của lớp 8A
Câu 2 viết chương trình cho phép tính trung bình cộng của 4 số
Nhập 4 số vào 4 biến a, b, c, d
Tính trung bình cộng của a, b, c, d .Biết công thức tính trung bình cộng của 4 số là: (a + b + c + d) /4
câu 3 Viết chương trình tính điểm trung bình của một học sinh, dữ liệu nhập vào là ĐTBHKI, ĐTBHKIK. in ra màn hình của học sinh ĐTBCN của HS đó ĐTBCN=(ĐTBHKI+ ĐTBHKII*2)/3, và xếp loại học lực biết:
ĐTBCN<5, xếp loại: yếu
5=<ĐTBCN<6.5, xếp loại: trung bình
6.5=<ĐTBCN<8, xếp loại: khá
ĐTBCN>=8, xếp loại: giỏi
Cau 4 tính tam giác: nhập vào 3 số A,b,c bất kì. kiểm tra xem nó có thể là độ dài ba cạnh hay không, Nếu không thì in ra màn hình" Khong la ba canh cua mot tam giac". Ngược lại thì in diện tích chu vi của tam giác ra màn hình
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.