profile
Опубликовано 4 года назад по предмету Информатика от daixo

Помогите составить программу
Вычислить время T встречи автомобилей, движущихся равноускоренно навстречу друг другу, если известны их скорости V1,V2, ускорения a1,a2 и начальное расстояние S между ними.

  1. Ответ
    Ответ дан Аккаунт удален

    var V1,V2,a1,a2,S,T:real;
    begin
    writeln ('Введите начальные скорости автомобилей');
    read (V1,V2);
    writeln ('Введите ускорения автомобилей');
    read (a1,a2);
    writeln ('Введите начальное расстояние между автомобилями');
    read (S);
    T:=abs((-(V1 + V2))+sqrt(sqr(V1+ V2)+(a1+a2)*2*s)/(a1+a2));
    writeln (T);
    end.
Самые новые вопросы