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

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

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

> Вычисление функции
Felixxl
сообщение 4.09.2006 1:55
Сообщение #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 
 К началу страницы 
+ Ответить 

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


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

 

- Текстовая версия 20.07.2025 0:24
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"