Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Присылайте нам Донат :), напишите за что прислали )


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

даны 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, 23:49   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,815
Репутация: 6832
По умолчанию

Я мож чет недопонял но кажись так:
Код:

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.

Цитата:
на всякий случай запишу ещё и в словесном виде
А вдруг я непонимайт па русски? Дейче Битте Дритте ))))
Stilet вне форума  
Старый 27.11.2009, 15:15   #3
Digi
Новичок
Джуниор
 
Аватар для Digi
 
Регистрация: 27.11.2009
Сообщений: 10
Репутация: 7

icq: 447301185
Восклицание ПОЖАЛУЙСТА ПОМОГИТЕ !!!!!ОЧЕНЬ НАДО!!!!БУДУ ПРИЗНАТЕЛЕН!!!!

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, 15:28   #4
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Профессионал
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,284
Репутация: 624
По умолчанию

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, 15:35   #5
Digi
Новичок
Джуниор
 
Аватар для Digi
 
Регистрация: 27.11.2009
Сообщений: 10
Репутация: 7

icq: 447301185
По умолчанию

Цитата:
Сообщение от ОДИНОЧЕСТВО В СЕТИ Посмотреть сообщение
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, 15:55   #6
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,815
Репутация: 6832
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вопросам знатокам и просто любителям, нужно составить не сложный 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 02:42


14:01.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru