Вычислить десятичные эквиваленты чисел 2014^8 2014^7 2014^6 2014^5 и по возможности объясните как это - id790544920201028 от leksutin1 28.10.2020 08:51

Question

Информатика: Вычислить десятичные эквиваленты чисел 2014^8 2014^7 2014^6 2014^5 и по возможности объясните как это работает, , а то в учебнике почти не сказано(

leksutin1 · Accepted Answer

Sub Swap()

Dim r As Range, A As Variant

Dim i As Integer, im As Double, n As Integer, t As Double

n = 15

Set r = Range(Cells(1, 1), Cells(1, n))

A = r

im = 1

For i = 2 To n

If A(1, i) > A(1, im) Then

im = i

End If

Next i

t = A(1, im)

A(1, im) = A(1, n)

A(1, n) = t

Set r = Range(Cells(2, 1), Cells(2, n))

r = A

End Sub

На лист в ячейки А1 - О1 заносим исходные 15 чисел

На этот же лист через проект помещаем макрос и запускаем.

Результат будет в ячейках А2 - О2

Вычислить десятичные эквиваленты чисел 2014^8 2014^7 2014^6 2014^5 и по возможности объясните как это работает, , а то в учебнике почти не сказано(

MOGZ ответил