Sub Ìàêðîñ1() Dim Sum(heigth - 1, width - 1) Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1 For j = 0 To width - 1 Sum(i, j) = i + j Product(i, j) = i * j Next j Next i
Call Show(Sum, 0, 0) Call Show(Product, 0, 12) End Sub
Sub Show(ByRef m, dx, dy) For i = 0 To heigth - 1 For j = 0 To width - 1 ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j)) Next j Next i End Sub
Using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace ConsoleApplication1 { class Program { static void Main(string[] args) { Console.BackgroundColor = ConsoleColor.Black; Console.ForegroundColor = ConsoleColor.Green; Console.WriteLine(); Console.WriteLine("Hello, World!"); // Ожидание нажатия клавиши Enter перед завершением работы Console.ReadLine(); } } }
Данная программа откроет консоль и будет выводить текст "Hello, World". Текст можно изменить, а комментарий удалить.
4. 23
5. 15
Объяснение:
4.
Построим граф по данным таблицы (смотри картинку)
Рассчитаем длину всех путей из A в E через C
ACE = 4 + 20 = 24
ABCE = 2 + 2 + 20 = 24
ACBE = 4 + 2 + 18 = 24
ACBDE = 4 + 2+ 15 + 2 = 23
Кратчайший путь A в E через C равен 23
5.
Команды:
1) прибавь b
2) умножь на 2
Программа 11121 переводит 5 в 115
Распишем программу по командам (подставив начальное и конечные числа):
1) 5 + b
1) 5 + b + b
1) 5 + b + b + b
2) (5 + b + b + b) * 2
1) ((5 + b + b + b) * 2) + b = 115
Решим получившееся уравнение:
((5 + b + b + b) * 2) + b = 115
((5 + 3b) * 2) + b = 115
10 + 6b + b = 115
10 + 7b = 115
7b = 115 - 10
7b = 105
b = 105 / 7
b = 15
Проведем проверку (выполнив всю программу):
1) 5 + 15 = 20
1) 20 + 15 = 35
1) 35 + 15 = 50
2) 50 * 2 = 100
1) 100 + 15 = 115