Цитата:
Сообщение от Juliet
Нужно вот такую задачу сделать на Паскале:
Путник двигался t1 часов со скоростью v1, а затем t2 часов со скоростью v2 и t3 часов - с скоростью v3. За какое время он преодолел первую половину пути, после чего запланировал привал?
Заранее благодарю)))
|
Если я правильно понял условие задачи, то как-то так:
Код:
Var
t1,t2,t3,v1,v2,v3,s1,s2,s3,S_half,T_half:Real;
Begin
Write('t1 = ');
Readln(t1);
Write('v1 = ');
Readln(v1);
Write('t2 = ');
Readln(t2);
Write('v2 = ');
Readln(v2);
Write('t3 = ');
Readln(t3);
Write('v3 = ');
Readln(v3);
s1:=t1*v1;
s2:=t2*v2;
s3:=t3*v3;
S_half:=(s1+s2+s3)/2;
If S_half<=s1 then
T_half:=S_half/v1
else
If (S_half>s1) and (S_half<=s1+s2) then
T_half:=t1+(S_half-s1)/v2
else
T_half:=t1+t2+(S_half-s1-s2)/v3;
Writeln('Answer: ',T_half:0:3);
Readln;
End.