IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Pomogite Reshit Zadachu Po Termodynamike, Helmholtz free energy
makishev
сообщение 18.10.2006 17:05
Сообщение #1





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


Извините за Енглиш.
До понеделника надо сделат прогу.
Вручнуу считат неохота.
Формула с массивом.
Ишодники в рисунке прикрепленном.

ТАМ ПОсередине формула для Q

Вот ОНА МНЕ И НУЖНА!!!!!!


РЈР–РђРЎ!!!!

2 цыцла надо сделат не знау как.


Питался кое што сделат
Я понимау што ето все виглядит ужасно, но я не програмист. Питсаус вспомнит то што учил 5 лет назад.

Загнал таблицу в массив. не знау как далше бит...Мне нужна помош с формулоы Q, где как раз вес массиве и исползуется.

ПОМОГИТЕ ЛУДИ ДОБРИЕ...


program Project_2;   uses crt;                      
const c1: real = 1875.065; c2: real= 3229.12;
c3:REAL =-419.465; c4 : real=36.6649; c5: real =-20.5516;
c6:real=4.85233; c7:real= 46; c8:real= -1011.249; r:real=8.314;

aij:array[1..10,1..7] of real =( (29.492937, -5.198586, 6.8335354, -0.1564104, -6.3972405, -3.9661401, -0.69048554),
                                (-132.13917, 7.7779182,-26.149751,-0.72546108,  26.409282, 15.4531, 2.7407416),
                                ( 274.64632,-33.301902, 65.326396, -9.2734289, -47.740374,-29.14247,-5.1028070),
                                (-360.93828,-16.254622,-26.181978,   4.312584,   56.32313,29.568796,3.9636085),
                               (  342.18431,-177.31074,         0,          0,          0,0,0),
                               ( -244.50042, 127.48742,         0,          0,          0,0,0),
                               (  155.18535, 137.46153,         0,          0,          0,0,0),
                               (      5.972, 155.97836,         0,          0,          0,0,0),
                               ( -410.30848, 337.31180,-137.46618,  6.7874983,  136.87317,79.847970,13.041253),
                               ( -416.05860,-209.88866,-733.96848,  10.401717,   645.8188,399.17570,71.531353));

var s,F, T, ro, Q, F0,ro_aj, c, tau, A, v, tau_aj, tau_c: REAL;
i,j: integer;
BEGIN  {clrscr        }
WRITE ('INPUT T= '); readln (t);
write ('INPUT V= '); readln (v);
tau:=1000/t;
ro:=1/v;
i:=0; s:=0;
      while i<7 do
      begin i:=i+1;
      if i=1 then c:=c1;
      if i=2 then c:=c2;
      if i=3 then c:=c3;
      if i=4 then c:=c4;
      if i=5 then c:=c5;
      if i=6 then c:=c6;
      F0:=(c)/(exp((i-1)*ln(tau)));

      s:=s+f0;

      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.


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 18.10.2006 17:23
Сообщение #2


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Если честно, не поняла, что надо сделать с массивом.
Можешь конкретно написать?

...а если главное - не программа, а полученный результат, лучше воспользуйся маткадом.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
makishev
сообщение 18.10.2006 20:10
Сообщение #3





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


Цитата(мисс_граффити @ 18.10.2006 9:23) *

Если честно, не поняла, что надо сделать с массивом.
Можешь конкретно написать?

...а если главное - не программа, а полученный результат, лучше воспользуйся маткадом.



ДА надо било сразу в МАТХЦАДЕ работат. толко жалко труд своы.

А мне формулу нужно загнат в цикл. формула для Q. там она всу матрицу исползует.



формула на прикрепленном филе.


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 18.10.2006 20:41
Сообщение #4


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Судя по формуле, речь идет о нескольких массивах (тау, ро, А).
а по тексту программы я вижу только А.
это как понимать?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
makishev
сообщение 18.10.2006 21:25
Сообщение #5





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


Цитата(мисс_граффити @ 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.



Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 18.10.2006 22:31
Сообщение #6


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


тогда типа так:
Код

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);


вроде как-то так.
возможность проверить, к сожалению, нет sad.gif
но идея следующая:
вычисляем каждое слагаемое по j, которое по сути равно произведению prom (значение во внутренней скобке) на (tau-tau_aj)^(j-2), и добавляем к q, а потом умножаем на самую первую скобку.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
makishev
сообщение 18.10.2006 23:00
Сообщение #7





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


poprobuem.


Thanks
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
makishev
сообщение 18.10.2006 23:47
Сообщение #8





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


A kak vozvesti exp v otricatelnuu stepen? standartnim sposobom? 1/exp((E*ro)*ln(exp))?

Сообщение отредактировано: makishev - 18.10.2006 23:48
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 18.10.2006 23:50
Сообщение #9


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


ln(exp)=1 smile.gif))
достаточно
1/exp(E*ro)


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
makishev
сообщение 20.10.2006 2:19
Сообщение #10





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


Plunul na vse i delau programmu v Maple.
NU NE DANO mne znat PASCAL.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 20.10.2006 5:45
Сообщение #11


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(makishev @ 20.10.2006 3:19) *

NU NE DANO mne znat PASCAL.

makishev, не сдавайся!!
Pascal forever!! Pascal rules at Iova!!
Тебе сама Мисс Граффити помогала... Не уходи с позором!
Ты это можешь!!
smile.gif smile.gif smile.gif


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
makishev
сообщение 20.10.2006 17:04
Сообщение #12





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


Mne azh pryam neudobno wub.gif
Xorosho. kak podstrahovku budu delat pascal mad.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
makishev
сообщение 5.04.2007 4:30
Сообщение #13





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


Да...
Давно здес не был.
Пасцал бросил.
Матлаб лучсе всекс.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 17.07.2025 22:56
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"