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

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

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

> задача на табулирование значений функции.
Andrewshkovskii
сообщение 12.11.2006 0:27
Сообщение #1


Бывалый
***

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

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


ВОт задача
Составить структурированную программу табулировании значения функции S(x)=3x+8x^2+..n(n+2)x^n
y(x)=x(3-x)/(1-x)^3
на отрезке 0,1<=x<=0.8
сумму S(x) вычислить из к членов ряда,к=40.
шаг х dX=(abs(Xkонечный-Xначальный))/9
Алгоритм для каждого значения х,от Хначальный до Хконечный ,с амое dX,посчитать значения S(x) и y(x) и выдать на экран таблицу с помощью ASCII кодов.


Вот первая программа

Program z3v28;
uses crt;
const
xn=0.1;
xk=0.8;
k=40;
var
a, x,s,y,dx:real;
n:integer;
begin
clrscr;
writeln(' ЙННННННННННЛННННННННННЛНННННННННН»');
writeln(' є x є y є s є');
dx:=abs(Xk-Xn)/9;
x:=xn;
while (x<Xk) do begin
S:=0;
a:=1;
n:=1;
while n<=40 do begin
a:=a*x;
S:=S+n*(n+2)*a;
n:=n+1;
end;
y:=x*(3-x)/((1-x)*(1-x)*(1-x));
writeln (' МННННННННННОННННННННННОНННННННННН№');
writeln (' є',x:6:3,' є',y:6:3,' є',s:6:3,' є');
x:=x+dx;
end;
writeln (' ИННННННННННРННННННННННРННННННННННј');
readkey;
end.



Должно получиться равные значения в полях y и s.
В этой программе не получаеться только в самой посл. строке.
И ешё я не писал здесь первую часть функции (* s(x) 3*x+8*sqr(x); *).
не знаю больше как решать..есле подставлять в прогу первую часть s(x) то он в таблице возрастает,и у его никак не догонит=/

Сообщение отредактировано: Andrewshkovskii - 16.11.2006 9:34
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 



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