Помогите пожалуйста с задачками по Vba

  • Автор темы Wolfram
  • Дата начала
W

Wolfram

#1
Помогите пожалуйста с задачками.

РАЗРАБОТКА ПРОГРАММ НА VISUAL BASIC FOR APPLICATION.

ВЕТВЛЕНИЯ (УСЛОВНЫЕ КОНСТРУКЦИИ)
1. Заданы три числа: a , b , c . Определить, могут ли они быть сторонами треугольника, и если да, то определить его тип: равносторонний, равнобедренный, разносторонний.
Примечание: Условия существования треугольника: a<=b+c , b<=a+c , c<=a+b .
Нельзя исключать экстремальных случаев, когда одна (или несколько) сторон равны нулю либо когда одно из неравенств переходит в равенство (треугольник нулевой площади).

ИТЕРАЦИИ (ЦИКЛИЧЕКИЕ КОНСТРУКЦИИ)
30. Составить программу для графического представления делимости чисел от 1 до n (значение n вводится с клавиатуры). В каждой строке надо напечатать очередное число и столько символов + (плюс), сколько делителей у этого числа. Например, если n=4, то на экране должно быть напечатано:
1+
2++
3+++
4++++

ОПЕРАЦИИ С МАССИВАМИ
31. В массиве C(n) подсчитать количество отрицательных и сумму положительных элементов.
60. Дан двумерный массив. Удалить строку и столбец, на пересечении которых расположен наименьший по модулю элемент массива.

ЛИНЕЙНЫЙ ПОИСК
61. Седловой точкой в матрице называется элемент, являющийся одновременно наибольшим в столбце и наименьшим в строке:
аpq=max aiq=min apj (p,q,i,j - индексы). Седловых точек может быть и несколько (в этом случае они имеют равные значения). В матрице A(m,n) найти седловую точку и ее координаты p , q либо установить, что такой точки нет.

КОМБИНАТОРИКА
90. На плоскости заданы своими целочисленными координатами n точек. Найти всевозможные группы по 3, 4, … точки, лежащие на одной прямой.
 
W

Wolfram

#2
Первую задачку сделал, помогите с остальными
 
J

Jumpy

#3
ИТЕРАЦИИ (ЦИКЛИЧЕКИЕ КОНСТРУКЦИИ)
30. Составить программу для графического представления делимости чисел от 1 до n (значение n вводится с клавиатуры). В каждой строке надо напечатать очередное число и столько символов + (плюс), сколько делителей у этого числа. Например, если n=4, то на экране должно быть напечатано:
1+
2++
3+++
4++++

у 3ки - 3 делителя, у 4ки - четыре ?


массиве C(n) подсчитать количество отрицательных и сумму положительных элементов.

dim OTR as integer
dim SUMMA as double
dim a as integer
OTR = 0
SUMMA = 0
for a = 1 to n
if c(a) < 0 then
OTR = OTR + 1
else
SUMMA = SUMMA + c(a)
end if
next