Một tàu đánh cá có ngư dân bị tai nạn cần cấp cứu đã gọi điện về cơ sở y tế ở đảo gần nhất cách đó d (hải lý) . Để người bị tai nạn được sơ cứu sớm hơn, tàu đánh cá đổi hướng đi thẳng về phía đảo với vận tốc V1 (hải lý/giờ) đồng thời từ đảo người ta cũng cho một tàu cứu nạn có thiết bị sơ cứu đi theo đường đó tới hướng tàu cá với vận tốc V2(hải lý/giờ) Em hãy xác định sau bao lâu 2 tàu gặp nhau khi biết dữ liệu d,V1,V2 Ví dụ: Input : d=15;V1=5;V2=10 Output: 1(giờ)
2 câu trả lời
uses crt;
var v1, v2, d : real;
begin
clrscr;
write('nhap so hai li : ');readln(d);
write('nhap van toc v1 va v2 : ');readln(v1, v2);
writeln('thoi gian hai tau gap nhau : ', (d / (v1 + v2)):2:1);
readln
end.
Program baitap;
Uses crt;
Var d,v1,v2,t:real;
Begin
Clrscr;
Write('d='); Readln(d);
Write('v1='); Readln(v1);
Write('v2='); Readln(v2);
t:=d/(v1+v2);
Writeln('Thoi gian de 2 xe gap nhau:',t:5:2,'(gio)');
Readln
End.
