bài tập về nhà cuối cùng giúp mik vs
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
CHỊ ẤY LÀ MỘT NGƯỜI RẤT DŨNG CẢM ĐÃ CHIẾN THẮNG ĐÔI CHÂN CỦA MÌNH .
( CHỈ NGHĨ ĐC VẬY THÔI NHE )
Chị là một người có tinh thần quyết tâm không nản chí.theo mik
![](https://rs.olm.vn/images/avt/0.png?1311)
program tim_dien_tich;
uses crt;
var a1,a2,b1,b2,x1,x2,i,dem:longint;
dtnn,dt1,dt2,dt3,dt4,dt5,dt6:real;
x3:array[1..1000]of longint;
dt:array[1..1000]of real;
begin
clrscr;
write('nhap chieu dai va chieu rong:');readln(a1,b1);
a2:=a1;b2:=b1;dt1:=a1*b1;dt2:=dt1/2;
x1:=0;i:=0;dem:=0;
writeln(dt2:5:1);
writeln(x1);
while x1<b1 do
begin
dt3:=a2*x1/2;
dt4:=(b2-x1)*x1/2;
dt5:=b2*(a2-x1)/2;
dt6:=dt1-dt3-dt4-dt5;
dt[i]:=dt6;x3[i]:=x1;
x1:=x1+1;i:=i+1;dem:=dem+1;
end;
dtnn:=dt[1];
for i:=1 to dem do
begin
if (dtnn>dt[i])and(dt[i]<>0) then dtnn:=dt[i];
end;
writeln(dtnn:5:1);
for i:=1 to dem do
if dtnn=dt[i] then writeln(x3[i]);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Bạn viết ra thay vì chụp ảnh dc ko. mắt mk hoi kém nên ko thấy rõ
Vận tốc truyền âm trong nước biển : 1500m/s nha
\(s=\dfrac{v.t}{2}=\dfrac{1500.3}{2}=2250\left(m\right)\\ \Rightarrow D\)
D