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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 07.11.2008, 21:33   #1
NATKA
 
Регистрация: 07.11.2008
Сообщений: 6
Печаль нужно составить прогу в паскале по примеру

даны y,e.вычислсть с точностью до e:
Z=1/y+1/3*exp(3*ln(1/y))+1/5*exp(5*ln(1/5))+1/7*exp(7*ln(1/y))+...+1/21*exp(21*ln(1/y)) вот такой пример..не оч понимаю я прграммирование..так што вот на всякий случай запишу ещё и в словесном виде Z=1/y+1/3умноженная на (1/y в степени 3)+1/5 умноженное (на 1/5 в степени 5)+1/7 умноженное (на 1/y в степени 7)+...+1/21 умноженное (на 1/y в степени 21)
NATKA вне форума
Старый 07.11.2008, 22:49   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Я мож чет недопонял но кажись так:
Код:
var y,f:Double;i:integer;
begin
 y:=1;
 f:=1/y;
 i:=3;while i<>21 do begin
  f:=f+1/i*exp(i*ln(1/y));
  i:=i+2;
 end;
writeln(f);readln;
end.
Цитата:
на всякий случай запишу ещё и в словесном виде
А вдруг я непонимайт па русски? Дейче Битте Дритте ))))
I'm learning to live...
Stilet вне форума
Старый 27.11.2009, 14:15   #3
Digi
Новичок
Джуниор
 
Аватар для Digi
 
Регистрация: 27.11.2009
Сообщений: 10
Восклицание ПОЖАЛУЙСТА ПОМОГИТЕ !!!!!ОЧЕНЬ НАДО!!!!БУДУ ПРИЗНАТЕЛЕН!!!!

1)ВЫчислить сумму S первых N членов ряда A=K/exp(3*ln(K)),не меньше заданного числа R,где
K=1,2,3...,N,
N-произвольное число!
Принять R=0,08

Ну или хотябы вот эту!
2)Найти S сумму членов ряда N/(N+1)(N+2),где N= 1,2,3,4,...,K,
K>0-произвольное число!!!!!
ПОЖАЛУЙСТА!!!!!ПОМОГИТЕЕЕЕ!!!БУДУ очень признателен!!!
Digi вне форума
Старый 27.11.2009, 14:28   #4
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

2 )
Код:
 for i:=1 to k do
s:=s+i/((i+1)*(i+2));
1)
Код:
k:=1;
a:=k/(exp(3*(ln(k))));
while a>=0.08 do begin
s:=s+a;
inc(k);
a:=k/(exp(3*(ln(k))));
end;
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума
Старый 27.11.2009, 14:35   #5
Digi
Новичок
Джуниор
 
Аватар для Digi
 
Регистрация: 27.11.2009
Сообщений: 10
По умолчанию

Цитата:
Сообщение от ОДИНОЧЕСТВО В СЕТИ Посмотреть сообщение
2 )
Код:
 for i:=1 to k do
s:=s+i/((i+1)*(i+2));
1)
Код:
k:=1;
a:=k/(exp(3*(ln(k))));
while a>=0.08 do begin
s:=s+a;
inc(k);
a:=k/(exp(3*(ln(k))));
end;
Я ДЯТЕЛ В ПАСКАЛЕ!+))Мне БЫ ПОЛНОСТЬЮ НАЧИНАЯ С Var,если можно
Digi вне форума
Старый 27.11.2009, 14:55   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Одна тема - один автор.
Закрываю.
I'm learning to live...
Stilet вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вопросам знатокам и просто любителям, нужно составить не сложный sql запрос modz SQL, базы данных 3 14.08.2013 11:20
нужно составить запрос с датой и временем! student90 БД в Delphi 5 26.09.2008 05:43
HELP! Нужно подкоректировать прогу на СИ. NEWLOGIN Помощь студентам 3 10.05.2008 18:11
Помогите!!! Нужно составить книжный архив radist Помощь студентам 4 22.12.2006 01:42