Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 17.05.2016
Сообщений: 3
1

Требуется консультация в решении задач

17.05.2016, 14:57. Показов 316. Ответов 1
Метки нет (Все метки)

1)Вложение
2)Дан массив натуральных чисел. Найти количество и сумму элементов, кратных заданных числу К
3)Элементарные операции с матрицами: 0.5*(А^2+A^T), А-произвольная матрица, ^T-матрица транспонированная.
P.s для кого то возможно это покажется слишком простым заданием, но я только начал знакомиться с VBA (да и вообще с программированием) поэтому прошу вашей помощи, т.к для меня этой темный лес и уже какой день бьюсь и ничего не выходит , а также прикладываю во втором вложении что я смог сделать по 3 задаче в первом вложении. Заранее спасибо
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2016, 14:57
Ответы с готовыми решениями:

Нужна консультация в решении задачи
Нужно обойти все pdf-Документы в папке и посчитать количество повторяющихся символов в сумме во...

Нужна консультация в решении задачи
Само задание. Дан массив P(m), m<=13. Составить массив Q из его неотрицательных элементов,...

Решении 4-х простых задач на СИ
Нужна помощь в решении 4-х простых (для меня не очень понятных) задач на СИ. задания на фото:...

Помощь в решении задач!
Доброго всем дня! Перешел на 2й курс с 1го очного на 2й заочный.Этой дисциплины не было на 1 м...

1
0 / 0 / 0
Регистрация: 17.05.2016
Сообщений: 3
17.05.2016, 16:09  [ТС] 2
Вот решение ко 2ой задаче вроде как, но требуется помощь с переводом с Pascal на VBA
Pascal
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Program num1;
Uses crt;
Var
a :array [1..100] of integer;
i,k,n, s : integer;
Begin
clrscr;
s:=0;
write('K=');readln(k);
write('N=');readln(n);
for i:=1 to n do 
readln(a[i]);
for i:=1 to n do
if (a[i] MOD k)=0 then s:=s+a[i];
writeln('S=',s);
End.
 
[size="1"][color="grey"][I]Добавлено через 42 минуты[/I][/color][/size]
Вот решение к 1ой задаче вроде как, но требуется помощь с переводом с Pascal на VBA
Program num1; 
Uses crt; 
Var 
i, E : integer; 
Begin 
clrscr; 
i:=0; 
write('E=');readln(E); 
while i<E do
begin
i:=i+sqrt(2);
end;
writeln('I=',i); 
End.
 
[size="1"][color="grey"][I]Добавлено через 58 секунд[/I][/color][/size]
Вот решение к 3ей задаче вроде как, но требуется помощь с переводом с Pascal на VBA
Program num3; 
Uses crt; 
Var 
A, T :array [1..100, 1..100] of integer;
i, j, x : integer; 
Begin 
clrscr; 
 
for i:=1 to 100 do
for j:=1 to 100 do
A[i,j]:=random(10);
 
for i:=1 to 100 do 
for j:=i+1 to 100 do 
T[i,j]:=A[i,j];
 
for i:=1 to 100 do 
for j:=1 to 100 do 
begin
x:=0,5*((A[i,j]^2)+(A[i,j]^T[i,j]));
writeln('X[',i,',',j,']=',x); 
end;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2016, 16:09

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

решении геометричиских задач в с++
Как найти площадь круга,и площадь треугальника.Как это должно выглядеть в программе?

Помощь в решении двух задач.
1. Даны а, в, с. Напечатать наибольшее из попарных произведений этих чисел. Если это число будет...

Окажите содействие в решении 4-х задач
Здравствуйте, уважаемые форумчане. Прошу вашей помощи в решении 4-х задач. 1)Задача № 1 public...

Исправить ошибки в решении задач
В задании 4 и задании 5 выходят ошибки в маткаде, задание 4 - матрица должна быть квадратной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.