var a,b,c,s,t:real;
function f(a,b,c:real):real; begin
Result:= (2*a-b-cos(c/180*pi))/(3.5-abs(c));
end;
BEGIN
readln(s,t);
writeln( f(t,-3*s,2.5-t)+f(5.2,3*t,s-t) );
END.
Объяснение:
рисунок блочной схемы не осилю
а хотя почему бы и не сделать зарисовку
за соответствие стандартам рисования этого рисунка блоками именуемой схемой не отвечаю но он делался по примерам из интернета. Язык изложения учитывался только рисованной форме блоков и была сделана подача русским языком взамен паскалного языка с маленькими видоизменениями слов действий внутри текста на слова действия из русского языка то есть попростому перевод был сделан. Надеюсь это зайдёт.
#include <iostream>
#include <cmath>
using namespace std;
signed main()
{
setlocale(LC_ALL, "Rus");
double s = 0.0, x;
int K;
cout << "Введите число X: ";
cin >> x;
cout << "Введите число K: ";
cin >> K;
if (x > 0.5) {
for (size_t k = 1; k <= K; k++)
s += (pow(x - 1.0, k) / (k * pow(x, k)));
cout << "S = " << s << endl;
}
else
cout << "\nX < 0.5\n";
return 0;
}
1
Объяснение:
массив заполняется в п.1