1. When is John meeting Ann? — He’s meeting her at eight o’clock. — Когда Джон встречает Энн? — Он встречается с ней в восемь часов.
2. When is Pat having an interview? — She’s having it on Tuesday morning at ten o’clock. – Когда у Пат интервью? — Во вторник утром в десять часов.
3. When are you going to basketball match? — I’m going to the match this evening at half past seven. — Когда ты идешь на баскетбольный матча? — Я собираюсь на матч сегодня вечером в половине восьмого.
4. When is Robert leaving school? — He’s leaving next summer. — Когда Роберт окончит школу? — Он уходит следующим летом.
5. When is Rachel having lunch with her uncle? — They are having lunch on Saturday at one o’clock. — Когда Рэйчел обедает со своим дядей? — Они обедают в субботу в час.
6. When is Nevita going on holiday? — She’s going on holiday at the beginning of July. — Когда Невита пойдет на каникулы? — Она пойдет на каникулы в начале июля.
У плоску складову галактики входять зірки Чумацького шляху. Це і є наша галактика з ребра. Там (в нашій галактиці) виявлено близько 154 кульових зоряних скупчень. Вважається, що всього їх понад 200. Особливо багато кульових скупчень в сузір'ях Стрільця і Скорпіона - в напрямку центру галактики. Галактика містить від 200 до 400 000 000 000 зірок. Ядра галактик є центрами їх конденсації і початкового зореутворення. Там знаходяться найстаріші зірки. Сонце розташоване на 20-25 пк вище площині симетрії наше галактики і віддалене від центру на відстань 7,5-8 КПК. Близько до сонця зірки рухаються разом з ним перпендикулярно напрямку в центр галактики. Сонце і зірки в його околицях роблять повний оборот навколо центру галактики приблизно за 240-250 мільйонів років.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim A() As Integer Dim B() As Integer
Randomize() Dim k As Integer Dim i As Integer i = Rnd() * 100 + 1 ReDim A(i) For k = 0 To i A(k) = Rnd() * -1000 + 500 Next i = Rnd() * 100 + 1 ReDim B(i) For k = 0 To i B(k) = Rnd() * -1000 + 500 Next
1. Dim msg_A As String msg_A = VerifySort(A) If msg_A <> CStr(A.Length) Then MsgBox(msg_A) Else MsgBox("Массив А упорядочен") End If
Dim msg_B As String msg_B = VerifySort(B) If msg_B <> CStr(A.Length) Then MsgBox(msg_B) Else MsgBox("Массив B упорядочен") End If
sort(A) msg_A = VerifySort(A) If msg_A <> CStr(A.Length) Then MsgBox(msg_A) Else MsgBox("Массив А упорядочен") End If
2. Dim h As Integer h = InputBox("Введите h") i = CompareValue(A, h) If i <> UBound(A) Then MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.") Else MsgBox("У массива все элементы больше h.") End If
i = CompareValue(B, h) If i <> UBound(B) Then MsgBox("У массива не все элементы больше h. Значений больше h " & i & " шт.") Else MsgBox("У массива все элементы больше h.") End If End Sub
Private Function VerifySort(ByRef Massiv() As Integer) As String Dim i, j, k As Integer Dim msg As String For i = Massiv.Length To 0 Step -1 For j = Massiv.Length - 1 To 1 Step -1 If Massiv(j) < Massiv(j - 1) Then For k = 0 To Massiv.Length - 1 msg = msg & Massiv(k) & vbCrLf Next Return msg End If Next j Next i Return Massiv.Length End Function Private Function sort(ByRef Massiv() As Integer) As Integer Dim i, j, Dump As Integer For i = Massiv.Length To 0 Step -1 For j = Massiv.Length - 1 To 1 Step -1 If Massiv(j) < Massiv(j - 1) Then Dump = Massiv(j) Massiv(j) = Massiv(j - 1) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Massiv(j - 1) = Dump End If Next j Next i Return Massiv.Length End Function
Private Function CompareValue(ByRef Massiv() As Integer, ByVal h As Integer) As Integer Dim count As Integer Dim i As Integer For i = 0 To UBound(Massiv) - 1 If Massiv(i) > h Then count = count + 1 ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next Return count End Function
2. When is Pat having an interview? — She’s having it on Tuesday morning at ten o’clock. – Когда у Пат интервью? — Во вторник утром в десять часов.
3. When are you going to basketball match? — I’m going to the match this evening at half past seven. — Когда ты идешь на баскетбольный матча? — Я собираюсь на матч сегодня вечером в половине восьмого.
4. When is Robert leaving school? — He’s leaving next summer. — Когда Роберт окончит школу? — Он уходит следующим летом.
5. When is Rachel having lunch with her uncle? — They are having lunch on Saturday at one o’clock. — Когда Рэйчел обедает со своим дядей? — Они обедают в субботу в час.
6. When is Nevita going on holiday? — She’s going on holiday at the beginning of July. — Когда Невита пойдет на каникулы? — Она пойдет на каникулы в начале июля.