Tin học Thuật toán

Hải cố said:

Có 2 vận động viên leo núi chuyên nghiệp tốc độ đi 10km/h. Một vận động viên đã leo trước đó hiện tại đang ở đỉnh núi, và một người còn lại đang ở dưới chân núi. Cả 2 cùng xuất phát, người leo lên, người đi xuống với vận tốc như nhau, có một con muỗi rất khoẻ đang ở chân núi, nó bay rất nhanh 50km/h và xuất phát cùng lúc với người leo lên. Muỗi bay theo quy tắc sau, hễ bay đụng trán người từ núi xuống thì nó lập tức quay đầu bay ngược về hướng người leo lên, và khi đụng trán người leo lên thì nó lại quay đầu bay ngược lại. Hỏi con muỗi đã bay được bao nhiêu km, biết núi độ dài 7km

Bấm để xem đầy đủ nội dung ...

absxca said:

Bài này tin học hay Vật lý nhỉ?
Thời gian con muỗi bay bằng thời gian hai người gặp nhau kể từ khi xuất phát, do đó tổng quãng đường muỗi đã bay bằng vận tốc của nó nhân với tổng thời gian bay (đã tính trên) thôi.

Bấm để xem đầy đủ nội dung ...

uses crt;
var
  a,b,m:byte;
  t,s:real;
begin
  clrscr;
  write('Van toc nguoi o dinh nui la:'); readln(a);
  write('Van toc nguoi o chan nui la:'); readln(b);
  write('Van toc cua muoi la:'); readln(m);
  write('Do dai nui la:'); readln(s);
  t :=0;
  while s>0 do
     begin
         t := t+s/(a+b);
         s := s-t*(a+b);
            end;
  writeln('Quang duong muoi da bay duoc la : ', t*m:0:4);
  readln;
end.