Главное меню

Вход на сайт

Кто на сайте?

Сейчас 38 гостей и ни одного зарегистрированного пользователя на сайте

Составить программу, используя подпрограммы.
Вычислить:

Image

Image

где

х=14,6
у=-8,91

Решение

var S:real;
    x,y:real;

function g(x:real):real;
var s:real;
    k:integer;
begin
s:=0;
for k:=1 to 8 do
s:=s+(k+1);
g:=s*x;
end;
begin
x:=14.6;
y:=-8.91;
S:=sqrt(g((x+1)/3))+sin(g((y-1)/4))-(1/g(2*x-1));
writeln;
writeln('x=',x:4:2);
writeln('y=',y:4:2);
writeln('S=',S:4:4);
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте