Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Van ngoc Xuan

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

Nguyễn Lê Phước Thịnh
3 tháng 12 2019 lúc 22:44

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.

Khách vãng lai đã xóa

Các câu hỏi tương tự
lam mi
Xem chi tiết
Phạm Vũ Hoài Châu
Xem chi tiết
Phùng Việt Anh
Xem chi tiết
loli
Xem chi tiết
Nhật Quân
Xem chi tiết
Thị Ngọc Phan
Xem chi tiết
Trịnh Uyển Nhi
Xem chi tiết
Nguyễn Thị Khánh Hân
Xem chi tiết
Dienn
Xem chi tiết