Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Функция

Автор: Valdemar 28.11.2004, 18:54

Для заданных N, X1, X2 .. , Xn написать программу, используя подходящую функцию

(Сумма от 1 до N)
m1=∑Xi/i ; m2=∑(Xi-m1)²/i ; m3=(Xi-m2)³/i smile

Автор: Zero 28.11.2004, 19:33

Valdemar, я пологаю что ты опечатался, когда писал про m3, возможно ты подразумевал m3=∑(Xi-m2)³/i, если я ошибся то я думаю ты догадаешся что нужно исправить тут:

Код


program pr;
const Nmax=100;
var
   i,n:integer;
   x:array[1..Nmax] of real;
   m1,m2,m3:real;
Begin
  write('Введите N=');
  readln(N);
  for i:=1 to n do
    begin
      write('x[',i,']=');
      readln(x[i]);
    end;
  m1:=0; m2:=0; m3:=0;
  for i:=1 to n do
    m1:=m1+(x[i]/i);
  for i:=1 to n do
    m2:=m2+(sqr(x[i]-m1)/i);
  for i:=1 to n do
    m3:=m3+((sqr(x[i]-m2))*(x[i]-m2));
  writeln('m1=',m1:2:6);
  writeln('m2=',m2:2:6);
  writeln('m3=',m3:2:6);
End.

Автор: Valdemar 28.11.2004, 19:50

Спасибо конечно, но нужно использовать функцию
Добавлено @ 19:54
Может кто-нибудь может помочь? smile

Автор: nero_schwarz 28.11.2004, 20:22

Valdemar, ты имеешь ввиду, чтобы, используя только одну фу-ию, вычислять сумму m1 до mN? T.e. иметь возможность вычислить сумму не только до кубов, но любой степени?
Если нет, то скажи какая ф-ия тебе нужна.

Автор: Valdemar 28.11.2004, 20:26

В задании дано, что нужно используя одну функцию,
для заданных N X1, X2, ...Xn вычислить m1=∑Xi/i ; m2=∑(Xi-m1)²/i ; m3=∑(Xi-m2)³/i
Вероятно, имеется в виду, что нужно вычислять для любой степени

Автор: nero_schwarz 28.11.2004, 20:38

Valdemar, по- моему ты задание не понял. или я тебя :-) . как можно для трех различных уравнений m1, m2, m3, зависящих друг от друга, найти общую функцию для вычисления?

Автор: Valdemar 28.11.2004, 20:50

Ну а как тогда, напиши, если не влом (С ФУНКЦИЕЙ ИЛИ С ФУНКЦИЯМИ)

Автор: nero_schwarz 28.11.2004, 21:06

Valdemar, я понимаю задание так:
для каждого вычисления использовать подходящую ф-ию из трех:
m1=∑Xi/i ; m2=∑(Xi-m1)²/i ; m3=(Xi-m2)³/i .
и по-моему Zero справился с этой задачей. Разве что в случае m3 он забыл поделить на i. Думаю это просто опечатка.

Автор: Pakshin A. S. 28.11.2004, 21:21

Итак, нужно все три функции оформить как function'ы...
Добавлено @ 21:25

Код


program pr;
const Nmax=100;

var
  n:integer;
  x:array[1..Nmax] of real;

function No1:real;
var
 res:real;
 i:integer;
begin
 res:=0; 
 for i:=1 to n do
   res:=res+(x[i]/i);
 No1:=res;
end;

function No2:real;
var
 res:real;
 i:integer;
begin
 res:=0; 
 for i:=1 to n do
   res:=res+(sqr(x[i]-res)/i);
 No2:=res;
end;

function No3(n2:real):real;
var
 res:real;
 i:integer;
begin
 res:=0; 
 for i:=1 to n do
   res:=res+((sqr(x[i]-n2))*(x[i]-n2));
 No3:=res;
end;

var
 m1,m2,m3:real;
Begin
 write('Введите N=');
 readln(N);
 for i:=1 to n do
   begin
     write('x[',i,']=');
     readln(x[i]);
   end;
 m1:=No1;
 m2:=No2;
 M3:=No3(m2);
 writeln('m1=',m1:2:6);
 writeln('m2=',m2:2:6);
 writeln('m3=',m3:2:6);
End.

Или ещё больше функций надо?

Автор: Zero 28.11.2004, 21:58

Цитата(nero_schwarz @ 28.11.2004, 21:06)

Разве что в случае m3 он забыл поделить на i. Думаю это просто опечатка.

nero_schwarz, ты угадал, и Pakshin A. S., переписывая те расчёты тоже забыл поправить, но я думаю ты это исправишь... smile

Автор: Valdemar 28.11.2004, 22:18

Спасибо

Автор: Гость_Гость 29.11.2004, 18:19

То же самое ответили ему на Исходниках. smile

Автор: Valdemar 30.11.2004, 22:53

Для заданных N, X1, X2 ...Xn найти, используя функцию

(Сумма от 1 до N)
m1=∑Xi/i ; m2=∑(Xi-m1)²/i ; m3=∑ (Xi-m2)³/i

Вот список формальных параметров функции

Код


const
nmax=100;
type
vec:array[1..nmax] of real;
function summ(n:integer; x:vec; s:real; st:integer):real;
{st-Степень s-предыдущий m}

Автор: Pakshin A. S. 30.11.2004, 23:01

М	Сидеть надо в одной теме!!!

Автор: Zero 2.12.2004, 00:37

Цитата(Valdemar @ 30.11.2004, 22:53)

Вот список формальных параметров функции

Интересно, это вопрос???

Автор: Valdemar 2.12.2004, 12:25

Это утверждение, у преподователя спросил, сказала, что надо так начинать

Автор: Zero 3.12.2004, 23:30

Ладно, я думаю на этот раз то правильно будет:

Код


program pr;
const Nmax=100;
Type
    vec=array[1..nmax] of real;
var
   i,n:integer;
   x:vec;
   m1,m2,m3:real;

Function Summ(n:integer; x:vec; s:real; st:integer):real;
var
  buf:real;
  m:real;
Begin
  m:=0;
  for i:=1 to n do
    begin
      buf:=0;
      if (x[i]-s)<>0 then buf:=(Exp(st*Ln(abs(x[i]-s)))/i);
      if ((x[i]-s)>0) or ((st mod 2)=0) then m:=m+buf
      else m:=m-buf;
    end;
  Summ:=m;
End;

Begin
  write('Введите N=');
  readln(N);
  for i:=1 to n do
    begin
      write('x[',i,']=');
      readln(x[i]);
    end;
  m1:=Summ(N,X,0,1);
  m2:=Summ(N,X,m1,2);
  m3:=Summ(N,X,m2,3);

  writeln('m1=',m1:2:6);
  writeln('m2=',m2:2:6);
  writeln('m3=',m3:2:6);
End.

Автор: Valdemar 4.12.2004, 14:14

Спасибо большое, ты гений smile