$\fbox{Tin 8}$ viết chương trình pascal

[minhmai2002]

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

Đề: 2 bến M,N đều ở bên một bờ sông và cách nhau n km nếu ca nô đi xuôi dòng từ M về N mất t giờ. Nếu đi ngược dòng cùng vận tốc thì thời gian tăng 2 giờ. Biết V của dòng nước là một hằng số có giá trị không đổi. Viết chương trình pascal tìm V ca nô nếu ca nô đi ngược dòng hoặc xuôi dòng

 

[iceghost]

program Tinhvantoc;
uses crt;
var n,t,v_xd,v_nd,v:real;
begin
    clrscr;
    write('Nhap khoang cach hai bo M,N (km) = '); readln(n);
    write('Nhap thoi gian thuyen xuoi dong (h) = '); readln(t);
    v_xd:=s/t;
    v_nd:=s/(t+2);
    v:=(v_xd+v_nd)/2;
    writeln('Van toc thuyen = ',v:1:0,' km/h');
    readln;
end.