Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.04.2011, 18:06   #1
arshavin
Пользователь
 
Регистрация: 04.04.2011
Сообщений: 17
По умолчанию программа вычисления функции

Разработать схему алгоритма и составить программу вычисления функции при задан-ных значениях аргументов. Результаты вывести на экран дисплея.



помогите плз
PS
учусь в строительном ВУЗе, не понимаю откуда берутся такие задания для нас
тело программы могу написать сам
не знаю как задать эту формулу


а от 1,1 до 1,6 с шагом 0,1
а переменные a1..aN,t,j,i ?? или ещё какие-то??
Изображения
Тип файла: jpg 12312.JPG (4.1 Кб, 42 просмотров)

Последний раз редактировалось arshavin; 16.04.2011 в 18:41.
arshavin вне форума Ответить с цитированием
Старый 16.04.2011, 18:17   #2
MyLastHit
Очень суровый
Участник клуба
 
Аватар для MyLastHit
 
Регистрация: 17.12.2009
Сообщений: 1,988
По умолчанию

Что-то непонятно, a1 = 1.1; a2 = 0.1; a3 = 1.6? Или как? И для каждых случаев посчитать сумму ряда?
Если да, то по простому без создания функции:
Код:
a1: = 1.1; 
a2: = 0.1; 
a3: = 1.6;
for i:=1 to 10 do
  for j:=1 to i do
  begin
    summ1:=summ1+i/(j+power(a1,i));
    summ2:=summ2+i/(j+power(a2,i));
    summ3:=summ3+i/(j+power(a3,i));
  end;
И uses math;
Ненавижу быть как все, но люблю, чтобы все были как я.
MyLastHit вне форума Ответить с цитированием
Старый 16.04.2011, 18:47   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
a1 = 1.1; a2 = 0.1; a3 = 1.6
да нет
Код:
an=1.1;ak:=1.6; шаг:=0.1;
Код:
an:=1.1;
while an<=ak do begin
summ:=0;
for i:=1 to 10 do
  for j:=1 to i do
  begin
    summ:=summ+i/(j+power(an,i));
    end;
writeln(summ);
an:=an+0.1;
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 16.04.2011 в 18:50.
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа вычисления нулей функции с комплексными числами! denismax Фриланс 3 04.04.2011 11:33
Вычисления в функции Ислам Помощь студентам 2 28.02.2011 02:43
программа вычисления наибольшего из значений функции Dina123 Помощь студентам 6 10.10.2010 17:31
Алгоритм вычисления значения функции vzr Свободное общение 9 30.03.2010 20:14