07.12.2011, 20:32 | #1 (permalink) |
Member
Регистрация: 07.12.2011
Сообщений: 39
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
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 Вроде бы все написал Просто это единственный предмет, из-за которого могу вылететь (причем ни я один), и сдать это нужно завтра(Понимаю, затянул). Поэтому буду просто нескончаемо благодарен за любую помощь. |
07.12.2011, 20:32 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Рекомендую вам обратить внимание на эти ссылки - тут можно поискать нужную информацию вопрос по Pascal Pascal, две задачи Pascal Pascal Pascal На Pascal |
07.12.2011, 20:56 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Сразу скажу - я практически бессилен Вам помочь. Во-первых, я, извините, без понятия, что такое RGR (впервые вижу эту аббревиатуру), что до табулирования функции - должны быть заданы значения параметров a и b, а я их не вижу, во-вторых, методом простой итерации (на самом деле вовсе не простым) я, к сожалению, не владею. Вот если бы просто решить уравнение - пожалуйста, а так... И самое главное, Вы действительно дотянули до последнего, иначе можно было бы попытаться преодолеть указанные трудности. Но увы - сейчас я ухожу из OnLine, буду только завтра утром, и то ненадолго.
Может быть, кто другой возьмется, а я - пас. Сочувствую. |
07.12.2011, 21:08 | #3 (permalink) |
Member
Регистрация: 07.12.2011
Сообщений: 39
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
RGR - Расчетно графическая работа
Уравнения решить можно несколькими способами, в задании я просто написал один из них (Если память не подводит есть еще метод Ньютона и еще что-то). Что касаемо значений а и б - попробую получше само задание посмотреть. Если все-таки найдется до понедельника свободная минутка - очень прошу, выручите. Пока сам попробую что-либо приблизительно написать, хотя наврят ли выйдет. |
07.12.2011, 21:27 | #4 (permalink) |
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 |
07.12.2011, 23:15 | #5 (permalink) |
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й раз программу пишу) |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
08.12.2011, 09:37 | #6 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вы извините за прямоту, но пока что как формулировка задания, так и программа - это некий сумбурный, мутный и невразумительный набор слов и значков. В программе вообще ошибка на ошибке, всё несогласовано, так что пока программу оставим. Задание бы понять.
Итак, требуется протабулировать функцию Так? Чудесно. Но возникает вопрос о значениях параметров a и b и об интервалах по a, b и x для табуляции. И тут я уже перестаю что-либо понимать. Например: Цитата:
В общем, так. Предлагаю для начала ясно, четко, подробно и однозначно сформулировать задачу. Начнем с задачи о табуляции функции. Чтобы было всё ясно - как считаются и откуда берутся пределы изменений всех параметров. Тогда займемся решением и программой. Если нужно не "вчера", а за выходные, то шанс довести всё это до ума есть. |
|
08.12.2011, 14:28 | #7 (permalink) |
Member
Регистрация: 07.12.2011
Сообщений: 39
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Я смог договориться до понедельника
Через интегральное уравнение мы находим параметр "b", пределы интегрирования от 0 до 9. Так, далее. Теперь что на счет параметра "а". АН,АК,ДА,ХН,ХК,ДХ любые ( можно целые и дробные например 0.2) |
08.12.2011, 16:34 | #9 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
Итак, еще раз. Из приведенных выше цитат вроде бы следует, что требуется сосчитать интеграл Если так - еще раз повторяю вопрос: раз в интеграле нет никаких параметров, значит он - просто число. Допустим, мы это число определили - что дальше? Как из него извлечь значение параметра b? Или может быть "интегральное уравнение" имеет вид где ? Но тогда нужно точно знать а и, главное, наперед заданное значение интеграла - только в этом случае можно определить b. Это так? В общем, резюмирую. Я искренне хотел Вам помочь, но тащить из Вас клещами каждое слово, да и то получать какие-то отписки, я не могу. Извините. P.S. Всё же попробуйте еще раз сформулировать задачу о табуляции, только именно сформулировать с чистого листа, а не пытаться кидать невразумительные краткие уточнения. |
||
08.12.2011, 17:02 | #10 (permalink) |
Member
Регистрация: 07.12.2011
Сообщений: 39
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Так, для более четкой формулировки мне требуется вам фотографии показать, но выложить их могу только на радикале(
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|