end; f:=s+(c7 * ln (T))+(c8 * (ln (t))/tau); writeln ('F0=', f:4:4); {computating q} for j:=1 to 7 do begin for i:=1 to 10 do begin if j=1 then tau_aj:=tau_c; if j>1 then tau_aj:=2.5; if j=1 then ro_aj:=0.634; if j>1 then ro_aj:=1;
q:=(tau-tau_c) * (exp((j-2)*ln(tau-tau_aj)));
writeln(q); end;end; writeln ('Press enter to escape'); readln; end.
мисс_граффити
18.10.2006 21:23
Если честно, не поняла, что надо сделать с массивом. Можешь конкретно написать?
...а если главное - не программа, а полученный результат, лучше воспользуйся маткадом.
makishev
19.10.2006 0:10
Цитата(мисс_граффити @ 18.10.2006 9:23)
Если честно, не поняла, что надо сделать с массивом. Можешь конкретно написать?
...а если главное - не программа, а полученный результат, лучше воспользуйся маткадом.
DA nado bilo srazu v MATHCADE rabotat. tolko zhalko trud svoy.
A mne formulu nuzhno zagnat v cikl. formula dlya Q. tam ona vsu matricu ispolzuet.
formula na prikreplennom file.
мисс_граффити
19.10.2006 0:41
Судя по формуле, речь идет о нескольких массивах (тау, ро, А). а по тексту программы я вижу только А. это как понимать?
makishev
19.10.2006 1:25
Цитата(мисс_граффити @ 18.10.2006 12:41)
Судя по формуле, речь идет о нескольких массивах (тау, ро, А). а по тексту программы я вижу только А. это как понимать?
Prosti pozhaluysta. tau_c and tau_aj constanty. mne tolko nado pravilno A raspredelit po formule i cicle shto bi rabotal.
by the way, Thank you.
мисс_граффити
19.10.2006 2:31
тогда типа так:
Код
q:=0; for j:=1 to 7 do begin prom:=0; //промежуточная переменная для вычисления значения в скобке for i:=1 to 8 do prom:=prom+A[i,j]*(ro-ro_aj)^(i-1); //как реализовать возведение в степень - решай сам. так работать не будет. для простоты понимания записала for i:=9 to 10 do prom:=prom+e^(-E*ro)*A[i,j]*ro^(i-9); q:=q+(tau-tau_aj)^(j-2)*prom; end; q:=q*(tau-tau_c);
вроде как-то так. возможность проверить, к сожалению, нет но идея следующая: вычисляем каждое слагаемое по j, которое по сути равно произведению prom (значение во внутренней скобке) на (tau-tau_aj)^(j-2), и добавляем к q, а потом умножаем на самую первую скобку.
makishev
19.10.2006 3:00
poprobuem.
Thanks
makishev
19.10.2006 3:47
A kak vozvesti exp v otricatelnuu stepen? standartnim sposobom? 1/exp((E*ro)*ln(exp))?
мисс_граффити
19.10.2006 3:50
ln(exp)=1 )) достаточно 1/exp(E*ro)
makishev
20.10.2006 6:19
Plunul na vse i delau programmu v Maple. NU NE DANO mne znat PASCAL.
Lapp
20.10.2006 9:45
Цитата(makishev @ 20.10.2006 3:19)
NU NE DANO mne znat PASCAL.
makishev, не сдавайся!! Pascal forever!! Pascal rules at Iova!! Тебе сама Мисс Граффити помогала... Не уходи с позором! Ты это можешь!!
makishev
20.10.2006 21:04
Mne azh pryam neudobno Xorosho. kak podstrahovku budu delat pascal
makishev
5.04.2007 8:30
Da... Davno zdes ne byl. Pascal brosil. Matlab luchse vsex.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.