Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 07.12.2011, 20:32   #1 (permalink)
Rume
Member
 
Регистрация: 07.12.2011
Сообщений: 39
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Question Pascal RGR

Добрый вечер.
В общем возникла неприятность, блок схемы для этой ргр я сделал, а вот с программой тупик, т.к. паскаль практически не знаю, а с нашим преподавателем так и не узнаю. Вы последняя надежда, так сказать
В общем от меня требуется написать Текст процедуры ввода массива, процедуры табулирования, подпрограммы-функции, процедуры нахождения корня трансцендентного уравнения методом простой итерации, текст процедуры ввода данных.
Текст процедуры ввода массива я написал, текст подпрограммы-функции тоже, с остальным завал.
Вот само задание:
Табулируемая функция f(x, a, b)

tg(ax/b), при x<1
(sqrt(a^2 * x^4 + b^2))/x^3, иначе

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

e^cos(0.3x-0.2) - ln(x+2.2)

Изменяемые входные данные:
аргумент Х:
Xn, Dx, N
Параметр А:
An, Ak, Da

Вроде бы все написал
Просто это единственный предмет, из-за которого могу вылететь (причем ни я один), и сдать это нужно завтра(Понимаю, затянул).
Поэтому буду просто нескончаемо благодарен за любую помощь.
Rume вне форума   Ответить с цитированием

Старый 07.12.2011, 20:32
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Рекомендую вам обратить внимание на эти ссылки - тут можно поискать нужную информацию

вопрос по Pascal
Pascal, две задачи
Pascal
Pascal
Pascal
На Pascal

Старый 07.12.2011, 20:56   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Сразу скажу - я практически бессилен Вам помочь. Во-первых, я, извините, без понятия, что такое RGR (впервые вижу эту аббревиатуру), что до табулирования функции - должны быть заданы значения параметров a и b, а я их не вижу, во-вторых, методом простой итерации (на самом деле вовсе не простым) я, к сожалению, не владею. Вот если бы просто решить уравнение - пожалуйста, а так... И самое главное, Вы действительно дотянули до последнего, иначе можно было бы попытаться преодолеть указанные трудности. Но увы - сейчас я ухожу из OnLine, буду только завтра утром, и то ненадолго.
Может быть, кто другой возьмется, а я - пас.
Сочувствую.
Vladimir_S вне форума   Ответить с цитированием
Старый 07.12.2011, 21:08   #3 (permalink)
Rume
Member
 
Регистрация: 07.12.2011
Сообщений: 39
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

RGR - Расчетно графическая работа
Уравнения решить можно несколькими способами, в задании я просто написал один из них (Если память не подводит есть еще метод Ньютона и еще что-то).
Что касаемо значений а и б - попробую получше само задание посмотреть.
Если все-таки найдется до понедельника свободная минутка - очень прошу, выручите. Пока сам попробую что-либо приблизительно написать, хотя наврят ли выйдет.
Rume вне форума   Ответить с цитированием
Старый 07.12.2011, 21:27   #4 (permalink)
Rume
Member
 
Регистрация: 07.12.2011
Сообщений: 39
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

An Ak - начальное и конечное значение параметра А
Da - шаг изменения
а параметр b нужно вычислить через интеграл в промежутке от a до b f(x)dx
(x^2+x+2)^2 * cos(2x), где пределы интегрирования
a = 2,51
b=-0,69
Rume вне форума   Ответить с цитированием
Старый 07.12.2011, 23:15   #5 (permalink)
Rume
Member
 
Регистрация: 07.12.2011
Сообщений: 39
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

В общем, кто сможет помочь, запнулся на вот таком моменте
Program RumeRgr7
type
Ma=Array[1..20] of real;
My=Array[1..20,1..20] of real;
Mx=Array[1..20] of real;
Er1=Array[1..20] of boolean;
var
Xn, Xk, Dx:real;
a:ma;
I,J,K,N:Integer;
er:er1;
b:real;
Procedure DataIn(N: Integer; var A: ma);
var
I:Integer;
begin
writeln('Vvedite kol-vo elementov massiva');
for I:= 1 to N do
readln(A[I]);
End;
Procedure Tab (B, Xn,Xk, Dx:real; er:er1; a:ma;My:real);
Var
I,J:integer;
X,Y:real;
begin
for J:=1
If J<=k then
a:=Ma[J];
I:=1;
X:=Xn;
Er[J,I]:=0;
Else
End;
repeat
If X<1 then
Y:=(sin(ax/b))/(cos(ax/b))
else if x>0 then
y:=(sqrt(a*a*x*x*x*x+b*b))/(x*x*x)
else Er[J,I]:=1;
Mx[I]:=X; My[J,I]:=Y;
I:=I+1;
X:=X+Dx;
until X>Xk;
end;
end;

Помогите ошибки найти, 1й раз программу пишу)
Rume вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 08.12.2011, 09:37   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Вы извините за прямоту, но пока что как формулировка задания, так и программа - это некий сумбурный, мутный и невразумительный набор слов и значков. В программе вообще ошибка на ошибке, всё несогласовано, так что пока программу оставим. Задание бы понять.
Итак, требуется протабулировать функцию
rume_1.jpg
Так? Чудесно. Но возникает вопрос о значениях параметров a и b и об интервалах по a, b и x для табуляции. И тут я уже перестаю что-либо понимать. Например:
Цитата:
Сообщение от Rume Посмотреть сообщение
An Ak - начальное и конечное значение параметра А Da - шаг изменения а параметр b нужно вычислить через интеграл в промежутке от a до b f(x)dx (x^2+x+2)^2 * cos(2x), где пределы интегрирования a = 2,51 b=-0,69
Чему равны An и Ak? Причем тут интеграл? Ну сосчитаю я интеграл в заданных Вами пределах, ну получу число, и что мне с ним делать прикажете - на зиму солить?
В общем, так.
Предлагаю для начала ясно, четко, подробно и однозначно сформулировать задачу. Начнем с задачи о табуляции функции. Чтобы было всё ясно - как считаются и откуда берутся пределы изменений всех параметров. Тогда займемся решением и программой. Если нужно не "вчера", а за выходные, то шанс довести всё это до ума есть.
Vladimir_S вне форума   Ответить с цитированием
Старый 08.12.2011, 14:28   #7 (permalink)
Rume
Member
 
Регистрация: 07.12.2011
Сообщений: 39
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Я смог договориться до понедельника
Через интегральное уравнение мы находим параметр "b", пределы интегрирования от 0 до 9. Так, далее.
Теперь что на счет параметра "а". АН,АК,ДА,ХН,ХК,ДХ любые ( можно целые и дробные например 0.2)
Rume вне форума   Ответить с цитированием
Старый 08.12.2011, 14:29   #8 (permalink)
Rume
Member
 
Регистрация: 07.12.2011
Сообщений: 39
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

точнее Пределы интегрирования от 2.51 до -0.69
Rume вне форума   Ответить с цитированием
Старый 08.12.2011, 16:34   #9 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Rume Посмотреть сообщение
а параметр b нужно вычислить через интеграл в промежутке от a до b f(x)dx (x^2+x+2)^2 * cos(2x), где пределы интегрирования a = 2,51 b=-0,69
Цитата:
Сообщение от Rume Посмотреть сообщение
Через интегральное уравнение мы находим параметр "b", пределы интегрирования от 0 до 9.
Цитата:
Сообщение от Rume Посмотреть сообщение
точнее Пределы интегрирования от 2.51 до -0.69
Ну ладно, не хотите толком сформулировать задание - как хотите. В конце концов это Вам нужно, не мне. Видимо, готовитесь к карьере чиновника ЖКХ и отрабатываете технику отписок.
Итак, еще раз. Из приведенных выше цитат вроде бы следует, что требуется сосчитать интеграл
rume_2.jpg
Если так - еще раз повторяю вопрос: раз в интеграле нет никаких параметров, значит он - просто число. Допустим, мы это число определили - что дальше? Как из него извлечь значение параметра b?
Или может быть "интегральное уравнение" имеет вид
rume_3.jpg
где
rume_1.jpg?
Но тогда нужно точно знать а и, главное, наперед заданное значение интеграла - только в этом случае можно определить b. Это так?

В общем, резюмирую. Я искренне хотел Вам помочь, но тащить из Вас клещами каждое слово, да и то получать какие-то отписки, я не могу.
Извините.

P.S. Всё же попробуйте еще раз сформулировать задачу о табуляции, только именно сформулировать с чистого листа, а не пытаться кидать невразумительные краткие уточнения.
Vladimir_S вне форума   Ответить с цитированием
Старый 08.12.2011, 17:02   #10 (permalink)
Rume
Member
 
Регистрация: 07.12.2011
Сообщений: 39
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Яндекс

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

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

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

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




Часовой пояс GMT +4, время: 21:29.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.