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


Ответ
 
Опции темы Опции просмотра
Старый 02.03.2010, 19:05   #1 (permalink)
JCHacker
Member
 
Аватар для JCHacker
 
Регистрация: 23.07.2008
Сообщений: 584
Записей в дневнике: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 278
По умолчанию Построение алгоритмов и расчет статических моментов массива данных

1) Q=3X-4Y+8Z,
при х = 1,
при Y=2,
при Z= -З
2) Y=4x-5;
при -10≤x≤15, ∆х=0.5 ;
3) Z=4x Y-3x+2 Y+5,
при -2≤х≤0, ∆х=0.1,
при 1≤Y≤5, ∆Y=0,1 ;
4) {Xi}=(6,7,5,6,7,5,8,8,4,6,7,8,9) ;
5)
6 2 5 1 2 5 6 1
3 5 2 1 5 2 8 4
6 6 2 5 1 2 5 1
7 3 5 2 1 5 2 1
4 2 5 6 1 5 6 1
5 7 3 5 9 3 5 9
Помогите пожалуйста с такой программой. Можно на любом язике програмирования. Заранее спасибо!!!
JCHacker вне форума   Ответить с цитированием

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

Схожие по содержанию топики, прочтите

Построение гистограммы изображения
Turbo Pascal. Программирование алгоритмов циклической структуры
Программирование алгоритмов с использованием структур
Программирование алгоритмов с использованием функций пользователя
Построение блок-схемы

Старый 02.03.2010, 22:05   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,829
Сказал(а) спасибо: 316
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от JCHacker Посмотреть сообщение
1) Q=3X-4Y+8Z,
при х = 1,
при Y=2,
при Z= -З
2) Y=4x-5;
при -10≤x≤15, ∆х=0.5 ;
3) Z=4x Y-3x+2 Y+5,
при -2≤х≤0, ∆х=0.1,
при 1≤Y≤5, ∆Y=0,1 ;
4) {Xi}=(6,7,5,6,7,5,8,8,4,6,7,8,9) ;
5)
6 2 5 1 2 5 6 1
3 5 2 1 5 2 8 4
6 6 2 5 1 2 5 1
7 3 5 2 1 5 2 1
4 2 5 6 1 5 6 1
5 7 3 5 9 3 5 9
Помогите пожалуйста с такой программой. Можно на любом язике програмирования. Заранее спасибо!!!
Паскаль, если устроит:
1.
Код:
VAR
 x,y,z,Q:REAL;
BEGIN
 x:=1;
 y:=2;
 z:=-3;
 Q:=3.0*x-4.0*y+8.0*z;
 WriteLn('Q= ',Q:6:2);
 ReadLn;
END.
2.
Код:
VAR
 i:INTEGER;
BEGIN
 For i:=-20 to 30 do
  WriteLn(0.5*i:4:1,'   ',4.0*(0.5*i)-5);
 ReadLn;
END.
3.
Код:
VAR
 i,j:INTEGER;
BEGIN
 For i:=-20 to 0 do
  For j:=10 to 50 do
   WriteLn('x= ',0.1*i:4:1,'   y= ',0.1*j:4:1,'    Z= ',
               0.04*i*j-0.3*i+0.2*j+5);
 ReadLn;
END.
Откровенно говоря, не знаю, что такое "статический момент массива данных". Но если под этим подразумевается "центр инерции", в предположении, что номера элементов массивов суть координаты, а их значения - это "массы", то как-то так (если я не прав, подскажите):
4.
Код:
CONST
 X:ARRAY[1..13] of INTEGER=(6,7,5,6,7,5,8,8,4,6,7,8,9) ;
VAR
 i:INTEGER;
 S1,S2:REAL;
BEGIN
 S1:=0;
 S2:=0;
 For i:=1 to 13 do
  Begin
    S1:=S1+1.0*X[i]*i;
    S2:=S2+1.0*X[i];
  End;
 WriteLn('Center= ',S1/S2:6:3);
 ReadLn;
END.
5.
Код:
CONST
  Z:ARRAY[1..6] of ARRAY[1..8] of INTEGER= ((6,  2,  5,  1,  2,  5,  6,  1),
                                            (3,  5,  2,  1,  5,  2,  8,  4),
                                            (6,  6,  2,  5,  1,  2,  5,  1),
                                            (7,  3,  5,  2,  1,  5,  2,  1),
                                            (4,  2,  5,  6,  1,  5,  6,  1),
                                            (5,  7,  3,  5,  9,  3,  5,  9));
VAR
 i,j:INTEGER;
 Sx,Sy,S:REAL;
BEGIN
 Sx:=0;
 Sy:=0;
  S:=0;
 For i:=1 to 6 do
  For j:=1 to 8 do
   Begin
    Sx:=Sx+1.0*Z[i,j]*i;
    Sy:=Sy+1.0*Z[i,j]*j;
    S:=S+1.0*Z[i,j];
   End;
 WriteLn('CenterX= ',Sx/S:6:3);
 WriteLn('CenterY= ',Sy/S:6:3);
 ReadLn;
END.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 04.03.2010, 17:05   #3 (permalink)
JCHacker
Member
 
Аватар для JCHacker
 
Регистрация: 23.07.2008
Сообщений: 584
Записей в дневнике: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 278
По умолчанию

Круто, спасибо большое!!!!!
JCHacker вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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