Задание №1 60 Мбайт * 8 = 480 Мбит - размер файла в мегабитах 480 Мбит * 1024 = 491520 Кбит - размер файла в килобитах 491520 / 2 = 245760 Кбит - половина файла 245760 Кбит / 256 = 960 секунд - время передачи первой половины файла 245760 Кбит / (256 / 2) = 245760 Кбит / 128 = 1920 секунд - время передачи втораой половины файла 960 с + 1920 с = 2880 секунд - общее время передачи В одной минуте 60 секунд: 2880 / 60 = 48 минут - передан весь файл
Задание №2 Переведем килобайты в биты: N = 3750кбайт = 30720000бит Вычислим скорость передачи информации: V = 30720000/120 V = 256000 бит/c
1. Строка получается слишком длиной, поэтому разбиваем ее на две части Sub Z1() Dim n As Integer Dim i As Integer Dim s1 As String Dim s2 As String For i = 100 To 999 If i Mod 3 = 0 Then n = n + 1 If Len(s1) < 1024 Then s1 = s1 & i & " " Else s2 = s2 & i & " " End If End If Next i MsgBox (s1) If Len(s2) > 0 Then MsgBox ("Продолжение: " & s2) MsgBox ("Их количетво: " & n) End Sub 1. Вариант дла Excel. Срабатывает на двойном клике мышки. Можешь приписать любому другому событию Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim n As Integer Dim i As Integer For i = 100 To 999 If i Mod 3 = 0 Then n = n + 1 Cells(n, 1) = i End If Next i MsgBox ("Их количество: " & n) End Sub
2. Sub z2() Dim k As Integer Dim p As Double k = InputBox("Введите k:") p = 1 For i = 1 To k p = p * (-1 + 4 * (i - 1)) Next i MsgBox ("Произведение: " & p) End Sub
60 Мбайт * 8 = 480 Мбит - размер файла в мегабитах
480 Мбит * 1024 = 491520 Кбит - размер файла в килобитах
491520 / 2 = 245760 Кбит - половина файла
245760 Кбит / 256 = 960 секунд - время передачи первой половины файла
245760 Кбит / (256 / 2) = 245760 Кбит / 128 = 1920 секунд - время передачи втораой половины файла
960 с + 1920 с = 2880 секунд - общее время передачи
В одной минуте 60 секунд:
2880 / 60 = 48 минут - передан весь файл
Задание №2
Переведем килобайты в биты: N = 3750кбайт = 30720000бит
Вычислим скорость передачи информации: V = 30720000/120
V = 256000 бит/c
Sub Z1()
Dim n As Integer
Dim i As Integer
Dim s1 As String
Dim s2 As String
For i = 100 To 999
If i Mod 3 = 0 Then
n = n + 1
If Len(s1) < 1024 Then
s1 = s1 & i & " "
Else
s2 = s2 & i & " "
End If
End If
Next i
MsgBox (s1)
If Len(s2) > 0 Then MsgBox ("Продолжение: " & s2)
MsgBox ("Их количетво: " & n)
End Sub
1. Вариант дла Excel. Срабатывает на двойном клике мышки. Можешь приписать любому другому событию
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim n As Integer
Dim i As Integer
For i = 100 To 999
If i Mod 3 = 0 Then
n = n + 1
Cells(n, 1) = i
End If
Next i
MsgBox ("Их количество: " & n)
End Sub
2.
Sub z2()
Dim k As Integer
Dim p As Double
k = InputBox("Введите k:")
p = 1
For i = 1 To k
p = p * (-1 + 4 * (i - 1))
Next i
MsgBox ("Произведение: " & p)
End Sub