Даю 35 баллов! задание небольшое
Необходимо записать данную формулу в виде, который
может понять Паскаль:
Приложения:
![](https://st.uroker.com/files/628/6283e133606d36d16d8017c5a6794145.png)
![](https://st.uroker.com/files/adb/adb80f0ec1e996d44768a1f1541c2a9e.png)
Ответы
Ответ дал:
0
Ответ:
для Free Pascal
Объяснение:
var
a, b, c, d, x, y : Double;
begin
// первая часть
Readln(a);
Readln(b);
Readln(c);
Readln(d);
a := a*b; // ТУТ сразу пересчитаем произведение a*b
d := c*d; // и c*d и чтоб не заводить новых переменных переприсвоим их уже существующим
x := a/d - (a-c)/d;
writeln(x);
//вторя часть задания. считаем что Х у нас уже есть
y := x-Sqr(x)*x/3 + exp(5*log(x))/5;
writeln(y);
end;
Вас заинтересует
1 год назад
1 год назад
7 лет назад
8 лет назад