Модераторы: volvo877, Snowy, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Функция, Написать программу, используя функцию 
:(
    Опции темы
Valdemar
  Дата 28.11.2004, 18:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

(Сумма от 1 до N)
m1=∑Xi/i ; m2=∑(Xi-m1)²/i ; m3=(Xi-m2)³/i smile
PM MAIL   Вверх
Zero
Дата 28.11.2004, 19:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 24
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.
PM MAIL ICQ   Вверх
Valdemar
Дата 28.11.2004, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо конечно, но нужно использовать функцию
Добавлено @ 19:54
Может кто-нибудь может помочь? smile
PM MAIL   Вверх
nero_schwarz
Дата 28.11.2004, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Valdemar, ты имеешь ввиду, чтобы, используя только одну фу-ию, вычислять сумму m1 до mN? T.e. иметь возможность вычислить сумму не только до кубов, но любой степени?
Если нет, то скажи какая ф-ия тебе нужна.
PM MAIL   Вверх
Valdemar
  Дата 28.11.2004, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

Это сообщение отредактировал(а) Valdemar - 28.11.2004, 20:28
PM MAIL   Вверх
nero_schwarz
Дата 28.11.2004, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Valdemar, по- моему ты задание не понял. или я тебя :-) . как можно для трех различных уравнений m1, m2, m3, зависящих друг от друга, найти общую функцию для вычисления?
PM MAIL   Вверх
Valdemar
Дата 28.11.2004, 20:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

Это сообщение отредактировал(а) Valdemar - 28.11.2004, 20:50
PM MAIL   Вверх
nero_schwarz
Дата 28.11.2004, 21:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Valdemar, я понимаю задание так:
для каждого вычисления использовать подходящую ф-ию из трех:
m1=∑Xi/i ; m2=∑(Xi-m1)²/i ; m3=(Xi-m2)³/i .
и по-моему Zero справился с этой задачей. Разве что в случае m3 он забыл поделить на i. Думаю это просто опечатка.
PM MAIL   Вверх
Pakshin A. S.
Дата 28.11.2004, 21:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 61
Итак, нужно все три функции оформить как 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.


Или ещё больше функций надо?
PM   Вверх
Zero
Дата 28.11.2004, 21:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 24
Цитата(nero_schwarz @ 28.11.2004, 21:06)
Разве что в случае m3 он забыл поделить на i. Думаю это просто опечатка.
nero_schwarz, ты угадал, и Pakshin A. S., переписывая те расчёты тоже забыл поправить, но я думаю ты это исправишь... smile
PM MAIL ICQ   Вверх
Valdemar
Дата 28.11.2004, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо
PM MAIL   Вверх
Гость_Гость
Дата 29.11.2004, 18:19 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
То же самое ответили ему на Исходниках. smile
  Вверх
Valdemar
  Дата 30.11.2004, 22:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Для заданных 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}
PM MAIL   Вверх
Pakshin A. S.
Дата 30.11.2004, 23:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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

 ! 
 
М
 
Сидеть надо в одной теме!!!
PM   Вверх
Zero
Дата 2.12.2004, 00:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 24
Цитата(Valdemar @ 30.11.2004, 22:53)
Вот список формальных параметров функции

Интересно, это вопрос???
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0545 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.