VPF::Функция - Форум программистов

Valdemar

Дата 2.12.2004, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 28.11.2004

Репутация: нет
Всего: нет

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

Zero

Дата 3.12.2004, 23:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

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

Код


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.

Это сообщение отредактировал(а) Zero - 3.12.2004, 23:33

Valdemar

Дата 4.12.2004, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 28.11.2004

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »