02.03.2010, 19:05 | #1 (permalink) |
Member
Регистрация: 23.07.2008
Сообщений: 584
Записей в дневнике: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 278
|
Построение алгоритмов и расчет статических моментов массива данных
при х = 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 Помогите пожалуйста с такой программой. Можно на любом язике програмирования. Заранее спасибо!!! |
02.03.2010, 19:05 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Схожие по содержанию топики, прочтите Построение гистограммы изображения Turbo Pascal. Программирование алгоритмов циклической структуры Программирование алгоритмов с использованием структур Программирование алгоритмов с использованием функций пользователя Построение блок-схемы |
02.03.2010, 22:05 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
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. Код:
VAR i:INTEGER; BEGIN For i:=-20 to 30 do WriteLn(0.5*i:4:1,' ',4.0*(0.5*i)-5); ReadLn; END. Код:
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. Код:
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. |
|
04.03.2010, 17:05 | #3 (permalink) |
Member
Регистрация: 23.07.2008
Сообщений: 584
Записей в дневнике: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 278
|
Круто, спасибо большое!!!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|