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

@Посетитель · Регистрация: 03.05.2013

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

Составить схему алгоритма и программу вычисления значения функции z с использованием подпрограмм. Вывести значения p,r,z.

Вычислить значение функции z=1/exp(1/2)*(ln(abs(p-r)+1)/ln(3)) , где р – среднее арифметическое отрицательных элементов вектора х, удовлетворяющих условию –1 < xi < 2;
x = {0,3; 4,2; -0,9; 7,2; -0,7; -1,3; 2,5}

@Puporev · 06.05.2013, 14:28

Сообщение от Посетитель

Вывести значения p,r,z.

А что такое r?

@Посетитель · 06.05.2013, 15:02 **[ТС]**

r – минимальный элемент среди элементов вектора х; удовлетворяющий условию –1 < xi < 2

@Puporev · 06.05.2013, 15:19

Pascal

uses crt;
const n=7;
      x:array[1..n] of real=(0.3,4.2,-0.9,7.2,-0.7,-1.3,2.5);
function zz(p,r:real):real;
begin
zz:=1/exp(1/2)*(ln(abs(p-r)+1)/ln(3))
end;
var i,k:byte;
    p,r,z:real;
begin
writeln('Ìàññèâ X:');
p:=0;
r:=2;
k:=0;
for i:=1 to n do
 begin
  write(x[i]:5:1);
  if (x[i]>-1)and(x[i]<2) then
   begin
    k:=k+1;
    p:=p+x[i];
    if x[i]<r then r:=x[i];
   end;
 end;
writeln;
p:=p/k;
writeln('p=',p:0:1);
writeln('r=',r:0:1);
write('z=',zz(p,r):0:1)
end.

@Посетитель 0 / 0 / 0 Регистрация: 03.05.2013 Сообщений: 78
		1
	Составить схему алгоритма и программу вычисления значения функции z с использованием подпрограмм 06.05.2013, 13:41. Показов 2561. Ответов 3 Метки нет (Все метки) Составить схему алгоритма и программу вычисления значения функции z с использованием подпрограмм. Вывести значения p,r,z. Вычислить значение функции z=1/exp(1/2)*(ln(abs(p-r)+1)/ln(3)) , где р – среднее арифметическое отрицательных элементов вектора х, удовлетворяющих условию –1 < xi < 2; x = {0,3; 4,2; -0,9; 7,2; -0,7; -1,3; 2,5} 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	06.05.2013, 14:28	2
	Сообщение от Посетитель Вывести значения p,r,z. А что такое r? 0

@Посетитель 0 / 0 / 0 Регистрация: 03.05.2013 Сообщений: 78
	06.05.2013, 15:02 [ТС]	3
	r – минимальный элемент среди элементов вектора х; удовлетворяющий условию –1 < xi < 2 0

	06.05.2013, 15:19

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

Решение