Bài 6: Phép toán, biểu thức, câu lệnh gán

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nhung Thùy Bùi

Câu 1t:Lập trình tính giá trị biểu thức sau:

|X^2 - 1| / ( z - 1/x)

Câu 2: Nhập vào hai số thực á, b lần lượt là chiều dài và chiều rộng hcn. Lập trình tính chu vi và diện tích

Câu 3: từ bàn phím lập trình tính diện tích hình tròn

Giúp mình với ạ. Mai mình ktra r hiuhiu. Thank you so much!

Nguyễn Lê Phước Thịnh
31 tháng 10 2019 lúc 22:41

quá dễ

bài 1:

uses crt;
var x,z:integer;
bt:real;
begin
clrscr;
write('x='); readln(x);
write('z='); readln(z);
bt:=(abs(sqr(x)-1))/(z-1/x);
writeln(bt:4:2);
readln;
end.

bài 2:

uses crt;
var a,b,dt,cv:real;
begin
clrscr;
repeat
write('nhap chieu dai:'); readln(a);
write('nhap chieu rong:'); readln(b);
if (a<=b) or (a<=0) or (b<=0) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (a>b) and (a>0) and (b>0);
cv:=(a+b)*2;
writeln('chu vi=',cv:4:2);
dt:=a*b;
writeln('dien tich=',dt:4:2);
readln;
end.

bài 3:

uses crt;
var r,dt:real;
begin
clrscr;
repeat
write('nhap ban kinh r='); readln(r);
if r<=0 then writeln('ban da nhap sai , yeu cau ban nhap lai');
until r>0;
dt:=sqr(r)*pi;
writeln('dien tich=',dt:4:2);
readln;
end.

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

Các câu hỏi tương tự
Nguyễn Cát Tường
Xem chi tiết
nguyễn thị cẩm tiên
Xem chi tiết
Ha Ha
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết
Huuthuong
Xem chi tiết
Yến Ngọc
Xem chi tiết
Trần Lan Anh
Xem chi tiết
hang viet
Xem chi tiết
Kiều Oanh
Xem chi tiết