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

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Задача на паскале, Паскаль
сообщение
Сообщение #1


Гость






Помогите пожалуйста завтро сдавать а мучаюсь с этой задачей уже 2 дня(((

Функция Y от X задана 2-мя способами формулой ее размножением бесконечного ряда S. Разработать программу вычисления точного Y приближенного к T. Значение функций Y от X при изменение ее аргумента X от А до В шагом дельта Х. Приблеженное значение вычеслить путем суммирования членов ряда, до достижения требуемой точности. Предоставить завершение процесса суммирования членов ряда по заданному max номеру членов ряда n для предотвращения зацикливания итерационного числа, результат расчета вывести ввиде таблицы:
1) Аргумент
2)Точное значение
3)Преближенное значение
4)Количество слогаемых
5)Ошибка

Вот условие: S=-cos(x)+...+((-1)в степени n) * cos(n*x)/(n в квадрате) +...
y=-1/4*( (x в квадрате) - (Pi в квадрате)/3)
xe[0,5;1]; дельта х=0,01; e которая в константе = 0,05.

Вот что у меня получилось но что-то не правельно(((


Program pr4;
uses crt;
const e=0.05;
var S,x,y,p,c:real;n:integer;
function k(n:integer;s,x:real):real;
var k:real;
begin
if (n div 2)=0 then
p:=cos(n*x)/exp(2*ln(n)) else
p:=-(cos(n*x)/exp(2*ln(n)));
s:=s+p;
end;
begin
clrscr;
x:=0.5;
c:=0.1;
while x<=1.1 do begin
y:=-0.25*((sqr(x)-(sqr(Pi)/3)));
S:=-cos(x);
Repeat
n:=n+1;
k(n,s,x);
until ((abs(y-S))<=e) or (n>=1);
write (' n=', n);
write (' k=', k(n,x,s)3.gif3);
write (' x=' , x:6:3);
write (' y=' ,y:6:3);
write (' S=', S:6:3);
write (' y-S=' ,(abs(y-S)):6:3);
x:=x+0.1;
writeln;
end;
readln;
end.


Сообщение отредактировано: AlieN131086 -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Alone in the dark
*

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

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


Цитата(AlieN131086 @ 28.06.2007 18:07) *

Вот что у меня получилось

Код в сообщении надо выделять тегами
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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