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


Ответ
 
Опции темы Опции просмотра
Старый 18.12.2013, 01:28   #1 (permalink)
венера
Новичок
 
Регистрация: 18.12.2013
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите, нужно написать программу в Паскаль, а я ни бум-бум

В паскале Необходимо разработать программный продукт расчета матрицы изгибающих моментов
для стержневого элемента(балки) при воздействии на него нагрузок в равностоящих сечениях.
Рассмотрим балку длинной L
на которую в равноотстоящих сечениях воздействуют нагрузки.
Представим нагрузки в виде вектора P. каждый элемент вектора столбца P равен значению нагрузки, воздействующую на балку в сечении с номером соответствующим индексу строки вектора.
Известно, что матрица изгибающих моментов М равна произведению матрицы влияния изгибающих моментов S размерности [K*K] на вектор нагрузок P размерности [K]
M=S*P
элемент S(i,j) матрицы влияния равен изгибающему моменту в i-м сечении при единичной нагрузке в сечении номер j Pj=1
таким образом, элементы строки матрицы S представляют значения изгибающих моментов в сечениях, соответствующих индексу строки от воздействия единичной силы, расположенной в сечении с номером столбца. Строка матрицы влияния образуют собой линию влияния с номером этой строки.
S=L/(K+1)^2*A
матрица A имеет размерность S ,а ее элементы определяются по формуле
A[ij]=(K-i+1)*j, (i<=j)
матрица A симметрична A[j,i]=A[i,j]

L=10,6
P1=12,8
P2=6,75
P3=-1,2
P4=-8,6
P5=нагрузка меняется
P6=-4,2
PN=-6,4 N-элемент нагрузки
PK=6,4
P0=0,4-шаг
венера вне форума   Ответить с цитированием

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

Нужную информацию так же можно найти всего лишь прочитав аналогичные топики

Нужно написать программу
Нужно написать программу в паскале, сама не могу!
Нужно написать программу
Помогите написать программу. Паскаль
Помогите написать программу на языке паскаль

Старый 18.12.2013, 05:28   #2 (permalink)
венера
Новичок
 
Регистрация: 18.12.2013
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

ну хоть что-нибудь помогите написать, лучше хоть что-нибудь сдать,чем вообще ни чего ни чего
венера вне форума   Ответить с цитированием
Старый 18.12.2013, 08:10   #3 (permalink)
grelly
падаван
 
Аватар для grelly
 
Регистрация: 23.01.2013
Сообщений: 739
Сказал(а) спасибо: 307
Поблагодарили 27 раз(а) в 3 сообщениях
Репутация: 10792
По умолчанию

кто вам посреди ночи будет что-то писать?
по сабжу: вводные данные непонятны. матрицы А и S рассчитывать обязательно? можно и без них обойтись
grelly вне форума   Ответить с цитированием
Старый 18.12.2013, 10:43   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от венера Посмотреть сообщение
я не бум-бум
Цитата:
Сообщение от венера Посмотреть сообщение
ну хоть что-нибудь помогите написать, лучше хоть что-нибудь сдать,чем вообще ни чего ни чего
М-да... стОит ли удивляться, что с такими "зодчими"-проектировщиками дома складываются, будто карточные. И люди гибнут... Какая уж там статика - хоть бы основами русского языка овладели: правильно "ни бум-бум", а "ничего" пишется слитно.
Ну да ладно.
Условие изложено сумбурно, сам я в этом не спец, а потому ни малейшей уверенности в правильности решения у меня нет. Но если "хоть что-нибудь", то пожалуйста:
Код:
Const
 L=10.4;
 K=16;  {PK/P0}
Var
 M,P:Array[1..K] of Real;
 A,S:Array[1..K,1..K] of Real;
 i,j:Byte;
Begin
 P[ 1]:=12.8;
 P[ 2]:=6.75;
 P[ 3]:=-1.2;
 P[ 4]:=-8.6;
 P[ 6]:=-4.2;
 P[ 7]:=-6.4;
 P[ 8]:=-6.4;
 P[ 9]:=-6.4;
 P[10]:=-6.4;
 P[11]:=-6.4;
 P[12]:=-6.4;
 P[13]:=-6.4;
 P[14]:=-6.4;
 P[15]:=-6.4;
 P[16]:=-6.4;
 Write('P[5]= ');
 Readln(P[5]);
 for j:=1 to K do
  for i:=1 to j do
   A[i,j]:=(K-i+1)*j;
 for i:=2 to K do
  for j:=1 to i-1 do
   A[i,j]:=A[j,i];
 for i:=1 to K do
  for j:=1 to K do
   S[i,j]:=A[j,i]*L/Sqr(K+1);
 for i:=1 to K do
  begin
   M[i]:=0;
   for j:=1 to K do
    M[i]:=M[i]+S[i,j]*P[j];
  end;
 for i:=1 to K do
  writeln('M[',i:2,']= ',M[i]:0:5);
 Readln
End.
Vladimir_S вне форума   Ответить с цитированием
Старый 19.12.2013, 17:11   #5 (permalink)
SERGEI123
Новичок
 
Регистрация: 19.12.2013
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

помогите решить задачу...

Замечание:
Сергей, НЕМЕДЛЕННО прекратите цепляться к чужим темам! Вам создана отдельная: Паскаль. Задача
Дальнейшее общение - в ней.

Модератор.
SERGEI123 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 19.12.2013, 17:14   #6 (permalink)
SERGEI123
Новичок
 
Регистрация: 19.12.2013
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

помогите решить задачу...

Замечание:
По-хорошему не понимаете? Будет по-плохому. Последнее предупреждение. Дальше - бан.

Модератор.
SERGEI123 вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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