|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.05.2014, 13:27 | #1 |
Новичок
Джуниор
Регистрация: 25.05.2014
Сообщений: 3
|
Помогите пожалуйста. Необходимо вычислить в Pascal
При решении использовал функцию power, но преподаватель просит использовать exp. Помогите пожалуйста)
--------------------------------------------------------------------- Дано натуральное число n. Вычислить: |
25.05.2014, 13:32 | #2 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Код:
|
25.05.2014, 13:33 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А ты открой исходник функции power и посмотри как она устроена.
I'm learning to live...
|
25.05.2014, 14:05 | #4 |
Новичок
Джуниор
Регистрация: 25.05.2014
Сообщений: 3
|
Как вам?
program bab; var n,i:integer; s:real; begin Writeln ('Введите число n'); Readln(n); s:= 0; for i:=1 to n do if i mod 2 = 0 then s := s -1 / i * (i + 1) else s := s +1 / i * (i + 1); Writeln('s=',s); end. |
25.05.2014, 14:29 | #5 | |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
Цитата:
Здесь просто чередуется знак. Просто в цикле каждое слагаемое умножайте на (-1) и всё. |
|
25.05.2014, 16:03 | #6 |
Новичок
Джуниор
Регистрация: 25.05.2014
Сообщений: 3
|
|
25.05.2014, 17:05 | #7 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
Для новичка сойдёт, но записать можно было короче. Можно не проверять на чётность, а каждый раз умножать слагаемое на (-1) и добавлять его к S.
потом Код:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста, как создать программу вычислить простые числа в диаппазоне от 1 до 80000.На С++ | Victorials2648 | Visual C++ | 0 | 18.02.2014 18:15 |
Delphi вычислить сумму ряда,помогите пожалуйста... | ANRJumper | Помощь студентам | 9 | 27.05.2009 13:09 |
Помогите пожалуйста с задачей (Pascal) | Pavel!! | Помощь студентам | 3 | 25.01.2009 23:39 |