компьютерный форум
Вернуться   Компьютерный форум > Программирование и вебстроительство > Программирование

Ответ
 
LinkBack Опции темы Опции просмотра
Старый 13.05.2007, 14:02   #1
Пользователи
 
Регистрация: 13.05.2007
Сообщений: 9
Thumbs down

Согласно заданию необходимо вычислить заданную сложную функцию Y[j]=sin(x[j])-a*sqrt(модуль(x[j]))+b; if x[j]>=b и Y[j]=e(-a)+(сумма всех(c[i]) от i=1 до n) + 2; if x[j]




Kingl вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
13.05.2007, 14:02
Техник
реклама
Thumbs down

Старый 14.05.2007, 20:33   #2
Пользователи
 
Регистрация: 07.12.2004
Сообщений: 783
По умолчанию

Будь так добр, позаботься о читабельности условия)))

Писец, ничего непонятно))) (с) В. Галыгин
Andy вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
Старый 14.05.2007, 21:46   #3
Пользователи
 
Регистрация: 13.05.2007
Сообщений: 9
По умолчанию

Вот тут должно всё хорошо видно... Если можете помогите с прогой.... мне самое главное график!!! если будет время напишите прогу... Заранее спасибо...
Kingl вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
Старый 15.05.2007, 11:09   #4
Пользователи
 
Регистрация: 07.12.2004
Сообщений: 783
По умолчанию

Вот решение задачи...
Паскаля под рукой не было, так что писал в блокноте, потому - не обессудьте. ежели что)))
График рисовать лениво... Приложи хоть какие-то усилия со своей стороны))))
Удачи!

Код:
program Kingl;

const
****m****= 19;
****n ****= 6;
****aBeg ****= -3.3;
****h ****= 1.1;
****b ****= -2.8;

function root(degree: real; x: real): real;
begin
****root := exp(ln(x)/degree);
end;

{*********************************************}
function A(j: integer): real;
var
****res: real;
begin
****res := aBeg + j*h;
****A := res;
end;

function X(j: integer): real;
var
****res: real;
begin
****res := root(3, A(j)*b) / (3*j);
****X := res;
end;

function C(j: integer): real;
var
****res: real;
begin
****res := (2*j + 1) / aBeg;
****C := res;
end;

function Sum(a, b: integer): real;
var
****i: integer;
****res: real;
begin
****Sum := Sum(a, b) + Sum(a-1, b);
end;
{*********************************************}

{*********************************************}
{***************Main function*******************}
{********Gets y for reach iteration*************}
{*********************************************}
function GetYi(i: integer): real;
var
****res: real;
begin
****if (x(i) >= b) then 
********res := sin(x(i)) - sqrt(abs(x(i))) + b
****else
********res := exp(-1*a(i)) + Sum(1, n) + 2;

****GetYi := res;
end;
{*********************************************}

var
****index: integer;
begin
****for index := 1 to m do
********Writeln(GetYi(index));

**readln;
end.
Andy вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
Старый 15.05.2007, 21:26   #5
Пользователи
 
Регистрация: 13.05.2007
Сообщений: 9
По умолчанию

спасибо за прогу, но для меня основное это график, вдоль Y должны быть Y[j], а по x должны быть j...
надо найти максимумы функции, и установить маштаб для того что бы график был чётко виден....
Kingl вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
Старый 01.07.2007, 10:04   #6
Пользователи
 
Регистрация: 03.01.2006
Сообщений: 75
По умолчанию

Я могу рассказать алгоритм черчения граффика
1) Для начала смотришь диапазон по х, у
2) В цикле х=левый край до правого с определенным шагом (например 0.01) поставляешь х в свое уравнение, и тем самым находишь у. Теперь у тебя есть точка (х, у) - она и будет лежать на твоем граффике. Ее надо прорисовать, можно начертить линию от предидущей до этой точки. В итоге у тебя получиться граффик. Чем меньше шаг тем более точный будет граффик
seva_avi вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
Ответ


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.



Текущее время: 04:50. Часовой пояс GMT.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. Перевод: zCarot
Content Relevant URLs by vBSEO 3.5.0 RC2