Excell, 3 задачки

05.12.2009, 22:37. **Показов** 1512. **Ответов** 4

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста написать программный код..

ЭТО ПЕРВАЯ ЧАСТЬ:

1) Умножить матрицу а(n,m) на b(m,k)
2) В столбце «C»рабочего листа находиться массив чисел C[i], где i - четное.
Вычислить X и Y по формулам:
X=C1-C2+C3-C4+…+Ck
Y=C1+Ck+C2*Ck-1+…+Ck*C1
Переместить результат в ячейки А2 и В2
3) В квадратной матрице неизвестной размерности элементы, расположенные ниже главной диагонали, заменить нулями.

ЭТО ВТОРАЯ:
1) Составить код вычисления значения функции z(a):

2a+sin a, если a>0
z= 0, если a=0
-1, если a<0

(это типа система уравнений, просто я не знаю как скобочку сделать=))))

2) Даны три вещественных числа, вывести на экран те из них, которые принадлежат интервалу (1,6-3,8)
3) Вычислить сумму x + x3/3 + x5/5 + … + x11/11 , при x= 2
4) Даны положительные вещественные числа a, x, e, b последовательности y1, y2,… образованной по закону: Yi= 0.5 (yi-1 + ) i=1,2,….
Найти первый член yn , для которого выполнено неравенство : Yn2-yn-12 <e

ЭТО ТРЕТЬЯ
1) Составить программу для вычисления объема треугольной пирамиды, где даны стороны основания (a, b, c) и высота h

2) Составить программу для вычисления значения выражения:

(ln3x+x2)/ , если x≤0,5

z= ( +1)/x , если x=0,5

Cos(x) + t*sin2x , если x>0,5

(это типа тоже система уравнений)))

Последнее задание:
Составить программу: рассчитать траекторию движения снаряда по фотрмулам:

X=Vx*t
Y=Vy*t-(g*t2 )/2
При постоянных скоростях Vy и Vx . Время t изменяется от 0 с шагом ∆t , цикл закончиться при y ≤0

Помогите пожалуйста написать программный код..

@Toxa33rus · 06.12.2009, 23:01

Фига се 3 задачки. По научному это называется девять

1.1

Visual Basic
1
2
3
4
5
6
7
8
9
10
dim C()
redim C(1 to n, 1 to k)
For count_n=1 to n
for count_k=1 to k
  C(count_n, count_k)=0
  for count_m=1 to m
    C(count_n, count_k)=C(count_n, count_k) + a(count_n, count_m) * b(count_m, count_k)
  next count_m
next count_k
next count_n

1.2

Visual Basic
1
2
3
4
5
6
7
X=0
Y=0
For count=1 to i
  n = Cells(count, 3).value
  X=X + -1^i * -n
next count
cells(2,1).value = X

с игреком не понял. Чо за k?
1.3

Visual Basic
1
2
3
4
5
6
7
n_first=lbound(a)
n_last=ubound(a)
for i=n_first +1 to n_last
  for j=n_first +1 to n_last
    if i<j then a(i,j) = 0
  next j
next i

@Xpoft · 07.12.2009, 17:04

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
'1.2 Расчет Y
Y = 0
n = 50 ' например
Y = Cells(1, 3).Value * Cells(n, 3).Value
For i = 1 To n
Y = Y + Cells(i + 1, 3) * Cells(n - i, 3)
Next i
Cells(2, 2).Value = Y
 
'1.3 Вариант чуть проще чем у Toxa33rus 
n_first = LBound(a)
n_last = UBound(a)
For i = n_first To n_last - 1
    Cells(i + 1, i).Value = 0
Next i
 
 
'2.1 Допустим a  в ячейке (1,1)
a = cells(1,1).value
If a > 0 Then Z = 2 * a + Sin(a)
If a = 0 Then Z = 0
If a < 0 Then Z = -1
MsgBox (Z)
 
'2.2 Допустим данные три числа находятся в ячейках (1,1)-(1,3)
Dim Result As String
For i = 1 To 3
If (Cells(1, i).Value < 3.8) * (Cells(1, i).Value > 1.6) Then
Result = Result & " " & Cells(1, i).Value
End If
Next i
MsgBox (Result)
 
 
'2.3 Не понятное условие
 
'2.4 В условии оЧЕПятка или недописка)

Добавлено через 15 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'3.3 Заносит в три колонки значения T X Y
' с шагом delta_t при стартовых скоростях V_x V_y  и g = 9.8
delta_t = 1 ' установить столько сколько надо
V_x = 20 ' установить столько сколько надо
V_y = 30 ' установить столько сколько надо
g = 9.8
T = 0
i = 1
Do While Y >= 0
T = T + delta_t
X = V_x * T
Y = V_y * T - (g * T ^ 2) / 2
If Y >= 0 Then
Cells(i, 1) = T
Cells(i, 2) = X
Cells(i, 3) = Y
End If
i = i + 1
Loop

@Toxa33rus · 07.12.2009, 19:47

Сообщение от Xpoft

'1.3 Вариант чуть проще чем у Toxa33rus

он не проще он другой и на мой взгляд неправильный

там надо нулями заменить не то что ПОД ГД а ВСЁ что ниже нее
1 2 3 4
0 5 6 7
0 0 8 9
0 0 0 у

@Xpoft · 08.12.2009, 11:46

Точняк! я ошибся...

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

Марина Чернова

	Excell, 3 задачки 05.12.2009, 22:37. Показов 1512. Ответов 4 Метки нет (Все метки) Помогите пожалуйста написать программный код.. ЭТО ПЕРВАЯ ЧАСТЬ: 1) Умножить матрицу а(n,m) на b(m,k) 2) В столбце «C»рабочего листа находиться массив чисел C[i], где i - четное. Вычислить X и Y по формулам: X=C1-C2+C3-C4+…+Ck Y=C1+Ck+C2Ck-1+…+CkC1 Переместить результат в ячейки А2 и В2 3) В квадратной матрице неизвестной размерности элементы, расположенные ниже главной диагонали, заменить нулями. ЭТО ВТОРАЯ: 1) Составить код вычисления значения функции z(a): 2a+sin a, если a>0 z= 0, если a=0 -1, если a<0 (это типа система уравнений, просто я не знаю как скобочку сделать=)))) 2) Даны три вещественных числа, вывести на экран те из них, которые принадлежат интервалу (1,6-3,8) 3) Вычислить сумму x + x3/3 + x5/5 + … + x11/11 , при x= 2 4) Даны положительные вещественные числа a, x, e, b последовательности y1, y2,… образованной по закону: Yi= 0.5 (yi-1 + ) i=1,2,…. Найти первый член yn , для которого выполнено неравенство : Yn2-yn-12 <e ЭТО ТРЕТЬЯ 1) Составить программу для вычисления объема треугольной пирамиды, где даны стороны основания (a, b, c) и высота h 2) Составить программу для вычисления значения выражения: (ln3x+x2)/ , если x≤0,5 z= ( +1)/x , если x=0,5 Cos(x) + tsin2x , если x>0,5 (это типа тоже система уравнений))) Последнее задание: Составить программу: рассчитать траекторию движения снаряда по фотрмулам: X=Vxt Y=Vyt-(gt2 )/2 При постоянных скоростях Vy и Vx . Время t изменяется от 0 с шагом ∆t , цикл закончиться при y ≤0 Помогите пожалуйста написать программный код..

@Xpoft Asgard's resident 91 / 88 / 10 Регистрация: 03.12.2009 Сообщений: 175
	08.12.2009, 11:46
	Точняк! я ошибся... 0

Excell, 3 задачки

Решение