IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Вычисление функции
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: Felix

Репутация: -  0  +


Здравствуйте. Господа, прошу вашей помощи smile.gif)
Вообщем ситуация следующая:
С прошлого семестра (в котором мы начинали и видимо закончили изучать паскаль) за мной числится несданная курсовая. Курсовой конечно это назвать сложно, это скорее самостоятельная работа, но все же...
Загвоздка в том что бОльшее количество занятий я не посещал (о чем сейчас оч жалею), и сделать задание сам к сожалению не смог. Поэтому взял у друга его работу и сдал. На работе стояла хорошая отметка (результат каких-то исправлений прямо в печатной версии, в присутствии препода. изначальна работат тоже была не верна). Я переписал, вроде бы, исправленый код, но когда я сдал работу под своим именем препод нашел ошибку и настоятельно рекомендует мне ее исправить. Я к сожалению в паскале разбираюсь не очень, поэтому прошу Вашей помощи, благо програмулинка совсем маленькая
Код

program Summa;
var n,k: integer;
f,x,s: real;
begin
write('n=');read(n);
write('x=');read(x);
S:=1;
f:=S;
for k:=1 to n do
begin
S:=S*x;
S:=(f+S)/k*(k+1);
end;
write('S=',S:10:3);
end.


Вот собственно и вся программа.

S:=S*x;
S:=(f+S)/k*(k+1);
эти две строчки препод обвел фигурной скобкой, напротив которой написал "Ерунда!" smile.gif)

Пожалуйста, подскажите что тут можеть быть не верно.

Есть еще одна трудность. Точный текст задания утерян... Но для всех тип задания был един: записать какую-либо функцию на языке паскаль, и написать программу для подсчета этой функции. На сколько я понял из работы друга, функция была либо: "x^k/k!" (x в степени k поделить на k факториал),
либо:
*значек суммы перед дробной чертой*x^k/k*(k+1)

Извините за такие обозначение, но на бумаге это написать просто, а как здесь поставить значек суммы - ума не приложу smile.gif

Вообщем эти две функции были приписаны ручкой гдето справа от программы.

Ребята, если кому не лень помогите пожалуйста разобраться. Вылетать ой как не хочется sad.gif


Заранее благодарен.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


С просони еще и не так можно написать smile.gif Опаздывал в инст, быстро печатал ну и машинально сначала е нажал потом и smile.gif

Исправляю smile.gif

Блин ну ты обо мне совсем плохого мнения smile.gif


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Felixxl   Вычисление функции   4.09.2006 5:55
klem4   1. В следующий раз тему с таким название закрою. П…   4.09.2006 10:42
Altair   Клемыч, это ты так переименовал ? Я не сторонник …   4.09.2006 11:33
Felixxl   Списибо за внимание...   4.09.2006 12:31
lapp   Списибо за внимание... Мы понимаем твои чувства,…   4.09.2006 13:20
klem4   С просони еще и не так можно написать :) Опаздывал…   4.09.2006 19:55
Felixxl   оО! Нарыл задание! Подсчитать сумму: …   5.09.2006 0:33
volvo   Felixxl, ну тебе же klem4 давал ссылку о разложен…   5.09.2006 0:40
Felixxl   Если бы я еще что-то понял из того что там написан…   5.09.2006 2:32
volvo   Увеличение n на 1... Можешь заменить на n := n + 1…   5.09.2006 2:35
Felixxl   Огромное спасибо за помощь! Только у меня про…   5.09.2006 20:24
volvo   Сделай одно из двух: 1) либо поменяй Double на Re…   5.09.2006 20:27
Felixxl   Заменил на real и все заработало! Еще раз огро…   5.09.2006 20:35
volvo   Это - полная программа... Возведение в степень дел…   5.09.2006 20:40
Felixxl   Ну вроде бы примерно понял :)) Опять же спасибо…   5.09.2006 20:45
Felixxl   А разве это не равносильно 1/24? ))   6.09.2006 0:09
klem4   Равносильно, и что ? ps 4! = 24.   6.09.2006 0:11
Felixxl   Ничего. Просто пытаюсь понять, про 1/4 это опечатк…   6.09.2006 0:23
klem4   Там написно не 1/4, a 1/4! И восклицательный…   6.09.2006 0:26
Felixxl   Тьфу блин, я (!) воспринял не как значек факто…   6.09.2006 0:28


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 5:10
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name