Составьте программу и вычислите значение функции y

@RanDY4k · Регистрация: 04.03.2019

Студворк — интернет-сервис помощи студентам

Составьте программу и вычислите значение функции y. Исчисление сумм выполните по подпрограмме- функции.

@ValentinNemo · 01.06.2019, 23:55

Pascal

program Project1;
 
function a (ax: double): double;
var
  k: integer;
  aa: double;
begin
 aa:= 1;
 for k := 1 to 4 do
   aa:= aa*(ax*ax/k);
 a:= aa;
end;
 
function b (bx: double): double;
var
  k: integer;
  bb: double;
begin
 bb:= 1;
 for k := 5 to 9 do
   bb:= bb*(bx*bx/k);
 b:= bb;
end;
 
 
var
  x: double;     // Переменная для хранения значений аргументов.
  y: double;     // Переменная для хранения значения результата вычислений.
begin
 // Writeln('Введите значение аргумента X:');
 // Readln(x);
 x:= 2.5;
 y:= exp(sin(a(x)*x)) + b(x);
Writeln('Результат вычислений: ',y:0:6);
Readln;
end.

@RanDY4k 0 / 0 / 0 Регистрация: 04.03.2019 Сообщений: 75
		1
	Составьте программу и вычислите значение функции y 01.06.2019, 13:36. Показов 392. Ответов 1 Метки нет (Все метки) Составьте программу и вычислите значение функции y. Исчисление сумм выполните по подпрограмме- функции. Миниатюры 0

	01.06.2019, 23:55

Опции темы