Задача на Паскале

[Black]

Задача на Паскале

Всем привет! Ребят помогите плиз решить задачу)))
1.Теплоход прошел по течению S км за t часов. Сколько времени ему потребовалось на обратный путь, если скорость течения реки V км/ч.
Время прохождения теплохода.
Введите исходные данные
Расстояние по течению S (км): 100
Время, потраченное теплоходом по течению t (ч): 2
Скорость течения реки V (км/ч): 15
На обратный путь теплоход потратил 5ч
Повторите запуск программы, используя другие исходные данные:
S=135, t=3, V=10 {На обратный путь теплоход потратил 5.4 ч}

2. Вычислить значение функции
У=

Входные данные (x, a, b, c, d) ввести с клавиатуры.
Значение функции.
Введите через пробел значения данных x, a, b, c, d:
4 2 1.5 2.8 10
Значение функции равно -2.43
Повторите дважды запуск программы используя другие значения данных:
x, a, b, c, d: 4 2 -8 2.8 10 {нет решения}
x, a, b, c, d: -20 3 -5.1 6 4.5 {Значение функции равно 20.05}

3.
Вычислить значения функции, если диапазон изменения аргумента и его шаг заданы. Определить количество значений функции не превышающих значения 0.45
У= a=2.5; ≤ х ≤ ; h=

Аргументы и значения функции вывести в табличном виде.

Таблица значений функции.
Х(градусы) Х(радианы) У
0 0. 00 0.32
5 0.09 0.36
10 0.17 0.40
15 0.26 0.44
20 0.35 0.47
25 0.44 0.49

Количество значений функций равно 4

 

[Vladimir_S]

Теплоход прошел по течению S км за t часов. Сколько времени ему потребовалось на обратный путь, если скорость течения реки V км/ч. Время прохождения теплохода. Введите исходные данные Расстояние по течению S (км): 100 Время, потраченное теплоходом по течению t (ч): 2 Скорость течения реки V (км/ч): 15 На обратный путь теплоход потратил 5ч Повторите запуск программы, используя другие исходные данные: S=135, t=3, V=10 {На обратный путь теплоход потратил 5.4 ч}

VAR
 S,T,V:Real;
BEGIN
 Write('S= ');
 ReadLn(S);
 Write('T= ');
 ReadLn(T);
 Write('V= ');
 ReadLn(V);
 WriteLn('Time= ',S*T/(S-V*T*2):4:1);
 ReadLn;
END.