Pascal RGR - Страница 2

Vladimir_S · 08.12.2011, 17:18

Цитата:

Сообщение от Rume

Так, для более четкой формулировки мне требуется вам фотографии показать, но выложить их могу только на радикале(

Ну давайте хоть на Радикале.

Rume · 08.12.2011, 17:24

Ладно, попробуем без фотографий.
Задание слово-в-слово пишу

Условие задачи.
Разработать схему алгоритма, составить Pascal-программу и Delphi-проект вычисления таблицы значений функции Y=f(X,A,B) при заданных изменениях значений аргумента X и параметра A. Параметр В принимает значения, численно равное корню нелинейного уравнения или интеграллу.
Обозначения:
Xn (An), Xk (Ak) - начально и конечное значения аргумента (параметра А)
Dx (Da) - шаг изменения аргумента (параметра)
N - число значений аргумента (параметра), изменяемого от значения Xn, (An) с шагом Dx (Da);
M - число значений аргумента (параметра), не зависящих друг от друга.

Изменяемые входные данные:
a)Аргумент X:
Xn, Dx, N
б)Параметр А:
An, Ak, Da
Табулируемая функция f(x,a,b):

tg(ax/b), при х<1
(sqrt(a^2 * x^4 + b^2))/x^3, при х>=1

Нелинейное уравнение.
Условие задачи: вычислить первый положительный корень уравнения F(x)=0 с заданной погрешностью E (E=10^-3 -:- 10^-6) на интервале [c,d]

e^cos(0.3x - 0.2) - ln(x+2.2)
Интервал изоляции [c,d]: 0, 9;

Интеграл
Условие задачи: вычислить приблеженно с заданной погрешностью E (тоже самое) значение определенного интеграла (знак интеграла, а внизу b сверху) f(x)dx

(((x^2)+x+2)^2)*cos(2x)

Пределы интегрирования:
a = 2.51
b = -0.69

Вроде бы все описал. Надеюсь, все внятно описано.

Vladimir_S · 08.12.2011, 17:39

Цитата:

Сообщение от Rume

Вроде бы все описал. Надеюсь, все внятно описано.

Пожалуй. Только еще вопрос - насчет параметра b в задании сказано:

Цитата:

Параметр В принимает значения, численно равное корню нелинейного уравнения или интегралу

и приведено как уравнение, так и интеграл. Это что - на выбор студента?

Rume · 08.12.2011, 17:50

Прошу прощения, что так долго отвечаю, с компьютером проблемы последнее время.

Я вчитался в задание, и вышло так, что уравнение не нужно, нужен только интеграл. У меня в варианте так вычисляется b

Vladimir_S · 08.12.2011, 17:53

Цитата:

Сообщение от Rume

Я вчитался в задание, и вышло так, что уравнение не нужно, нужен только интеграл.

Ладно, попробуем.
Но сразу предупреждаю - я могу только аналитику и Паскаль. Дельфи-проектов не пишу.

Rume · 08.12.2011, 17:57

Все равно огромное спасибо за помощь и терпение

Vladimir_S · 08.12.2011, 19:14

Ну, поехали:

Нажмите на изображение для увеличения
Название: Rume_4.jpg
Просмотров: 203
Размер: 57.8 Кб
ID: 58341

(Функции-первообразные выужены из справочника).
Теперь составляем программу для определения значения интеграла, оно же значение параметра В:

Код:

CONST
 a=2.51;
 b=-0.69;
VAR
 y:real;

Function I0(x:real):Real;
begin
 I0:=0.5*Sin(x*2);
end;

Function I1(x:real):Real;
begin
 I1:=Cos(x*2)/4+x*Sin(x*2)/2;
end;

Function I2(x:real):Real;
begin
 I2:=x/2*Cos(x*2)+(sqr(x)/2-0.25)*Sin(x*2);
end;

Function I3(x:real):Real;
begin
 I3:=(sqr(x)*0.75-0.375)*Cos(x*2)+(x*sqr(x)/2-0.75*x)*Sin(x*2);
end;

Function I4(x:real):Real;
begin
 I4:=sqr(sqr(x))*Sin(x*2)/2-2.0*((sqr(x)*0.75-0.375)*Sin(x*2)-(x*sqr(x)/2-x*0/75)*Cos(x*2));
end;

BEGIN
 y:=(I4(b)+I3(b)*2+I2(b)*5+I1(b)*4+I0(b)*4)-(I4(a)+I3(a)*2+I2(a)*5+I1(a)*4+I0(a)*4);
 Writeln('B= ',y:8:5);
 Readln;
END.

Запускаем и получаем: В = 31.39329.

Продолжение следует.

Rume · 08.12.2011, 19:21

такс, с паскалем проблема вышла, сейчас перекачаю - проверим (ну на всякий пожарный

)

Rume · 08.12.2011, 19:23

Толи вирус какой, толи еще что, вчера нормально все открывал, а сейчас нажимаю на опен - выдает ошибку ntvdm.exe - обнаружена ошибка((

Rume · 08.12.2011, 19:29

все, проверил - все нормально)) благодарю)

08.12.2011, 19:14	#17 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ну, поехали: (Функции-первообразные выужены из справочника). Теперь составляем программу для определения значения интеграла, оно же значение параметра В: Код: CONST a=2.51; b=-0.69; VAR y:real; Function I0(x:real):Real; begin I0:=0.5Sin(x2); end; Function I1(x:real):Real; begin I1:=Cos(x2)/4+xSin(x2)/2; end; Function I2(x:real):Real; begin I2:=x/2Cos(x2)+(sqr(x)/2-0.25)Sin(x2); end; Function I3(x:real):Real; begin I3:=(sqr(x)0.75-0.375)Cos(x2)+(xsqr(x)/2-0.75x)Sin(x2); end; Function I4(x:real):Real; begin I4:=sqr(sqr(x))Sin(x2)/2-2.0((sqr(x)0.75-0.375)Sin(x2)-(xsqr(x)/2-x0/75)Cos(x2)); end; BEGIN y:=(I4(b)+I3(b)2+I2(b)5+I1(b)4+I0(b)4)-(I4(a)+I3(a)2+I2(a)5+I1(a)4+I0(a)4); Writeln('B= ',y:8:5); Readln; END. Запускаем и получаем: В = 31.39329. Продолжение следует.

08.12.2011, 17:18
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Рекомендую вам обратить внимание на эти ссылки - тут можно поискать нужную информацию вопрос по Pascal Pascal, две задачи Pascal Pascal Pascal На Pascal

08.12.2011, 17:24	#12 (permalink)
Rume Member Регистрация: 07.12.2011 Сообщений: 39 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ладно, попробуем без фотографий. Задание слово-в-слово пишу Условие задачи. Разработать схему алгоритма, составить Pascal-программу и Delphi-проект вычисления таблицы значений функции Y=f(X,A,B) при заданных изменениях значений аргумента X и параметра A. Параметр В принимает значения, численно равное корню нелинейного уравнения или интеграллу. Обозначения: Xn (An), Xk (Ak) - начально и конечное значения аргумента (параметра А) Dx (Da) - шаг изменения аргумента (параметра) N - число значений аргумента (параметра), изменяемого от значения Xn, (An) с шагом Dx (Da); M - число значений аргумента (параметра), не зависящих друг от друга. Изменяемые входные данные: a)Аргумент X: Xn, Dx, N б)Параметр А: An, Ak, Da Табулируемая функция f(x,a,b): tg(ax/b), при х<1 (sqrt(a^2 * x^4 + b^2))/x^3, при х>=1 Нелинейное уравнение. Условие задачи: вычислить первый положительный корень уравнения F(x)=0 с заданной погрешностью E (E=10^-3 -:- 10^-6) на интервале [c,d] e^cos(0.3x - 0.2) - ln(x+2.2) Интервал изоляции [c,d]: 0, 9; Интеграл Условие задачи: вычислить приблеженно с заданной погрешностью E (тоже самое) значение определенного интеграла (знак интеграла, а внизу b сверху) f(x)dx (((x^2)+x+2)^2)*cos(2x) Пределы интегрирования: a = 2.51 b = -0.69 Вроде бы все описал. Надеюсь, все внятно описано.

08.12.2011, 17:50	#14 (permalink)
Rume Member Регистрация: 07.12.2011 Сообщений: 39 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Прошу прощения, что так долго отвечаю, с компьютером проблемы последнее время. Я вчитался в задание, и вышло так, что уравнение не нужно, нужен только интеграл. У меня в варианте так вычисляется b

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

08.12.2011, 17:57	#16 (permalink)
Rume Member Регистрация: 07.12.2011 Сообщений: 39 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Все равно огромное спасибо за помощь и терпение

08.12.2011, 19:21	#18 (permalink)
Rume Member Регистрация: 07.12.2011 Сообщений: 39 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	такс, с паскалем проблема вышла, сейчас перекачаю - проверим (ну на всякий пожарный )

08.12.2011, 19:23	#19 (permalink)
Rume Member Регистрация: 07.12.2011 Сообщений: 39 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Толи вирус какой, толи еще что, вчера нормально все открывал, а сейчас нажимаю на опен - выдает ошибку ntvdm.exe - обнаружена ошибка((

08.12.2011, 19:29	#20 (permalink)
Rume Member Регистрация: 07.12.2011 Сообщений: 39 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	все, проверил - все нормально)) благодарю)