Tin học Thuật toán

[Hải cố]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

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

 

[absxca]

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à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.

 

[tung01212]

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ạn ấy hỏi thiếu thôi, đây chắc là hỏi thuật toán dành cho Pascal rồi Lời giải đây bạn nhé, còn giải thích thì như a @absxca nói

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.